#====================
# Figure 8.2.R.
# R script to draw a Golden Rectangle figure.
#====================
xx=c(-3,3)
yy=c(-3,3)
g=.618034
x1=-2
x2=2
y1=-2+(4-4*g)/2
y2=2-(4-4*g)/2
plot(xx,yy,xlim=c(-2,2),ylim=c(-2,2),asp=1,axes=FALSE,ann=FALSE)
rect(x1,y1,x2,y2)
x3=-2+4*g
lines(c(x3,x3),c(y1,y2))
arrows(x1,-1.5,x2,-1.5,angle=20,length=.2,code=3)
text(0,-1.7,expression(italic(x)),cex=2)
x4=(x1+x3)/2
text(x4,-1,expression(1),cex=1.5)
x5=(x3+x2)/2
text(x5,-1,expression(italic(x)-1),cex=1.5)
x6=.3
text(x6,0,expression(1),cex=1.5)