(* flat.nb *)

Needs["Graphics`ComplexMap`"]

Clear[V]
V = 1 (* Potential between plates in Volt *);

                      (* Functions *)
               
cm2[z_] = Exp[z] ; (* Conformal map *)
ef2[z_] = V 1000/Pi cm2[z]; (* Function of el. field *)

            (* Section with black & white graphics *)
            
Print["Electric fieldlines & equipotentials"]            
eflandeqpl2 = CartesianMap[cm2, {-1.1,1.1},{0,Pi}, 
      Epilog -> { Thickness[.011], 
                { Line[{{-3.1,0},{-.1,0}}], 
                  Line[{{.1,0},{3.1,0}}] }} ] ;
      
Print["Electric field on plates"]
ppleftright2 = ParametricPlot[
        {{cm2[t],-ef2[-t]},{-cm2[-t],ef2[t]}},
        {t, -1.1314, 1.1314}, 
        PlotRegion -> {{.01,.99},{.01,.99}},
        AspectRatio -> .5,
        AxesLabel -> {"r [mm]","E [V/m]"}] ;