xxxxxxxxxx
display(r.eval("""
z<-complex(real=-sqrt(2-sqrt(3)),
imaginary=sqrt(2+sqrt(3)))
# polar form
zp<-Mod(z)*(cos(Arg(z))+sin(Arg(z))*sqrt(as.complex(-1)))
# exponential form
ze<-Mod(z)*exp(Arg(z)*sqrt(as.complex(-1)))
cat(zp==ze); c(z,zp,ze)"""))
No comments:
Post a Comment