第八次作業

8.1
[val,form]=f4bar([4 3 3 5],0,45,10,0,-1,0);
abs(val(:,3))'

ans =

0 10.0000 16.2681 4.9677
abs(val(:,4))'

ans =

0 0 491.4428 383.6120



8.2
drawlinks([4 3 3 5],0,45,10,0,-1,0);
hold on
line([2.1 2.1+0.41],[2.1 2.1-2.45],'color','red');
line([2.1+1.1 2.1+1.1-2.1],[2.1+2.8 2.1+2.8-2.1],'color','red');
line([2.1 2.1-18.7],[2.1 2.1-4.39]);

8.3
[Ang1, Ang2]=fb_angle_limits([4 3 3 5],0,0)

Ang1 =

28.9550


Ang2 =

331.0450

drawlinks([4 3 3 5],0,28.995,0,0,-1,0)

drawlinks([4 3 3 5],0, 331,0,0,-1,0)

8.4
for n=0:18;
drawlinks([4 3 3 5],0,n*20,0,0,-1,0);
hold on
end

8.5
axis equal
for n=1:43;
drawlinks([4 3 3 5],0,n*7,0,0,-1,0);
hold on
pause(0.002)
end