| |
| | [No title] |
 | | \\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["vr", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", \(r[ t]\ \((\(-\(\(G\ Mstar\)\/\((r[t]\^2 + z[t]\^2)\)\^\(3/2\)\)\) + \ \[Omega][t]\^2)\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(omegaPrime\ = \ \((\(\(\(\(Solve[ EquationTheta1, \ \(\[Omega]'\)[ t]]\)[\([1]\)]\)[\([1]\)] /. |
 | | zPrime)\)\)], "Input", FontSize->18], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Omega]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", \(-\(\(2\ vr[t]\ \[Omega][t]\)\/r[t]\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(vzPrime\ = \ \((\(\(\(\(Solve[ EquationZ1, \(vz'\)[t]]\)[\([1]\)]\)[\([1]\)] /. |
 | | vzPrime\)], "Input", FontSize->18], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", \(vr[t]\ \((t\ \[CapitalOmega]0 - \[Theta][t])\) + r[t]\ \((\[CapitalOmega]0 - \[Omega][t])\)\)}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(EquationYPrime\ = \ \(\(\(\(\(D[EquationY1, t] /. |
| www.me.berkeley.edu /ME298-52/xylar/dust_trapping_in_ppd.nb (2056 words) |
|