Abbildungen im Komplexen: w=1/z*

komplex7.mws

Abgebildet wird jeweils eine Strecke (in Parameterdarstellung)

> restart:with(plots):

> strecke:=proc(z1,z2)
local z,w,x,y,g,xw,yw,p1,p2,p;

> w:=z->1/conjugate(z);

> z:=x+I*y;

> evalc(w(z));

> g:=z1+t*(z2-z1);

>

> xw:=evalc(Re(w(g)));yw:=evalc(Im(w(g)));

> p1:=plot([Re(g),Im(g),t=0..1],color=red):#die Urbildstrecke
p2:=plot([xw,yw,t=0..1],color=green):
p:=display(p1,p2,scaling=constrained):#Im gemeinsamen Koordinatensystem
end:

>

Abbildung eines Dreiecks:

> za:=1+0.8*I;zb:=1+I;zc:=0.7+0.8*I;

[Maple Math]

[Maple Math]

[Maple Math]

> p1:=strecke(za,zb):p2:=strecke(zb,zc):p3:=strecke(za,zc):

> display(p1,p2,p3,view=[0.4..1,.4..1],scaling=constrained);

[Maple Plot]

>