Lab5B_Ex2 - (* Content-type: application/mathematica *) (*...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) ( (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) ( (* CreatedBy='Mathematica 6.0' *) ( (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 13205, 441] NotebookOptionsPosition[ 11229, 368] NotebookOutlinePosition[ 11565, 383] CellTagsIndexPosition[ 11522, 380] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Exercise", " ", "2"}]], "Input", CellChangeTimes->{{3.4353337277228923`*^9, 3.4353337341290607`*^9}}], Cell[BoxData[{ RowBox[{"(", "a", ")"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "One", " ", "end", " ", "point", " ", "of", " ", "C", " ", "is", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", RowBox[{"6.37", "E6"}]}], ")"}], "when", " ", "t"}], "=", "0"}], ",", " ", RowBox[{ "and", " ", "C", " ", "become", " ", "infinite", " ", "when", " ", "t", " ", "approach", " ", "to", " ", "1."}]}]}], "Input", CellChangeTimes->{{3.4353338053000245`*^9, 3.435333846643245*^9}, { 3.4353339728603797`*^9, 3.435334001141268*^9}, {3.43534015837317*^9, 3.435340224610688*^9}}], Cell[BoxData[ RowBox[{"(", "b", ")"}]], "Input", CellChangeTimes->{{3.4353342553098893`*^9, 3.435334255653635*^9}, 3.435340227681716*^9}], Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"R", "/", RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4353342577004833`*^9, 3.4353342873719788`*^9}}],
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox["R", RowBox[{"1", "-", "t"}]]}], "}"}]], "Output", CellChangeTimes->{3.435340367722289*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"m", "=", "90"}]], "Input", CellChangeTimes->{{3.435334562915327*^9, 3.435334585305665*^9}}], Cell[BoxData["90"], "Output", CellChangeTimes->{3.435340372821054*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"M", "=", RowBox[{"5.98", "*", RowBox[{"10", "^", "24"}]}]}]], "Input", CellChangeTimes->{{3.4353347803969183`*^9, 3.4353347901467934`*^9}, 3.4353402648068533`*^9}], Cell[BoxData["5.98`*^24"], "Output", CellChangeTimes->{3.435340348903172*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"G", "=", RowBox[{"6.67", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "11"}], ")"}]}]}]}]], "Input"], Cell[BoxData["6.67`*^-11"], "Output", CellChangeTimes->{3.435340350088739*^9}] }, Open ]], } Cell[BoxData[ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "G"}], "*", "m", "*", RowBox[{"M", "/", RowBox[{"z", "^", "2"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4353342757315025`*^9, 3.4353343289339466`*^9}, { 3.4353347720064*^9, 3.435334797834195*^9}, {3.435334891489246*^9, 3.4353348942548356`*^9}, 3.435335096439748*^9, {3.4353351517515397`*^9, 3.435335155095247*^9}}],
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 03/07/2011 for the course MATH 2374 taught by Professor Mosher during the Spring '07 term at Minnesota.

Page1 / 8

Lab5B_Ex2 - (* Content-type: application/mathematica *) (*...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online