2. Newtonian Mechanics

Newtonian Mechanics has a VECTORIAL approach to the problems

restart:

libname := `C:/libs/MBSymba.lib`, libname: with(MBSymba_r4):

PDEtools[declare](prime=t,quiet):

 

2.1 Components of a Mechanical System

Bodies

Figure depicting the rigid body

[Maple Metafile]

Creating a rigid body

command structure:  body1 := make_BODY (point of Center of Mass, mass, Ix comp, Iy comp, Iz comp, prod Cyz, prod Cxz, prod Cxy):

1 - Define the body reference frame

> TM := translate(x(t),0,z(t)) * rotate('Y',mu(t)) * rotate('Z',psi(t));

TM := matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), x(t)], [sin(psi(t)), cos(psi(t)), 0, 0], [-sin(mu(t))*cos(psi(t)), sin(mu(t))*sin(psi(t)), cos(mu(t)), z(t)], [0, 0, 0, 1]])

2 - Define the point of depicting the center of gravity

>G := make_POINT(TM,xg,yg,zg): show(G);

G = POINT(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), x(t)], [sin(psi(t)), cos(psi(t)), 0, 0], [-sin(mu(t))*cos(psi(t)), sin(mu(t))*sin(psi(t)), cos(mu(t)), z(t)], [0,...

3 - Define the rigid body

If the body has only principal moments of inertia

> body1 := make_BODY (G , m , Ix,Iy,Iz): show(body1);

body1 = BODY(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

If the body has principal moments and products of inertia

body1 := make_BODY (G , m , Ix,Iy,Iz, Cyz,Cxz,Cxy): show(body1);

body1 = BODY(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

Kinetic energy of the body

> kinetic_energy(body1);

1/2*m*((-sin(mu(t))*mu^`'`*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*psi^`'`*xg+sin(mu(t))*mu^`'`*sin(psi(t))*yg-cos(mu(t))*cos(psi(t))*psi^`'`*yg+cos(mu(t))*mu^`'`*zg+`x'`)^2+(psi^`'`)^2*(cos(psi(t))*xg-s...
1/2*m*((-sin(mu(t))*mu^`'`*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*psi^`'`*xg+sin(mu(t))*mu^`'`*sin(psi(t))*yg-cos(mu(t))*cos(psi(t))*psi^`'`*yg+cos(mu(t))*mu^`'`*zg+`x'`)^2+(psi^`'`)^2*(cos(psi(t))*xg-s...
1/2*m*((-sin(mu(t))*mu^`'`*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*psi^`'`*xg+sin(mu(t))*mu^`'`*sin(psi(t))*yg-cos(mu(t))*cos(psi(t))*psi^`'`*yg+cos(mu(t))*mu^`'`*zg+`x'`)^2+(psi^`'`)^2*(cos(psi(t))*xg-s...

Define the acceleration due to the gravity as a vector

>    _gravity := make_VECTOR(ground, 0,0,g):
show(_gravity);

_gravity = VECTOR(frame = ground,comps = matrix([[0], [0], [g], [0]]))

Gravitational (potential) energy of the body

>    gravitational_energy(body1);

-m*(-sin(mu(t))*cos(psi(t))*xg+sin(mu(t))*sin(psi(t))*yg+cos(mu(t))*zg+z(t))*g

Check the expression of  gravitational energy (result should equal zero)

>    - Zcomp(project(G,ground)) * g * m;
% - gravity_energy(body1);

-m*(-sin(mu(t))*cos(psi(t))*xg+sin(mu(t))*sin(psi(t))*yg+cos(mu(t))*zg+z(t))*g

-m*(-sin(mu(t))*cos(psi(t))*xg+sin(mu(t))*sin(psi(t))*yg+cos(mu(t))*zg+z(t))*g-gravity_energy(body1)

Forces

Define a force acting on a body

command structure:  make_FORCE(ref frame, x-comp, y-comp, z-comp , pt of application, body acted on, body reacted against):

1 - The reference frame

>    TF := rotate('X',phi(t));

TF := matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]])

2 - The application point of the force

>    A := make_POINT(TM,a,0,0): show(A);

A = POINT(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), x(t)], [sin(psi(t)), cos(psi(t)), 0, 0], [-sin(mu(t))*cos(psi(t)), sin(mu(t))*sin(psi(t)), cos(mu(t)), z(t)], [0,...

3 - The body on which the force acts

>    show(body1);

body1 = BODY(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

4a - Define a force acting on a single body (i.e. reacting on the ground)

>    Fext := make_FORCE(TF,FX,FY,FZ, A , body1): show(Fext);

Fext = FORCE(frame = matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]]),acting = body1,comps = matrix([[FX], [FY], [FZ], [0]]),applied = A)

4b - Define a force acting between two bodies

>    body2 := make_BODY(TF,m): show(body2);
>    F12 := make_FORCE(TF,FX12,FY12,FZ12, A , body1,body2): show(F12);

body2 = BODY(frame = matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]]),mass = m,inertia = matrix([[0, 0, 0], [0, 0, 0], [0, 0, 0]]))

F12 = FORCE(frame = matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]]),acting = body1,comps = matrix([[FX12], [FY12], [FZ12], [0]]),reacting = bod...

Vector operations such as projection can be performed on forces since they are vector entities

>    project(F12,ground): show(%);

FORCE(frame = ground,acting = body1,comps = matrix([[FX12], [cos(phi(t))*FY12-sin(phi(t))*FZ12], [sin(phi(t))*FY12+cos(phi(t))*FZ12], [0]]),reacting = body2,applied = A)

Torques

Torques can be defined in a similar fashion to forces

command structure:  make_TORQUE(ref frame, Mx-comp, My-comp, Mz-comp , body acted on, body reacted against)

Define a torque acting on a single body

>    M := make_TORQUE(TF, MX,MY,MZ, body1): show(M);

M = TORQUE(frame = matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]]),acting = body1,comps = matrix([[MX], [MY], [MZ], [0]]))

Define a torque acting between two bodies

>    M12 := make_TORQUE(TF, MX12,MY12,MZ12, body1,body2): show(M12);

M12 = TORQUE(frame = matrix([[1, 0, 0, 0], [0, cos(phi(t)), -sin(phi(t)), 0], [0, sin(phi(t)), cos(phi(t)), 0], [0, 0, 0, 1]]),acting = body1,comps = matrix([[MX12], [MY12], [MZ12], [0]]),reacting = bo...

2.2 Linear Momentum

The linear momentum of a body is the product of its mass multiplied by the velocity of the CoM (Center of Mass)

>    LM1 := linear_momentum(body1): show(LM1);  ground coordinates

LM1 = VECTOR(frame = ground,comps = matrix([[-m*(sin(mu(t))*mu^`'`*cos(psi(t))*xg+cos(mu(t))*sin(psi(t))*psi^`'`*xg-sin(mu(t))*mu^`'`*sin(psi(t))*yg+cos(mu(t))*cos(psi(t))*psi^`'`*yg-cos(mu(t))*mu^`'`*...

>    LM1 := project(LM1,TM): show(LM1); body coordinates

LM1 = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), x(t)], [sin(psi(t)), cos(psi(t)), 0, 0], [-sin(mu(t))*cos(psi(t)), sin(mu(t))*sin(psi(t)), cos(mu(t)), z(t)], ...

2.3 Newton's Equations

command structure:  eqnsN := newton_equations({body under consideration}, reference coordinate frame):

>    eqnsN := newton_equations({body1},ground): show(eqnsN); ground frame

eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...
eqnsN = VECTOR(frame = ground,comps = matrix([[-m*(cos(mu(t))*(mu^`'`)^2*cos(psi(t))*xg+sin(mu(t))*mu^`''`*cos(psi(t))*xg-2*sin(mu(t))*mu^`'`*sin(psi(t))*psi^`'`*xg+cos(mu(t))*cos(psi(t))*(psi^`'`)^2*x...

2.4 Angular Momentum

1 - The angular momentum of a point mass G with respect to a point P is equal to the cross product of PG (the distance from the axis of rotation to that point) multiplied by the linear momentum of the mass.

>    MF := translate(x(t),y(t),z(t));
>    point_mass := make_BODY( MF, m): #show(point_mass);
>    G := CoM(point_mass): #show(G);

Axis or point about which the mass is rotating

>    P := make_POINT(ground,px,py,pz): #show(P);

Angular momentum

command structure:   AM := cross_prod( perp dist btwn axis and pnt, linear momentum of the selected body):

>    PG := make_VECTOR(P,G): #show(PG);
>    AM := cross_prod(PG,linear_momentum(point_mass)): show(AM);

MF := matrix([[1, 0, 0, x(t)], [0, 1, 0, y(t)], [0, 0, 1, z(t)], [0, 0, 0, 1]])

AM = VECTOR(frame = ground,comps = matrix([[(-py+y(t))*m*`z'`-(-pz+z(t))*m*`y'`], [(-pz+z(t))*m*`x'`-(-px+x(t))*m*`z'`], [(-px+x(t))*m*`y'`-(-py+y(t))*m*`x'`], [0]]))

2 - The angular momentum of a rigid body with respect its center of mass is equal to the product of its inertia tensor by its angular velocity

command structure:  AM1 := angular_momentum( selected body, CoM(selected body)):  

>    show(body1);
>    show( angular_velocity(body1[frame]) );
>    AM1 := angular_momentum( body1, CoM(body1)):  show(AM1);

body1 = BODY(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi(t))*x...

AM1 = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

3 - The angular momentum of a rigid body with respect to a point P is the sum of the angular moment with respect the CoM plus the cross product of PG and the linear momentum

command structure AMP:  0 angular_momentum (specified body, axis of point of reference):

>    AMP := angular_momentum(body1, P ): show(AMP);

AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...
AMP = VECTOR(frame = matrix([[cos(mu(t))*cos(psi(t)), -cos(mu(t))*sin(psi(t)), sin(mu(t)), cos(mu(t))*cos(psi(t))*xg-cos(mu(t))*sin(psi(t))*yg+sin(mu(t))*zg+x(t)], [sin(psi(t)), cos(psi(t)), 0, sin(psi...

2.5 Euler Equations

The time derivative of the angular momentum must be equal to the angular momentum of all external forces (active and reactive)

>    {body1}: The system
>    P:    Axis or point about which the angular momentum is being calculated
>    ground: The reference frame

Euler eqns for the system

command structure:  eqnsE := euler_equations({specified body} , axis of point of rotation , reference frame):

eqnsE := euler_equations({body1} , P , ground ):

>    show(eqnsE);

eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...
eqnsE = VECTOR(frame = ground,comps = matrix([[cos(mu(t))*Cxy*mu^`''`+m*g*py+2*cos(mu(t))*cos(psi(t))^2*m*mu^`'`*psi^`'`*yg^2+2*cos(mu(t))*mu^`'`*m*psi^`'`*xg^2+cos(mu(t))*m*xg*mu^`''`*yg-sin(mu(t))*(m...