作業九

b94611021 張淳皓
本週(5/3)有來上課

　由slider_limit程式分析可知，此組連桿在曲桿為8.5837度時為右極限角，最大之左極限角為237度，
　另外由參考書可知，由於本組機構連結桿與曲桿之長度差小於偏置量，故曲桿無法進行完整的360度迴轉
　以下是我所寫來做動畫的
　輸入之數值為slider_draw(31,36,10)
　R是曲桿 L是連桿 10是偏置距離
　本機構之R為21+10=31
　　　　　L為31+5=36
動畫結果




function slider_draw(R,L,e)
the1=slider_limit1(R,L,e)
the2=asind((L-e)/R)+180
ang=linspace(the1,the2,100);
d=slider_solved(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 ([-80 80 -80 80])
pause(0.05)
clf
end
ang=linspace(the2,180-the1,100);
d=slider_solved(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 ([-80 80 -80 80])
pause(0.05)
clf
end

　　以下是使用move_sldpaths做出的動畫
驅動桿驅動
　move_sldpaths([10 31 36 10],0,0,3,0,10,0,1,0,4,100)
情況一


　move_sldpaths([10 31 36 10],0,0,3,0,10,0,-1,0,4,100)
情況二



滑塊驅動
　move_sldpaths([10 31 36 10],0,0,3,0,10,0,1,1,4,100)
情況一


　move_sldpaths([10 31 36 10],0,0,3,0,10,0,-1,1,4,100)
情況二