Kompleksilukuja

V2 kevät 2002 HA

Kompleksilukupisteiden piirtoa

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

> with(plots):

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

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

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

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

> display(%,%%);

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

>