4(2d$h)L mC(2 Sin&Θ&t‘‘ Cos&Φ&t‘‘ #Sin&Φ&t‘‘ Cos&Θ&t”) $Φ‘&t‘%2$
1
2$mAB $2mC%gLSin&Θ&t‘‘ ‘0,
#
1
2(2d$h)mCCos&Φ&t‘‘ xA”&t‘$
1
2(2d$h)L mCCos&Θ&t‘#Φ&t‘‘ Θ”&t‘$
1
12 *h2$w2+$
1
4(2d$h)2mCΦ”&t‘#
1
2(2d$h)L mC(Sin&Θ&t‘‘ Cos&Φ&t‘‘ #Sin&Φ&t‘‘ Cos&Θ&t”) $Θ‘&t‘%2$
1
2
g(2d$h)mCSin&Φ&t‘‘ ‘0,;
Motion !
NDSolve&-EOMs,xA&0‘‘0, xA‘&0‘‘0, Θ&0‘‘30. Degree, Θ‘&0‘‘0, Φ&0‘‘45.0 Degree,
Φ‘&0‘‘0. /.Parameters,–xA,Θ,Φ.,–t, 0, 15.‘
Plot&xA&t‘ /.Motion&&1”,–t, 0, 15., AxesLabel “–“t“, “xA“.‘
Plot&Θ&t‘ /.Motion&&1”,–t, 0, 15., AxesLabel “–“t“, “Θ“.‘
Plot&Φ&t‘ /.Motion&&1”,–t, 0, 15., AxesLabel “–“t“, “Φ“.‘