(%i1) | z:a+b*%i; |
(%i2) | conjugate(z); |
(%i3) | cabs(z); |
(%i4) | declare([z_1,z_2],complex); |
(%i5) | conjugate(z_1+z_2); |
(%i6) | conjugate(z_1-z_2); |
(%i7) | conjugate(z_1*z_2); |
(%i8) | conjugate(z_1/z_2); |
(%i9) | polarform(1+%i); |
(%i10) | polarform(3+4*%i); |
(%i11) | polarform(z); |
(%i12) | polarform(z_1*z_2); |
(%i13) | polarform(z_1/z_2); |
(%i14) | z_1:2*%e^(%pi/3);z_2:sqrt(2)*%e^(%pi/4); |
(%i16) | z_1*z_2; |
(%i17) | z_1/z_2; |
(%i18) | declare([s,t],complex); |
(%i19) | cabs(s*t); |
(%i20) | carg(s*t); |
(%i21) |
rot(x,y,arg):=block( rectform((x-y)*%e^(arg*%i)+y) ); |
(%i22) | rot(2-4*%i,0,%pi/6); |
(%i23) | rot(4+%i,2+3*%i,%pi/3); |
(%i24) | expand((1-%i)^6); |
(%i25) | kill(z); |
(%i26) | solve(z^6=1,z); |
(%i27) | solve(z^3=%i,z); |
(%i28) | rectform(%); |
(%i29) |
cangle(a,b,c):=block( z:rectform((c-a)/(b-a)), return([carg(z),cabs(z)]) ); |
(%i30) | cangle(1,-2+2*%i,2-5*%i); |
(%i31) | cangle(1-%i,2+%i,2*%i); |
(%i32) | cangle(-1+%i,1-%i,-sqrt(3)-sqrt(3)*%i); |
(%i33) | ratsimp(%); |