Guest User

Untitled

a guest
May 27th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. a[x,y,z],b[x,y,z],c[x,y,z]
  2.  
  3. f[a[x,y,z],b[x,y,z],c[x,y,z]]
  4.  
  5. RegionPlot3D[
  6. 0 < f[a[x, y, z], b[x, y, z], c[x, y, z]] &&
  7. 0 < a[x, y, z] < 1 && 0 < b[x, y, z] < 1 && 0 < c[x, y, z] < 1,
  8. {x, 50, 500}, {y, 200, 2000}, {z, 100, 1000}]
  9.  
  10. mat=Table[{a[i],b[i],c[i]},{i,0,10}]
  11. alist=mat[[All,1]]
Add Comment
Please, Sign In to add comment