(* 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[ 40267, 1190] NotebookOptionsPosition[ 22534, 762] NotebookOutlinePosition[ 34541, 1040] CellTagsIndexPosition[ 32311, 992] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Symbolic and Numeric Calculations File Input and Output\ \>", "Title"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has a powerful array of functions that solve equations symbolically and \ ways to simplify expressions. Many people use ", StyleBox["Mathematica", FontSlant->"Italic"], " because it removes the tedium of doing algebra with pencil and paper---and \ perhaps more importantly it doesn't make errors! However, one frustrating \ aspect is getting ", StyleBox["Mathematica", FontSlant->"Italic"], " to represent an expression in exactly the form you desire. Sometimes it \ is possible with patience, practice, and skill---and sometimes you have to \ give up and accept that the form of the expression will not be ``neat and \ compact.'' " }], "Text", CellChangeTimes->{{3.3955675231215687`*^9, 3.395567529815143*^9}}], Cell[CellGroupData[{ Cell["\<\ Operations on Polynomials, Rational Expressions, and Simplification of \ Expressions\ \>", "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}], Cell[TextData[{ "A good way to gain familiarity with ", StyleBox["Mathematica", FontSlant->"Italic"], "'s operations to do symbolic algebra is to look though the categories in \ the Built-in Functions section in the Help Browser. Look though the names of \ functions under Algebraic Computation--they have names that are fairly \ indicative of their purpose." }], "Text"], Cell[BoxData[ RowBox[{"PaulENomeal", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "+", " ", RowBox[{"2", "a"}], " ", "+", " ", RowBox[{"3", "x"}], " ", "+", " ", RowBox[{"4", "z"}]}], ")"}], "^", "4"}]}]], "Input"], Cell[BoxData[ RowBox[{"FatPEN", " ", "=", " ", RowBox[{"Expand", "[", "PaulENomeal", "]"}]}]], "Input", CellTags->"mmtag:04:Expand[]"], Cell[BoxData[ RowBox[{"Factor", "[", "FatPEN", "]"}]], "Input", CellTags->"mmtag:04:Factor[]"], Cell[BoxData[ RowBox[{"PaulinX", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{"FatPEN", ",", "x"}], "]"}]}]], "Input", CellTags->"mmtag:04:Collect[]"], Cell[TextData[{ "The coefficient of ", Cell[BoxData[ FormBox[ SuperscriptBox["x", "2"], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.395566164626919*^9, 3.3955662214418793`*^9}}], Cell[BoxData[ RowBox[{"Coefficient", "[", RowBox[{"PaulinX", ",", "x", ",", "2"}], "]"}]], "Input", CellChangeTimes->{3.3955662090421762`*^9}, CellTags->"mmtag:04:Simplify[]"], Cell["\<\ Rewrite as a polynomial in x, but simplify the coefficients individually\ \>", "Text", CellChangeTimes->{{3.3955662500774*^9, 3.395566285143456*^9}}], Cell[BoxData[ RowBox[{"PaulSpiffedUp", " ", "=", " ", RowBox[{"Sum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Coefficient", "[", RowBox[{"PaulinX", ",", "x", ",", "i"}], "]"}], "]"}], RowBox[{"x", "^", "i"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", "PaulSpiffedUp", "]"}]], "Input"], Cell["Rational Expressions", "Section", CellChangeTimes->{{3.395566799359002*^9, 3.395566832172991*^9}}], Cell[BoxData[ RowBox[{"RashENell", " ", "=", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]], " ", "+", " ", FractionBox[ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], RowBox[{"(", RowBox[{"y", "+", "x"}], ")"}]], " "}]}]], "Input"], Cell[BoxData[ RowBox[{"Apart", "[", "RashENell", "]"}]], "Input", CellTags->"mmtag:04:Apart[]"], Cell[BoxData[ RowBox[{"Together", "[", "RashENell", "]"}]], "Input", CellTags->"mmtag:04:Together[]"], Cell[BoxData[ RowBox[{"Apart", "[", RowBox[{"Together", "[", "RashENell", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Numerator", "[", RowBox[{"Together", "[", "RashENell", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", "RashENell", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", "RashENell", "]"}]], "Input"], Cell["Simplfiying Expressions with Square Roots", "Section", CellChangeTimes->{{3.395566799359002*^9, 3.395566803688177*^9}, { 3.3955668438621073`*^9, 3.39556686707351*^9}}], Cell[TextData[{ "One common hurdle is getting ", StyleBox["Mathematica", FontSlant->"Italic"], " to remove roots:" }], "Text", CellTags->{ "mmtag:04:simplyfing__roots_of_squares", "mmtag:04:roots_of_squares__simplifying"}], Cell[BoxData[ RowBox[{"RootBoy", " ", "=", " ", SqrtBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "2"]]}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", "RootBoy", "]"}]], "Input"], Cell["\<\ Note in the following statement that \"x \[Element] Reals\" means \"x is a \ real number\" and \"&&\" is the \"Logical And\" operator.\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"RootBoy", ",", " ", RowBox[{ RowBox[{"x", "\[Element]", " ", "Reals"}], " ", "&&", " ", RowBox[{"y", " ", "\[Element]", " ", "Reals"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"RootBoy", ",", " ", RowBox[{ RowBox[{"x", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", RowBox[{"y", " ", "\[GreaterEqual]", " ", "0"}]}]}], "]"}]], "Input"], Cell["Brute force; clever , but not a good idea follows:", "Text", CellChangeTimes->{3.395566361463662*^9}], Cell[BoxData[ RowBox[{"RootBoy", "/.", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", "expr_", ")"}], "^", "2"}], "]"}], "\[Rule]", " ", "expr"}]}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Calculus", "Subtitle"], Cell[BoxData[ RowBox[{"AMessyExpression", " ", "=", " ", FractionBox[ RowBox[{"Log", "[", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}], "]"}], FractionBox["1", "x"]]}]], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{"AMessyExpression", ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input", CellTags->{"mmtag:04:Limit[]", "mmtag:04:limits"}], Cell[BoxData[ RowBox[{"DMess", " ", "=", " ", RowBox[{"D", "[", RowBox[{"AMessyExpression", ",", "x"}], "]"}]}]], "Input", CellTags->"mmtag:04:derivatives_D[]"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{"DMess", ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"DefInt1", " ", "=", RowBox[{"Integrate", "[", RowBox[{"DMess", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[ExponentialE]"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.395566419382124*^9, {3.395566474177285*^9, 3.395566488564589*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"AMessyExpression", "/.", RowBox[{"x", "\[Rule]", "e"}]}], ")"}], " ", "-", " ", RowBox[{"(", RowBox[{"AMessyExpression", "/.", RowBox[{"x", "\[Rule]", "0"}]}], ")"}]}]], "Input", CellTags->"mmtag:04:definite_integrals__brute_force"], Cell[BoxData[ RowBox[{"DefInt2", " ", "=", RowBox[{ RowBox[{"(", RowBox[{"AMessyExpression", "/.", RowBox[{"x", "\[Rule]", "\[ExponentialE]"}]}], ")"}], " ", "-", " ", RowBox[{"Limit", "[", RowBox[{"AMessyExpression", ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.395566504402162*^9, 3.395566509544311*^9}}], Cell[BoxData[{"DefInt1", "\[IndentingNewLine]", "DefInt2", "\ \[IndentingNewLine]", RowBox[{"DefInt1", " ", "\[Equal]", " ", "DefInt2"}]}], "Input", CellChangeTimes->{{3.395566517105714*^9, 3.395566543761145*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], SqrtBox[ RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["x", "2"]}]]], ",", "x", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Re", "[", RowBox[{"a", "^", "2"}], "]"}], ">", "0"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"UglyInfiniteIntegral", " ", "=", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Re", "[", RowBox[{"a", "^", "2"}], "]"}], ">", "0"}]}]}], "]"}]}]], "Input", CellTags->{"mmtag:04:definite_integrals", "mmtag:04:integrals__definite"}], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"UglyInfiniteIntegral", "/.", RowBox[{"a", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell["Taylor Expansions", "Section", CellChangeTimes->{{3.395566799359002*^9, 3.395566803688177*^9}, { 3.395566927341003*^9, 3.3955669317557*^9}}], Cell[TextData[{ "Now we will introduce the Taylor expansion capabilities in ", StyleBox["Mathematica", FontSlant->"Italic"], ":" }], "Text", CellTags->{"mmtag:04:Series[]", "mmtag:04:Series[]_Taylor_series"}], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{"AMessyExpression", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FitAtZero", " ", "=", " ", RowBox[{ RowBox[{"Series", "[", RowBox[{"AMessyExpression", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", "Normal"}]}]], "Input", CellTags->{ "mmtag:04:Series[]__converting_form_of", "mmtag:04:Normal[]__converting_form_of_Series[]"}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"AMessyExpression", ",", "FitAtZero"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.02", "]"}], ",", RowBox[{"Hue", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Hue", "[", "0.5", "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellTags->{ "mmtag:04:fitting_with_series__example", "mmtag:04:series__example_of_fit"}] }, Closed]], Cell[CellGroupData[{ Cell["Solving Equations", "Subtitle", CellTags->{ "mmtag:04:solving_systems_of_equations", "mmtag:04:systems_of_equations__Solve[]", "mmtag:04:Solve[]"}], Cell[BoxData[ RowBox[{"TheEquation", " ", "=", " ", RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], " ", "+", " ", RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}]}]], "Input"], Cell[TextData[{ "Note the use of ", StyleBox["Equal", FontWeight->"Bold"], " (==) rather than ", StyleBox["Set", FontWeight->"Bold"], " (=) in the following; using \"=\" will produce an error message." }], "Text"], Cell[BoxData[ RowBox[{"TheZeroes", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"TheEquation", " ", "==", "0"}], ",", "x"}], "]"}]}]], "Input"], Cell[TextData[{ "Note that the roots are given as ", StyleBox["Rules", FontWeight->"Bold"], ". Now we ask ", StyleBox["Mathematica", FontSlant->"Italic"], " to verify that the solutions it found are indeed roots to the specified \ equation. Here is a prototypical example of using ", StyleBox["Replace", FontWeight->"Bold"], " (/.) to accomplish this:" }], "Subsubsection"], Cell[BoxData[ RowBox[{"TheEquation", "/.", "TheZeroes"}]], "Input", CellTags->{ "mmtag:04:Solve[]__using_rules_produced_by", "mmtag:04:Solve[]__extracting_results"}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"TheEquation", "/.", "TheZeroes"}], "]"}]], "Input"], Cell[TextData[{ "More examples of using ", StyleBox["Solve", FontWeight->"Bold"], ":" }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"a", "[", "i_", "]"}], " ", ":=", " ", RowBox[{"i", "+", "1"}]}]], "Input"], Cell[BoxData[ RowBox[{"TheQuinticEquation", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "i", "]"}], " ", RowBox[{"x", "^", "i"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"TheQuinticEquation", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input", CellTags->"mmtag:04:Solve[]__form_of_undetermined_result"], Cell[BoxData[{ RowBox[{"Quad1", " ", "=", " ", RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], " ", "+", " ", "y", " ", "+", " ", "3"}]}], "\[IndentingNewLine]", RowBox[{"Quad2", " ", "=", " ", RowBox[{ RowBox[{"a", " ", RowBox[{"y", "^", "2"}]}], " ", "+", "x", " ", "+", " ", "1"}]}]}], "Input"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quad1", "\[Equal]", "0"}], ",", RowBox[{"Quad2", "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Numerical Solutions", "Subtitle", CellTags->"mmtag:04:numerical_solutions"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", " ", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", " ", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", " ", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ")"}], "/.", RowBox[{"a", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]], "Input", CellTags->"mmtag:04:numerical_integration_NIntegrate[]"], Cell[BoxData[ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", " ", "x", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"a", "^", "2"}]}], ")"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"Large", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.395566967123065*^9, 3.395566989885903*^9}, { 3.395567050369822*^9, 3.395567110260936*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"AMessyExpression", ",", "FitAtZero"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.02", "]"}], ",", RowBox[{"Hue", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Hue", "[", "0.5", "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellTags->"mmtag:04:PlotStyle__example_using"], Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{ RowBox[{"AMessyExpression", "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"AMessyExpression", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", ".5", ",", "1.5"}], "}"}]}], "]"}]], "Input", CellTags->"mmtag:04:FindRoot[]"], Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"FitAtZero", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", ".5", ",", "1.5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"AMessyExpression", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "2.5", ",", "3"}], "}"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["File Input and Output", "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}], Cell["\<\ This will show the directory (folder) to which files are currently being \ written or read.\ \>", "Text", CellChangeTimes->{{3.395566799359002*^9, 3.395566803688177*^9}, { 3.395567175318151*^9, 3.395567217841362*^9}}], Cell[BoxData[ RowBox[{"Directory", "[", "]"}]], "Input", CellChangeTimes->{{3.3955655003916893`*^9, 3.395565527669375*^9}}], Cell[BoxData[ RowBox[{"AMessyExpression", " ", ">>", " ", "AFile.m"}]], "Input"], Cell[BoxData[ RowBox[{"Clear", "[", "AMessyExpression", "]"}]], "Input"], Cell[BoxData[ RowBox[{"<<", "Afile.m"}]], "Input"], Cell["\<\ The previous statement reads in the expression, but it is not assigned to its \ previous symbol\ \>", "Text", CellChangeTimes->{{3.395639767704034*^9, 3.3956397998943357`*^9}}], Cell[BoxData["AMessyExpression"], "Input"], Cell[BoxData[ RowBox[{"AMessyExpression", " ", "=", " ", RowBox[{"<<", " ", "AFile.m"}]}]], "Input"], Cell[BoxData["AMessyExpression"], "Input"], Cell[BoxData[ RowBox[{"FilePrint", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.3955657597559643`*^9, 3.395565771946599*^9}}], Cell[BoxData[ RowBox[{"Close", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{"AFileHandle", " ", "=", " ", RowBox[{"OpenWrite", "[", RowBox[{"\"\\"", ",", RowBox[{"FormatType", "\[Rule]", "OutputForm"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"RandomPairs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.395566087688909*^9, 3.395566087792419*^9}}, CellTags->"mmtag:04:Random[]__example_using"], Cell[BoxData[ RowBox[{"Write", "[", RowBox[{"AFileHandle", ",", "RandomPairs"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FilePrint", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.3955657948297443`*^9, 3.395565804400489*^9}}], Cell[BoxData[ RowBox[{"Write", "[", RowBox[{"AFileHandle", ",", RowBox[{"MatrixForm", "[", "RandomPairs", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FilePrint", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.395566054161154*^9, 3.395566062969553*^9}}], Cell[BoxData[ RowBox[{"Close", "[", "AFileHandle", "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Using Packages", "Subtitle", CellTags->{ "mmtag:04:Mathematica_packages", "mmtag:04:packages_in_Mathematica"}], Cell[TextData[{ "Fortunately, others have gone to the trouble of writing files full of \ useful stuff--and you can load this stuff into ", StyleBox["Mathematica", FontSlant->"Italic"], " for your very own use. Some people produce useful stuff and you can buy \ it, which is nice if you find it valuable--and you can write stuff and gain \ value by selling it, which might be even more nice.\n", StyleBox["Mathematica", FontSlant->"Italic"], " comes with a group of Standard Packages, that you can load in to do \ special tasks. The Package documentation can be found with the Helper \ Palette, available ", ButtonBox["here", BaseStyle->"Hyperlink", ButtonData->{ URL["http://pruffle.mit.edu/3.016/Help-Palette-Builder.nb"], None}], ". For example, take a look at the specialized package Calendar:" }], "Text", CellChangeTimes->{{3.395564599741789*^9, 3.395564628580523*^9}, { 3.3955647356505213`*^9, 3.395564755905366*^9}}], Cell[BoxData[ RowBox[{"<<", "Calendar`"}]], "Input", CellChangeTimes->{{3.395564566993659*^9, 3.395564572310359*^9}}], Cell[BoxData[ RowBox[{"DayOfWeek", "[", RowBox[{"{", RowBox[{"1929", ",", "9", ",", "30"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.395564888227852*^9, 3.3955649397195377`*^9}}], Cell[BoxData[ RowBox[{"DateList", "[", "]"}]], "Input", CellChangeTimes->{{3.395565020562492*^9, 3.39556503100243*^9}}], Cell[BoxData[ RowBox[{"CalendarChange", "[", RowBox[{ RowBox[{"DateList", "[", "]"}], ",", "Gregorian", ",", "Islamic"}], "]"}]], "Input", CellChangeTimes->{{3.395564961536786*^9, 3.395565038931348*^9}}], Cell[BoxData[ RowBox[{"DateString", "[", RowBox[{"CalendarChange", "[", RowBox[{ RowBox[{"DateList", "[", "]"}], ",", "Gregorian", ",", "Islamic"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.395565135758622*^9, 3.3955651388163157`*^9}, { 3.395565196599183*^9, 3.3955652052270193`*^9}}] }, Closed]] }, ScreenStyleEnvironment->"Presentation", PrintingStyleEnvironment->"FullPageBWPrint", CellGrouping->Manual, WindowSize->{1087, 809}, WindowMargins->{{Automatic, 89}, {Automatic, 0}}, WindowTitle->"Lecture 04 MIT 3.016 (Fall 2007) \[Copyright] W. Craig Carter \ 2003-2007", PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Portrait"}, CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions->"3016-Carter.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "mmtag:04:expressions__simplifying"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:simplifying_expressions"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:expressions__simplifying__Factor[]"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:expressions__simplifying__Collect[]"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:expressions__simplifying__Simplify[]"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:expressions__simplifying__Apart[]"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:expressions__simplifying__Together[]"->{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}]}, "mmtag:04:Expand[]"->{ Cell[2569, 78, 139, 3, 54, "Input", CellTags->"mmtag:04:Expand[]"]}, "mmtag:04:Factor[]"->{ Cell[2711, 83, 96, 2, 54, "Input", CellTags->"mmtag:04:Factor[]"]}, "mmtag:04:Collect[]"->{ Cell[2810, 87, 161, 4, 54, "Input", CellTags->"mmtag:04:Collect[]"]}, "mmtag:04:Simplify[]"->{ Cell[3170, 101, 181, 4, 54, "Input", CellTags->"mmtag:04:Simplify[]"]}, "mmtag:04:Apart[]"->{ Cell[4441, 144, 97, 2, 54, "Input", CellTags->"mmtag:04:Apart[]"]}, "mmtag:04:Together[]"->{ Cell[4541, 148, 103, 2, 54, "Input", CellTags->"mmtag:04:Together[]"]}, "mmtag:04:simplyfing__roots_of_squares"->{ Cell[5180, 170, 235, 8, 30, "Text", CellTags->{ "mmtag:04:simplyfing__roots_of_squares", "mmtag:04:roots_of_squares__simplifying"}]}, "mmtag:04:roots_of_squares__simplifying"->{ Cell[5180, 170, 235, 8, 30, "Text", CellTags->{ "mmtag:04:simplyfing__roots_of_squares", "mmtag:04:roots_of_squares__simplifying"}]}, "mmtag:04:Limit[]"->{ Cell[6837, 233, 178, 4, 54, "Input", CellTags->{"mmtag:04:Limit[]", "mmtag:04:limits"}]}, "mmtag:04:limits"->{ Cell[6837, 233, 178, 4, 54, "Input", CellTags->{"mmtag:04:Limit[]", "mmtag:04:limits"}]}, "mmtag:04:derivatives_D[]"->{ Cell[7018, 239, 169, 4, 54, "Input", CellTags->"mmtag:04:derivatives_D[]"]}, "mmtag:04:definite_integrals__brute_force"->{ Cell[7579, 259, 302, 8, 54, "Input", CellTags->"mmtag:04:definite_integrals__brute_force"]}, "mmtag:04:definite_integrals"->{ Cell[9149, 310, 643, 17, 115, "Input", CellTags->{ "mmtag:04:definite_integrals", "mmtag:04:integrals__definite"}]}, "mmtag:04:integrals__definite"->{ Cell[9149, 310, 643, 17, 115, "Input", CellTags->{ "mmtag:04:definite_integrals", "mmtag:04:integrals__definite"}]}, "mmtag:04:Series[]"->{ Cell[10077, 338, 214, 6, 30, "Text", CellTags->{"mmtag:04:Series[]", "mmtag:04:Series[]_Taylor_series"}]}, "mmtag:04:Series[]_Taylor_series"->{ Cell[10077, 338, 214, 6, 30, "Text", CellTags->{"mmtag:04:Series[]", "mmtag:04:Series[]_Taylor_series"}]}, "mmtag:04:Series[]__converting_form_of"->{ Cell[10453, 352, 348, 10, 54, "Input", CellTags->{ "mmtag:04:Series[]__converting_form_of", "mmtag:04:Normal[]__converting_form_of_Series[]"}]}, "mmtag:04:Normal[]__converting_form_of_Series[]"->{ Cell[10453, 352, 348, 10, 54, "Input", CellTags->{ "mmtag:04:Series[]__converting_form_of", "mmtag:04:Normal[]__converting_form_of_Series[]"}]}, "mmtag:04:fitting_with_series__example"->{ Cell[10804, 364, 679, 20, 115, "Input", CellTags->{ "mmtag:04:fitting_with_series__example", "mmtag:04:series__example_of_fit"}]}, "mmtag:04:series__example_of_fit"->{ Cell[10804, 364, 679, 20, 115, "Input", CellTags->{ "mmtag:04:fitting_with_series__example", "mmtag:04:series__example_of_fit"}]}, "mmtag:04:solving_systems_of_equations"->{ Cell[11520, 389, 160, 3, 56, "Subtitle", CellTags->{ "mmtag:04:solving_systems_of_equations", "mmtag:04:systems_of_equations__Solve[]", "mmtag:04:Solve[]"}]}, "mmtag:04:systems_of_equations__Solve[]"->{ Cell[11520, 389, 160, 3, 56, "Subtitle", CellTags->{ "mmtag:04:solving_systems_of_equations", "mmtag:04:systems_of_equations__Solve[]", "mmtag:04:Solve[]"}]}, "mmtag:04:Solve[]"->{ Cell[11520, 389, 160, 3, 56, "Subtitle", CellTags->{ "mmtag:04:solving_systems_of_equations", "mmtag:04:systems_of_equations__Solve[]", "mmtag:04:Solve[]"}]}, "mmtag:04:Solve[]__using_rules_produced_by"->{ Cell[12662, 431, 173, 4, 54, "Input", CellTags->{ "mmtag:04:Solve[]__using_rules_produced_by", "mmtag:04:Solve[]__extracting_results"}]}, "mmtag:04:Solve[]__extracting_results"->{ Cell[12662, 431, 173, 4, 54, "Input", CellTags->{ "mmtag:04:Solve[]__using_rules_produced_by", "mmtag:04:Solve[]__extracting_results"}]}, "mmtag:04:Solve[]__form_of_undetermined_result"->{ Cell[13440, 463, 192, 5, 54, "Input", CellTags->"mmtag:04:Solve[]__form_of_undetermined_result"]}, "mmtag:04:numerical_solutions"->{ Cell[14264, 495, 82, 1, 56, "Subtitle", CellTags->"mmtag:04:numerical_solutions"]}, "mmtag:04:numerical_integration_NIntegrate[]"->{ Cell[15010, 522, 538, 16, 54, "Input", CellTags->"mmtag:04:numerical_integration_NIntegrate[]"]}, "mmtag:04:PlotStyle__example_using"->{ Cell[16435, 566, 635, 19, 115, "Input", CellTags->"mmtag:04:PlotStyle__example_using"]}, "mmtag:04:FindRoot[]"->{ Cell[17204, 592, 226, 6, 54, "Input", CellTags->"mmtag:04:FindRoot[]"]}, "mmtag:04:input_and_output"->{ Cell[17849, 617, 184, 3, 56, "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}]}, "mmtag:04:file_access"->{ Cell[17849, 617, 184, 3, 56, "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}]}, "mmtag:04:writing_and_reading_files"->{ Cell[17849, 617, 184, 3, 56, "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}]}, "mmtag:04:reading_and_writing"->{ Cell[17849, 617, 184, 3, 56, "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}]}, "mmtag:04:Random[]__example_using"->{ Cell[19426, 669, 400, 11, 54, "Input", CellTags->"mmtag:04:Random[]__example_using"]}, "mmtag:04:Mathematica_packages"->{ Cell[20482, 705, 119, 2, 56, "Subtitle", CellTags->{ "mmtag:04:Mathematica_packages", "mmtag:04:packages_in_Mathematica"}]}, "mmtag:04:packages_in_Mathematica"->{ Cell[20482, 705, 119, 2, 56, "Subtitle", CellTags->{ "mmtag:04:Mathematica_packages", "mmtag:04:packages_in_Mathematica"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"mmtag:04:expressions__simplifying", 23184, 781}, {"mmtag:04:simplifying_expressions", 23630, 790}, {"mmtag:04:expressions__simplifying__Factor[]", 24087, 799}, {"mmtag:04:expressions__simplifying__Collect[]", 24545, 808}, {"mmtag:04:expressions__simplifying__Simplify[]", 25004, 817}, {"mmtag:04:expressions__simplifying__Apart[]", 25460, 826}, {"mmtag:04:expressions__simplifying__Together[]", 25919, 835}, {"mmtag:04:Expand[]", 26350, 844}, {"mmtag:04:Factor[]", 26448, 847}, {"mmtag:04:Collect[]", 26546, 850}, {"mmtag:04:Simplify[]", 26647, 853}, {"mmtag:04:Apart[]", 26747, 856}, {"mmtag:04:Together[]", 26846, 859}, {"mmtag:04:simplyfing__roots_of_squares", 26967, 862}, {"mmtag:04:roots_of_squares__simplifying", 27161, 867}, {"mmtag:04:Limit[]", 27333, 872}, {"mmtag:04:limits", 27450, 875}, {"mmtag:04:derivatives_D[]", 27576, 878}, {"mmtag:04:definite_integrals__brute_force", 27705, 881}, {"mmtag:04:definite_integrals", 27837, 884}, {"mmtag:04:integrals__definite", 27998, 888}, {"mmtag:04:Series[]", 28148, 892}, {"mmtag:04:Series[]_Taylor_series", 28298, 895}, {"mmtag:04:Series[]__converting_form_of", 28454, 898}, {"mmtag:04:Normal[]__converting_form_of_Series[]", 28667, 903}, {"mmtag:04:fitting_with_series__example", 28871, 908}, {"mmtag:04:series__example_of_fit", 29055, 913}, {"mmtag:04:solving_systems_of_equations", 29245, 918}, {"mmtag:04:systems_of_equations__Solve[]", 29464, 923}, {"mmtag:04:Solve[]", 29661, 928}, {"mmtag:04:Solve[]__using_rules_produced_by", 29883, 933}, {"mmtag:04:Solve[]__extracting_results", 30079, 938}, {"mmtag:04:Solve[]__form_of_undetermined_result", 30284, 943}, {"mmtag:04:numerical_solutions", 30423, 946}, {"mmtag:04:numerical_integration_NIntegrate[]", 30562, 949}, {"mmtag:04:PlotStyle__example_using", 30705, 952}, {"mmtag:04:FindRoot[]", 30825, 955}, {"mmtag:04:input_and_output", 30935, 958}, {"mmtag:04:file_access", 31156, 963}, {"mmtag:04:writing_and_reading_files", 31391, 968}, {"mmtag:04:reading_and_writing", 31620, 973}, {"mmtag:04:Random[]__example_using", 31853, 978}, {"mmtag:04:Mathematica_packages", 31981, 981}, {"mmtag:04:packages_in_Mathematica", 32154, 985} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 80, 3, 204, "Title"], Cell[651, 26, 792, 17, 126, "Text"], Cell[CellGroupData[{ Cell[1468, 47, 460, 10, 106, "Subtitle", CellTags->{ "mmtag:04:expressions__simplifying", "mmtag:04:simplifying_expressions", "mmtag:04:expressions__simplifying__Factor[]", "mmtag:04:expressions__simplifying__Collect[]", "mmtag:04:expressions__simplifying__Simplify[]", "mmtag:04:expressions__simplifying__Apart[]", "mmtag:04:expressions__simplifying__Together[]"}], Cell[1931, 59, 378, 8, 80, "Text"], Cell[2312, 69, 254, 7, 54, "Input"], Cell[2569, 78, 139, 3, 54, "Input", CellTags->"mmtag:04:Expand[]"], Cell[2711, 83, 96, 2, 54, "Input", CellTags->"mmtag:04:Factor[]"], Cell[2810, 87, 161, 4, 54, "Input", CellTags->"mmtag:04:Collect[]"], Cell[2974, 93, 193, 6, 38, "Text"], Cell[3170, 101, 181, 4, 54, "Input", CellTags->"mmtag:04:Simplify[]"], Cell[3354, 107, 160, 3, 34, "Text"], Cell[3517, 112, 385, 10, 85, "Input"], Cell[3905, 124, 73, 1, 54, "Input"], Cell[3981, 127, 105, 1, 77, "Section"], Cell[4089, 130, 349, 12, 90, "Input"], Cell[4441, 144, 97, 2, 54, "Input", CellTags->"mmtag:04:Apart[]"], Cell[4541, 148, 103, 2, 54, "Input", CellTags->"mmtag:04:Together[]"], Cell[4647, 152, 101, 2, 54, "Input"], Cell[4751, 156, 105, 2, 54, "Input"], Cell[4859, 160, 69, 1, 54, "Input"], Cell[4931, 163, 67, 1, 54, "Input"], Cell[5001, 166, 176, 2, 77, "Section"], Cell[5180, 170, 235, 8, 30, "Text", CellTags->{ "mmtag:04:simplyfing__roots_of_squares", "mmtag:04:roots_of_squares__simplifying"}], Cell[5418, 180, 153, 5, 75, "Input"], Cell[5574, 187, 67, 1, 54, "Input"], Cell[5644, 190, 167, 3, 54, "Subsubsection"], Cell[5814, 195, 221, 5, 54, "Input"], Cell[6038, 202, 224, 5, 54, "Input"], Cell[6265, 209, 108, 1, 34, "Text"], Cell[6376, 212, 184, 6, 54, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[6597, 223, 28, 0, 56, "Subtitle"], Cell[6628, 225, 206, 6, 100, "Input"], Cell[6837, 233, 178, 4, 54, "Input", CellTags->{"mmtag:04:Limit[]", "mmtag:04:limits"}], Cell[7018, 239, 169, 4, 54, "Input", CellTags->"mmtag:04:derivatives_D[]"], Cell[7190, 245, 89, 2, 54, "Input"], Cell[7282, 249, 294, 8, 54, "Input"], Cell[7579, 259, 302, 8, 54, "Input", CellTags->"mmtag:04:definite_integrals__brute_force"], Cell[7884, 269, 375, 9, 85, "Input"], Cell[8262, 280, 216, 3, 115, "Input"], Cell[8481, 285, 293, 9, 54, "Input"], Cell[8777, 296, 369, 12, 99, "Input"], Cell[9149, 310, 643, 17, 115, "Input", CellTags->{"mmtag:04:definite_integrals", "mmtag:04:integrals__definite"}], Cell[9795, 329, 127, 3, 54, "Input"], Cell[9925, 334, 149, 2, 77, "Section"], Cell[10077, 338, 214, 6, 30, "Text", CellTags->{"mmtag:04:Series[]", "mmtag:04:Series[]_Taylor_series"}], Cell[10294, 346, 156, 4, 54, "Input"], Cell[10453, 352, 348, 10, 54, "Input", CellTags->{ "mmtag:04:Series[]__converting_form_of", "mmtag:04:Normal[]__converting_form_of_Series[]"}], Cell[10804, 364, 679, 20, 115, "Input", CellTags->{ "mmtag:04:fitting_with_series__example", "mmtag:04:series__example_of_fit"}] }, Closed]], Cell[CellGroupData[{ Cell[11520, 389, 160, 3, 56, "Subtitle", CellTags->{ "mmtag:04:solving_systems_of_equations", "mmtag:04:systems_of_equations__Solve[]", "mmtag:04:Solve[]"}], Cell[11683, 394, 195, 5, 54, "Input"], Cell[11881, 401, 222, 8, 34, "Text"], Cell[12106, 411, 164, 4, 54, "Input"], Cell[12273, 417, 386, 12, 54, "Subsubsection"], Cell[12662, 431, 173, 4, 54, "Input", CellTags->{ "mmtag:04:Solve[]__using_rules_produced_by", "mmtag:04:Solve[]__extracting_results"}], Cell[12838, 437, 103, 2, 54, "Input"], Cell[12944, 441, 102, 5, 34, "Text"], Cell[13049, 448, 112, 3, 54, "Input"], Cell[13164, 453, 273, 8, 54, "Input"], Cell[13440, 463, 192, 5, 54, "Input", CellTags->"mmtag:04:Solve[]__form_of_undetermined_result"], Cell[13635, 470, 336, 10, 85, "Input"], Cell[13974, 482, 253, 8, 54, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14264, 495, 82, 1, 56, "Subtitle", CellTags->"mmtag:04:numerical_solutions"], Cell[14349, 498, 298, 9, 54, "Input"], Cell[14650, 509, 357, 11, 54, "Input"], Cell[15010, 522, 538, 16, 54, "Input", CellTags->"mmtag:04:numerical_integration_NIntegrate[]"], Cell[15551, 540, 881, 24, 145, "Input"], Cell[16435, 566, 635, 19, 115, "Input", CellTags->"mmtag:04:PlotStyle__example_using"], Cell[17073, 587, 128, 3, 54, "Input"], Cell[17204, 592, 226, 6, 54, "Input", CellTags->"mmtag:04:FindRoot[]"], Cell[17433, 600, 185, 5, 54, "Input"], Cell[17621, 607, 191, 5, 54, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[17849, 617, 184, 3, 56, "Subtitle", CellTags->{ "mmtag:04:input_and_output", "mmtag:04:file_access", "mmtag:04:writing_and_reading_files", "mmtag:04:reading_and_writing"}], Cell[18036, 622, 230, 5, 34, "Text"], Cell[18269, 629, 125, 2, 54, "Input"], Cell[18397, 633, 81, 1, 54, "Input"], Cell[18481, 636, 73, 1, 54, "Input"], Cell[18557, 639, 51, 1, 54, "Input"], Cell[18611, 642, 187, 4, 34, "Text"], Cell[18801, 648, 42, 0, 54, "Input"], Cell[18846, 650, 105, 2, 54, "Input"], Cell[18954, 654, 42, 0, 54, "Input"], Cell[18999, 656, 144, 2, 54, "Input"], Cell[19146, 660, 77, 1, 54, "Input"], Cell[19226, 663, 197, 4, 54, "Input"], Cell[19426, 669, 400, 11, 54, "Input", CellTags->"mmtag:04:Random[]__example_using"], Cell[19829, 682, 101, 2, 54, "Input"], Cell[19933, 686, 149, 2, 54, "Input"], Cell[20085, 690, 139, 3, 54, "Input"], Cell[20227, 695, 147, 2, 54, "Input"], Cell[20377, 699, 68, 1, 54, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[20482, 705, 119, 2, 56, "Subtitle", CellTags->{ "mmtag:04:Mathematica_packages", "mmtag:04:packages_in_Mathematica"}], Cell[20604, 709, 948, 20, 149, "Text"], Cell[21555, 731, 119, 2, 54, "Input"], Cell[21677, 735, 191, 4, 54, "Input"], Cell[21871, 741, 121, 2, 54, "Input"], Cell[21995, 745, 214, 5, 54, "Input"], Cell[22212, 752, 306, 7, 54, "Input"] }, Closed]] } ] *) (* End of internal cache information *)