Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Clear[x,y,z,ans,curlF, Gradans]
- 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]}
- ans[x_, y_, z_] = curlF[x,y,z].curlF[x,y,z]
- Gradans[x_, y_, z_] = {D[ans[x,y,z], x],D[ans[x,y,z], y],D[ans[x,y,z], z]}
- Solve[Gradans[x,y,z] == 0, z]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement