作業3-3

r=100; %宣告外接圓的半徑
thy=0:1:360; %用以畫圓的連續度數
rh=20; %宣告頭的半徑

%設定各點
x=[r*cosd(30),-r*cosd(30),-r*cosd(60),r*cosd(60),0,0,0,0];y=[r*sind(30),r*sind(30),-r*sind(60),-r*sind(60),30,-20,45,65];

%利用迴圈開始畫圖
for thyta=0:pi/6:2*pi,

% 各點的旋轉,移動與繪出
Xp=x*cos(thyta)+y*sin(thyta);
Yp=-x*sin(thyta)+y*cos(thyta);
Xp=Xp+r*thyta;

%頭的旋轉,移動與繪出
Xh=Xp(8)+rh*cosd(thy);
Yh=Yp(8)+rh*sind(thy);
plot(Xh,Yh,'m');
hold on;

%外接圓的移動與繪出
Xc=r*thyta+r*cosd(thy);
Yc=r*sind(thy);
plot(Xc,Yc,'r');
hold on;

%軀幹與四肢等的連線
line([Xp(1),Xp(5)],[Yp(1),Yp(5)]);
line([Xp(2),Xp(5)],[Yp(2),Yp(5)]);
line([Xp(6),Xp(3)],[Yp(6),Yp(3)]);
line([Xp(6),Xp(4)],[Yp(6),Yp(4)]);
line([Xp(6),Xp(7)],[Yp(6),Yp(7)]);

end; %跳出迴圈

axis equal; %刻度比例調成一致
grid on; %打開網線






















２.基本上若要以輸入身高轉換成半徑
我們需要以下列式子進行換算

r=h/1.618
此式子是根據人體黃金比例圖去計算

因為頭頂至地面之身高/肚子至地面之高度約等於1.618