www.pudn.com > NumericalComputingwithMatlabCode.zip > goldrect.m, change:2001-12-31,size:325b


%GOLDRECT  Golden Rectangle 
%   GOLDRECT plots 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(phi/2,1.05,'\phi') 
text((1+phi)/2,-.05,'\phi - 1') 
text(-.05,.5,'1') 
text(.5,-.05,'1') 
axis equal 
axis off 
set(gcf,'color','white')