DiploMat Uge 1, Komplekse tal 1Preben Alsholm, 30/1 2008Simpel regning med komplekse tal(2+3*I)+(-4+7*I);(2+3*I)*(-4+7*I);(2+3*I)/(-4+7*I);with(plots):z[1]:=2+3*I: z[2]:=-2+3*I: z[3]:=2-3*I: z[4]:=-2-3*I:
L:=[seq(z[k],k=1..4)];
L1:=map([Re,Im],L);L2:=zip((x,y)->[op(x),y],L1,L);complexplot(L,style=point,symbol=solidcircle,symbolsize=20):
textplot(L2,align=below):
display(%%,%);N tilf\303\246ldigt valgte punkter med real- og imagin\303\246rdele mellem -4 og 4:N:=7:
L:=[seq(rand(-4..4)()+I*rand(-4..4)(),k=1..N)];L1:=map([Re,Im],L):L2:=zip((x,y)->[op(x),y],L1,L):complexplot(L,style=point,symbol=solidcircle,symbolsize=20):
textplot(L2,align=below):
display(%%,%);Pol\303\246r formpolar(r,v);animate(complexplot,[polar(r,v),v=0..Pi,scaling=constrained],r=0..1);animate(complexplot,[polar(r,v),r=0..1,thickness=3],v=0..4*Pi);polar(r,v)=evalc(polar(r,v));polar(a);polar(1+I);polar(1+sqrt(3)*I);polar(1-sqrt(3)*I);polar(-1+sqrt(3)*I);polar(-1-sqrt(3)*I);argument(1+sqrt(3)*I);polar(2,Pi/6);polar(2,Pi/6)=evalc(polar(2,Pi/6));Kompleks konjugation i Mapleconjugate(a+b);expand(%);conjugate(a*b);expand(%);