第四次作業

第一題
AXIS([-50 50 -50 50]);
l=5+10;x=[0 l l/2 0];y=[0 0 l 0];
line(x,y,'color','r');
t=line(x,y,'color','r');
for n=1:360
rotate(t,[0 0 1],1,[0 0 0]);
pause(0.005);
end;
for n=1:360
rotate(t,[0 0 1],1,[l 0 0]);
pause(0.005);
end;
for n=1:360
rotate(t,[0 0 1],1,[l/2 l 0]);
pause(0.005);
end;
for n=1:360
rotate(t,[0 0 1],1,[0 0 0]);
pause(0.005);
end;

第二題
a=15;
b=0;
long=10;
for n=1:30:360;
x=long*cosd(n);
y=long*sind(n);
linkshape([x,y],[0,0],4);
line([x,a],[y,b]);
end

第三題
x1=0;
x2=3;
x3=13;
x4=10;
y1=0;
y2=4;
y3=4;
y4=0;
for n=1:30:360
linkshape([x2 y2],[x1 y1],2);
linkshape([x3 y3],[x2 y2],3);
linkshape([x4 y4],[x3 y3],1.5);
linkshape([x1 y1],[x4 y4],2);
X2=x2*cosd(n)+y2*sind(n);
Y23=-x2*sind(n)+y2*cosd(n);
X3=x3+(X2-y2);
linkshape([X2 Y23],[x1 y1],2);
linkshape([X3 Y23],[X2 Y23],3);
linkshape([x4 y4],[X3 Y23],1.5);
linkshape([x1 y1],[x4 y4],2);
end;