第四次作業

b94611013 林詠舜作業一程式碼n = 13L = n +10;a = L*cosd(60);b = L*sind(60);axis([-23 46 -23 23]);triangle = [0 0;L 0;a b;0 0];h = plot(triangle(:,1),triangle(:,2));axis equalfor i = 1:12axis([-25 50 -25 50]);rotate(h,[0 0 1],30,[0 0 0]);pause(0.05);endfor i = 1:12axis([-25 50 -25 50]);rotate(h,[0 0 1],30,[L 0 0]);pause(0.05);endfor i = 1:12axis([-25 50 -25 50]);rotate(h,[0 0 1],30,[a b 0]);pause(0.05);end作業二程式碼axis([-25 25 -25 25]);for n = 0:12a = 5*cosd(30*n);b = 5*sind(30*n);c = 15*cosd(30*n);d = 15*sind(30*n);linkshape([a b],[c d],4);linkshape([c d],[20 0],1); %另彈簧的一端固定在[20 0]pause(0.05);endaxis equal;彈簧與桿的相對位置作業三程式碼axis ([-10 20 -5 5]);th = atand(4/3);linkshape([10 0],[0 0],2)for n = 1:12a = 5*cosd(th + 30*n) % AB為主動桿,所以,以逆時針方向旋轉b = 5*sind(th + 30*n)c = 10 + 5*cosd(th+30*n)d = 5*sind(th+30*n)linkshape([0 0],[a b],3)linkshape([a b],[c d],1.5)linkshape([c d],[10 0],2)pause(0.1)endaxis equal四連桿的相對位置