(* 2024/11/26 の内容 *)

Plot3D[Im[Log[x+I y]],{x,-1,1},{y,-1,1},RegionFunction->Function[{x,y,z},x^2+y^2<1]]

ContourPlot[Im[Log[x+I y]],{x,-1,1},{y,-1,1}]

Plot3D[Re[Log[x+I y]],{x,-1,1},{y,-1,1},RegionFunction->Function[{x,y,z},x^2+y^2<1]]

ContourPlot[Re[Log[x+I y]],{x,-1,1},{y,-1,1}]

(* 2024/11/27 の内容 *)

p[z_,alpha_,maxn_]:=Module[{r,t,w},r=Abs[z];t=Arg[z];w=r^alpha*Exp[alpha t];
Table[{Re[w Exp[I n alpha 2 Pi]],Im[w Exp[I n alpha 2 Pi]]},{n,maxn}]]

g8=ListPlot[p[1,1/8,8],AspectRatio->Automatic,PlotStyle->{PointSize[0.03]}]

groot2a=ListPlot[p[1,Sqrt[2],100],AspectRatio->Automatic]

groot2b=ListPlot[p[1,Sqrt[2],1000],AspectRatio->Automatic]

Manipulate[ListPlot[p[1,Sqrt[2],n],AspectRatio->Automatic],{n,1,1000}]