potentialplot

A single charge potential plot

H.Tahsiri

V[z_,x_]=1/Sqrt[y^2+z^2+x^2]/.y->.01

               1
     ----------------------
                    2    2
     Sqrt[0.0001 + x  + z ]

ContourPlot[V[z,x], {x, -1, 1}, {z, -1, 1},ContourShading->False,Contours->15,ContourSmoothing->True,PlotPoints->100,AspectRatio->Automatic];

DensityPlot[V[z,x], {x, -1, 1}, {z, -1, 1},PlotPoints->50];

Clear[V,x,z,y]

V[z_,x_,y_]=1/Sqrt[y^2+z^2+x^2]

Plot3D[V[x,z ,.01],
{x,-1,1}, {z,-1,1},PlotPoints->30,PlotRange->All,Boxed->False];