%GOLDRECT Plot the golden rectangle

phi=(1+sqrt(5))/2;
x=[0 phi phi 0 0];
y= [0 0 1 1 0];
u=[1 1];
v=[0 1];
plot(x,y,'b',u,v,'b--')
text((1+phi)/2,-.05,'\phi -1')
text(phi/2,1.05,'\phi')
text(-0.5,-.05,'1')
text(.5,-0.05,'1')
axis equal
axis off
set (gcf,'color','white')