Mocninná funkce

Manipulate[
f2[z_]=z^p;
gr1=ParametricPlot[ReIm[x+I y],{x,-1,1},{y,-1,1},PlotPoints->10,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
gr2=ParametricPlot[ReIm[f2[x+I y]],{x,-1,1},{y,-1,1},PlotPoints->10,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
Show[GraphicsGrid[{{gr1,gr2}}]]
,{p,1,2,0.1}]

Manipulate[
f3[z_]=z^p;
gr1=ParametricPlot[ReIm[x+I y],{x,-1,1},{y,-1,1},PlotPoints->10,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
gr2=ParametricPlot[ReIm[f3[x+I y]],{x,-1,1},{y,-1,1},PlotPoints->10,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
Show[GraphicsGrid[{{gr1,gr2}}]]
,{p,1,0.5,-0.1}]

Exponenciální funkce

f4[z_]=Exp[z];
gr1=ParametricPlot[ReIm[x+I y],{x,-1,1},{y,-1,1},PlotPoints->30,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
gr2=ParametricPlot[ReIm[f4[x+I y]],{x,-1,1},{y,-1,1},PlotPoints->30,PlotRange->{-2,2},Mesh->10,MeshStyle->{Red,Black}];
Show[GraphicsGrid[{{gr1,gr2}}]]