Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. sol={-k x[t]+l m2 Sin[[Theta][t]] ([Theta]^[Prime])[t]^2-(m1+m2) (x^[Prime][Prime])[t]-l m2 Cos[[Theta][t]] ([Theta]^[Prime][Prime])[t]==0,-l m2 (g Sin[[Theta][t]]+Cos[[Theta][t]] (x^[Prime][Prime])[t]+l ([Theta]^[Prime][Prime])[t])==0}
  2.  
  3. Cases[sol,Derivative[2][x][t]]
  4.  
  5. {}
  6.  
  7. Position[sol,Derivative[2][x][t]]
  8.  
  9. {{1, 1, 3, 3}, {2, 1, 4, 2, 2}}
  10.  
  11. sol[[2, 1, 4, 2, 2]](*x''[t]*)
  12. sol[[1, 1, 3, 3]](*x''[t]*)
  13.  
  14. HoldForm[MatrixForm[{F,T}]==MatrixForm[MatrixForm[{{m1+m2,m2 l Cos[[Theta][t]]},{m2 l Cos[[Theta][t]],m2 l^2}}].MatrixForm[{x''[t],[Theta]''[t]}]]+MatrixForm[{{0,-m2 l Sin[[Theta][t]]},{0,0}}].MatrixForm[{x'[t]^2,[Theta]'[t]^2}]+MatrixForm[{k x[t],m2 g l Sin[[Theta][t]]}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement