(* source.nb 非公開 *)

m=1

f[z_]:=m Log[z]

ComplexExpand[f[x+I y]]

phi[x_,y_]:=ComplexExpand[Re[f[x+I y]]]

psi[x_,y_]:=ComplexExpand[Im[f[x+I y]]]

phi[x,y]

psi[x,y]

g1=ContourPlot[phi[x,y]==Table[Log[r],{r,0.1,3,0.2}],{x,-2,2},{y,-2,2},ContourStyle->Directive[Red,Thin],Contours->Table[Log[r],{r,0.1,3,0.1}]]

g2=ContourPlot[psi[x,y]==Table[c,{c,-Pi,Pi,Pi/10}],{x,-2,2},{y,-2,2},ContourStyle->Directive[Blue,Thin]]

Show[g1,g2]

vv[x_,y_]:={Re[f'[x+I y]],-Im[f'[x+I y]]}

g3=VectorPlot[vv[x,y],{x,-2,2},{y,-2,2}]

(* あれれ？原点の近くで大きいから、他が短くなってしまう *)

g3=VectorPlot[vv[x,y]Boole[x^2+y^2>0.2],{x,-2,2},{y,-2,2}]

g4=Show[g1,g2,g3]

Export["source.pdf",g4]

Export["source.png",g4]