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);
>