Advertisement
Guest User

Untitled

a guest
Apr 27th, 2015
188
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. Clear[x,y,z,ans,curlF, Gradans]
  2. curlF[x_, y_, z_] = {D[p[x, y, z], y] - D[n[x, y, z], z], D[m[x, y, z], z] - D[p[x, y, z], x], D[n[x, y, z], x] - D[m[x, y, z], y]}
  3.  
  4. ans[x_, y_, z_] = curlF[x,y,z].curlF[x,y,z]
  5.  
  6. Gradans[x_, y_, z_] = {D[ans[x,y,z], x],D[ans[x,y,z], y],D[ans[x,y,z], z]}
  7.  
  8. Solve[Gradans[x,y,z] == 0, z]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement