Kompleksilukuja

V2 kevšt 2002 HA

Kompleksilukupisteiden piirtoa

> sade:=(z,vari)->complexplot([0,z],scaling=constrained,color=vari);

sade := proc (z, vari) options operator, arrow; com...

> with(plots):

> display([sade(exp(I*Pi/4),blue),sade(exp(I*Pi/2),green)],axes=frame);

[Maple Plot]

> omega:=exp(I*Pi/4);

omega := 1/2*sqrt(2)+1/2*I*sqrt(2)

> display([seq(sade(omega^k,red),k=0..10)],axes=frame,insequence=false);

[Maple Plot]

> display([seq(sade(omega^k,blue),k=0..10)],axes=frame,style=point,symbol=circle);

[Maple Plot]

> display(%,%%);

[Maple Plot]

> complexplot([seq(omega^k,k=0..10)],axes=frame,style=line,symbol=circle,scaling=constrained,color=green);

[Maple Plot]

>