等角写像による「端の効果」

関数の定義

x[u_, v_]:=u+Exp[u] Cos[v];
y[u_, v_]:=v+Exp[u]Sin[v];

xmin = -8;
xmax= 8;
ymin = -8;
ymax=8;

等ポテンシャル面

Ef1=Table[
ParametricPlot[{x[u, v], y[u, v]},{u, -10, 10},PlotStyle->{Thickness[0.005]},PlotRange->{{xmin,xmax},{ymin,ymax}}],{v,-3,3, 0.5}];
Show[Ef1]

電気力線

Ef2=Table[
ParametricPlot[{x[u, v], y[u, v]},{v, -3.14, 3.14},PlotStyle->{Black,Thickness[0.005]},PlotRange->{{xmin,xmax},{ymin,ymax}}],{u,-10,4, 0.5}];
Show[Ef2]

Show[Ef1, Ef2,Axes->None]