Help with Equipotential Curves
<<Graphics`ContourPlot3D`
Assuming your potential is u(x,y) and it has been previously defined, here is
how you would graph the equipotential curves
u=0, u=.25, u=.32, u=.5, u=.75
(Do not evaluate the next cell, it is a text cell!)
equipot=ContourPlot[Evaluate[u[x,y]],{x,0,5},{y,0,5},
ContourShading->False,
ContourStyle->Dashing[{.02}],Contours->{0,.25,.32,.5,.75},AspectRatio->Automatic];
Up to PDE Tips