Kuvaukset w = z^2  ja w = e^z

14.9.2005 K3/P3

Konformikuvauksia

>    with(plots):

>    #?conformal

w = z^2

>    conformal(z,z=-2..2+2*I);conformal(z^2,z=-2..2+2*I);

[Maple Plot]

[Maple Plot]

>    restart: with(plots):

Warning, the name changecoords has been redefined

>    z:=x+I*y:

>    setoptions3d(orientation=[-114,36],axes=box):

>    #ztaso:=plot3d(-1,x=-1..1,y=-1..1,color=argument(z),grid=[21,21]):

>    #absz2pinta:=plot3d(abs(z^2),x=-1..1,y=-1..1,color=argument(z^2),grid=[21,21]):

>    #argz2pinta:=plot3d(argument(z^2),x=-1..1,y=-1..1,color=abs(z^2),grid=[21,21]):

>    #display3d(ztaso,absz2pinta,axes=box);display3d(ztaso,argz2pinta,axes=box,orientation=[-114,36]);

>    #display3d(ztaso);

w = e^z

>    conformal(z,z=-5-0.9*Pi*I..2+0.9*Pi*I);conformal(exp(z),z=-5-0.9*Pi*I..2+0.9*Pi*I,scaling=constrained);

[Maple Plot]

[Maple Plot]

>   

>    ztaso:=plot3d(0,x=-1..1,y=-1..1,color=argument(z),grid=[21,21]):
x:='x':y:='y':z:=x+I*y:

>    expz:=plot3d(abs(exp(z)),x=-5..2,y=-2*Pi..2*Pi,color=argument(exp(z)),grid=[21,21]):

>   

>    display3d(ztaso);display3d(expz,axes=BOXED,style=PATCH,labels=["Re(z)","Im(z)","|exp(z)| "]);

[Maple Plot]

[Maple Plot]

>