plotting gradient of a potential...

hangainlover

VectorPlot[{(-3*x*z)/(x^2 + z^2)^(5/2),
1/(x^2 + z^2)^(3/2) + (-3*z^2)/(x^2 + z^2)^(5/2)}, {x, -30,
30}, {z, -300, 300}]

this is the gradient i was trying to plot and it should be E field of an electric dipole...
but for some reason, it is not giving me the right plot..

Attached Thumbnails

 

Attached Files

q2.nb (50.2 KB, 0 views)