Code covered by the BSD License  

Highlights from
Mastering Mechanics 1: Using MATLAB 5

image thumbnail

Mastering Mechanics 1: Using MATLAB 5

by

 

20 Aug 2002 (Updated )

Companion Software

CH0606.m
af=[deg2xy([45 10 0 0]);0 -8 13 0];
restrain=threevector(af,[0 0 12;DR(-90) 0 12;DR(90) 13 12]);
external=[restrain; af];
p1=twovector(external(1:2,:),[0 DR(90)]);
fAp1=p1(1,:);
fCp1=p1(2,:);
fCp2=opp(move(fCp1,[0,0]));
p2=twovector([external(4,:);fCp2],[atan2(6.5,12),0]);
fDp2=p2(1,:);
fGp2=p2(2,:);
fGp3=opp(move(fGp2,[13,0]));
p3=twovector([external(5,:);fGp3],[atan2(12,-6.5),DR(90)]);
fEp3=p3(1,:);
fFp3=p3(2,:);
fFp4=opp(move(fFp3,[13,12]));
fBp4=onevector([external(3,:);fFp4]);
fAp5=opp(move(fAp1,[6.5,12]));
fBp5=opp(move(fBp4,[6.5,12]));
fDp5=opp(move(fDp2,[6.5,12]));
fEp5=opp(move(fEp3,[6.5,12]));
ifAD=[fAp1;fAp5;fBp5;fBp4;fCp1;fCp2;fDp2;fDp5];
ifEF=[fEp3;fEp5;fFp3;fFp4;fGp2;fGp3];
internal=[ifAD;ifEF];

Contact us