第四週作業

P4.1

triangle=[0 0;8 0;0 8*sqrt(3);-8 0;0 0];
%畫三角形
line(triangle(:,1),triangle(:,2));
h=line(triangle(:,1),triangle(:,2));
for i=1:1:360
    rotate(h,[0 0 1],1,[-8 0 0]);
%以[-8 0 0]為圓心旋轉三角形的動畫
    pause(0.001);
    axis([-40 40 -40 40]);
    axis equal;
    axis pause;
end;
for i=1:1:360
    rotate(h,[0 0 1],1,[0 8*sqrt(3) 0]);
%以[0 8*sqrt(3) 0]為圓心旋轉三角形的動畫
    pause(0.001);
    axis([-40 40 -40 40]);
    axis equal;
    axis pause;
end;
for i=1:1:360
    rotate(h,[0 0 1],1,[8 0 0]);
%以[8 0 0]為圓心旋轉三角形的動畫
    pause(0.001);
    axis([-40 40 -40 40]);
    axis equal;
    axis pause;
end;

P4.2


linkshape([0 0],[10 0],4);
%呼叫linkshape函式
%將連桿一端固定，另一端旋轉畫圓，每次旋轉30度
n=0:30:360;
x=10*cosd(n);
y=10*sind(n);
%由座標點(15,0)來觀察連桿轉動情形
for m=1:13;
    linkshape([x(m) y(m)],[0 0],4);
    line([x(m) 15],[y(m) 0],'color','r');
end;
axis equal;




P4.3

%利用linkshape函式畫一個四連桿
%讓其中一桿為固定邊，另為三桿逆時針旋轉，每次轉30度
linkshape([0 0],[10 0],2);
linkshape([0 0],[3 4],3);
linkshape([3 4],[13 4],1.5);
linkshape([13 4],[10 0],2);
n=0:30:360;
bx=5*cosd(n);
by=5*sind(n);
cx=5*cosd(n)+10;
cy=by;
%形成連桿的連續轉動圖形
for m=1:13;
    linkshape([0 0],[bx(m) by(m)],3);
    linkshape([bx(m) by(m)],[cx(m) cy(m)],1.5);
    linkshape([cx(m) cy(m)],[10 0],2);
    line([0 bx(m)],[0 by(m)],'color','r');
    line([bx(m) cx(m)],[by(m) cy(m)],'color','k');
    line([cx(m) 10],[cy(m) 0],'color','y');
end;
axis equal;