################################################### # Solutions to Worksheet from Chap. 7 # # Creating Various Plots # ################################################### # A- Complex numbers # 7.1- z <- 1+2i plot(1,3,xlab="Re(z)",ylab="Im(z)",xlim=c(0,2.5), ylim=c(0,2.5), main="Complex numbers") segments(0,0,Re(z),Im(z)) points(Re(z),Im(z),pch=19) abline(h=0,v=0) segments(Re(z),0,Re(z),Im(z),lty=3) segments(0,Im(z),Re(z),Im(z),lty=3) text(Re(z),Im(z),"z",pos=4) text(0.4,1.1,"Mod(z)",srt=Arg(z)*180/pi) r<-0.5 x<-seq(from=Re(r*exp(1i*Arg(z))),to=r,length=100) y<-sqrt(0.5^2-x^2) points(x,y,type="l") text(0.55,0.35,"Arg(z)",srt=-45,cex=0.8)