機動學第九次作業

b94611032 張鈞崴
本週(5/3)有來上課


使用slider_limit程式分析發現

the1 =

6.4514


the2 =

241.7575

這組曲桿的右極限角=6.4514

最大左極限角=241.7575



根據題目設定 R: 32+10=42 L: 42+5=47

輸入 slider_draw(42,47,10)






function slider_draw(R,L,e)
[s,theta21,theta22]=slider_limit(R,L,e)
ang=linspace(theta21,theta22,100);
[d,theta3]=slider_solve(ang,R,L,e,1)
x=R*cosd(ang);
y=R*sind(ang);
for n=1:100
line([0,x(n),d(n)],[0,y(n),e]);
line([d(n)-3,d(n)+3,d(n)+3,d(n)-3,d(n)-3],[e-2,e-2,e+2,e+2,e-2]);
axis equal
axis ([-100 100 -100 100]);
pause(0.05)
clf
end
ang=linspace(the2,180-the1,100);
[d,theta3]=slider_solve(ang,R,L,e,-1)
x=R*cosd(ang);
y=R*sind(ang);
for n=1:100
link_plot([0,x(n),d(n)],[0,y(n),e]);
line([d(n)-3,d(n)+3,d(n)+3,d(n)-3,d(n)-3],[e-2,e-2,e+2,e+2,e-2]);
axis equal
axis ([-100 100 -100 100]);
pause(0.05);
clf
end


謝謝教授