150 4 Dynamic Force Analysis
vB32 = sym(’vB32’,’real’);
aB32 = sym(’aB32’,’real’);
omega3=[00omega3z ];
vC=[000];
vB3 = vC + cross(omega3,rB-rC);
vB3B2 = vB32
*
[ cos(phi2) sin(phi2) 0];
eqvB = vB3 - vB2 - vB3B2;
eqvBx = eqvB(1); eqvBy = eqvB(2);
solvB = solve(eqvBx,eqvBy);
omega3zs = eval(solvB.omega3z);
vB32s = eval(solvB.vB32);
Omega3 = [0 0 omega3zs]; Omega2 = Omega3;
v32 = vB32s
*
[cos(phi2) sin(phi2) 0];
vD3 = vC + cross(Omega3,rD-rC); vD4 = vD3;
aB3B2cor = 2
*
cross(Omega3,v32);
alpha3=[00alpha3z ];
aC=[000];
aB3 = aC + cross(alpha3,rB-rC) - ...
dot(Omega3,Omega3)
*
(rB-rC);
aB3B2 = aB32
*
[ cos(phi2) sin(phi2) 0];
eqaB = aB3 - aB2 - aB3B2 - aB3B2cor;
eqaBx = eqaB(1); eqaBy = eqaB(2);
solaB = solve(eqaBx,eqaBy);
alpha3zs = eval(solaB.alpha3z);
aB32s = eval(solaB.aB32);
Alpha3 = [0 0 alpha3zs]; Alpha2 = Alpha3;
aD3 = aC + cross(Alpha3,rD-rC) - ...
dot(Omega3,Omega3)
*
(rD-rC);
aD4=aD3;
omega5z = sym(’omega5z’,’real’);
alpha5z = sym(’alpha5z’,’real’);
vD54 = sym(’vD54’,’real’);
aD54 = sym(’aD54’,’real’);
omega5=[00omega5z ];
vD5 = vA + cross(omega5,rD-rA);
vD5D4 = vD54
*
[ cos(phi5) sin(phi5) 0];
eqvD = vD5 - vD4 - vD5D4;
eqvDx = eqvD(1); eqvDy = eqvD(2);
solvD = solve(eqvDx,eqvDy);
omega5zs = eval(solvD.omega5z);
vD54s = eval(solvD.vD54);
Omega5 = [0 0 omega5zs];
v54 = vD54s
*
[cos(phi5) sin(phi5) 0];
Omega4 = Omega5;
aD5D4cor = 2
*
cross(Omega5,v54);