Advertisement
Guest User

Untitled

a guest
Dec 5th, 2016
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. ClearAll["Global`*"]
  2. polarRFun[r_,\[Theta]_]=\[Mu] *r - r^3;
  3. polar\[Theta]Fun[r_,\[Theta]_]=\[Omega] + \[Nu]*r^2;
  4. polarJ={{D[polarRFun[r,\[Theta]],r],D[polarRFun[r,\[Theta]],\[Theta]]},
  5. {D[polar\[Theta]Fun[r,\[Theta]],r],D[polar\[Theta]Fun[r,\[Theta]],\[Theta]]}};
  6. polarM=MatrixExp[polarJ*T]/.r->Sqrt[\[Mu]]
  7. Eigenvalues[polarM] 
  8. xyToR[x_,y_]=Sqrt[x^2 + y^2];
  9. xyTo\[Theta][x_,y_]=ArcTan[y/x];
  10. xyToPolarJ ={{D[xyToR[x,y],x],D[xyToR[x,y],y]},{D[xyTo\[Theta][x,y],x],D[xyTo\[Theta][x,y],y]}}/. 
  11. {x->Sqrt[\[Mu]],y->0}
  12. cM = Simplify[Inverse[xyToPolarJ].polarM.xyToPolarJ]
  13. Eigenvalues[cM]
  14. cM/.{\[Mu]->1/10,\[Nu]->1,T->2*\[Pi]/(1.1)}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement