2007年3月27日 星期二

作業四

第一題


程式碼
triangle=[10 0;0 10*sqrt(3);-10 0;10 0]
a=line(triangle(:,1),triangle(:,2))
axis equal
AXIS([-40 40 -40 40])
for n=1:180
rotate(a,[0 0 1],2,[-10 0 0])
pause(0.0001)
end
for n=1:180
rotate(a,[0 0 1],2,[10 0 0])
pause(0.0001)
end
for n=1:180
rotate(a,[0 0 1],2,[0 10*sqrt(3) 0])
pause(0.0001)
end


第二題


程式碼
linkshape([0,0],[10,0],4)
for t=0:20:360
x=10*cosd(t)
y=10*sind(t)
linkshape([0,0],[x,y],4)
line([15,x],[0,y])
pause(0.1)
end


第三題



程式碼
linkshape([10 0],[0 0],2)

for n = 1:12
t = atand(4/3);
b1 = 5*cosd(t + 30*n)
b2 = 5*sind(t + 30*n)
c1 = 10 + 5*cosd(t+30*n)
c2 = 5*sind(t+30*n)
linkshape([0 0],[b1 b2],3)
linkshape([b1 b2],[c1 c2],1.5)
linkshape([c1 c2],[10 0],2)
pause(0.5)
end


axis equal

1 則留言:

不留白老人 提到...

請多陳述解題的過程!