第九次作業

我參考課本4-35到4-38頁
由於連桿和曲桿的長度差為5cm 小於偏置量e=10cm
所以曲桿不能完成360度的迴轉

利用slider_limit() 可以計算出衝程和界限距離
我的最小極限角為104.7138度 最大極限角為243.8911度

利用slider_solve()
輸入曲桿 連桿 連桿與水平線的夾角 偏置量
可以計算出任意曲桿角度之對應連結桿角度及水平距離

再利用slider_draw() 可做出動畫
影片

function slider_draw(R,L,e)
theta1=slider_limit(R,L,e)
theta2=asind((L-e)/R)+180
angel=linspace(theta1,theta2,100);
d=slider_solve(angel,R,L,e,1)

x=R*cosd(angel)
y=R*sind(angel)
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 ([-120 120 -120 120])
pause(0.01)
clf
end
ang=linspace(theta2,180-theta1,100);
d=slider_solve(angel,R,L,e,-1)
x=R*cosd(angel)
y=R*sind(angel)
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 ([-120 120 -120 120])
pause(0.01)
clf
end