Saturday, December 21, 2019

Complex Numbers as PlayGrounds


z1=1+4*I; z2=2-3*I;
Z={z1,z2,z1+z2,z1-z2,z1*z2,z1/z2,z1^2,N[z2^(1/3)]}
tc=Table[Graphics[{Hue[i/8],Thickness[0.005],
Opacity[0.8],Arrowheads[0.04],
Arrow[{{0,0},ReIm[Z[[i]]]}]}],{i,8}];
tx=Table[Graphics[{Text[Style[Z[[i]],
Hue[i/8],FontSize->Medium],
ReIm[Z[[i]]],{-1,-1}]}],{i,8}];
Show[tc,tx,ImageSize->Large]


No comments:

Post a Comment