(* 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[ 19846, 575] NotebookOptionsPosition[ 18676, 531] NotebookOutlinePosition[ 19013, 546] CellTagsIndexPosition[ 18970, 543] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "r", ",", "tmin", ",", "tmax", ",", "a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input", CellChangeTimes->{{3.41689813301889*^9, 3.416898145698482*^9}}], Cell[CellGroupData[{ Cell["In 2 dimensions", "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"t", "-", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"1", "-", RowBox[{"Cos", "[", "t", "]"}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", RowBox[{"4", "*", "Pi"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "13"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.436115108725705*^9, 3.4361151426199713`*^9}, { 3.436115178283022*^9, 3.436115217025557*^9}, {3.43611525616971*^9, 3.436115256471253*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"t", ",", RowBox[{ RowBox[{"3", "*", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "/", "2"}]}], "-", "t"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", RowBox[{"-", "4.2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "4.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "4.2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "6"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "6"}], ";"}]}], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", RowBox[{"2", "*", "t"}], "]"}]}], ",", " ", RowBox[{"Sin", "[", RowBox[{"2", "*", "t"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "Pi"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "4.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "3"}], ";"}]}], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"12", "*", RowBox[{"Sin", "[", "t", "]"}]}], "-", RowBox[{"3", "*", RowBox[{"Sin", "[", RowBox[{"6", "*", "t"}], "]"}]}]}], ",", " ", RowBox[{ RowBox[{"12", "*", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"3", "*", RowBox[{"Cos", "[", RowBox[{"6", "*", "t"}], "]"}]}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", RowBox[{"-", "Pi"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "Pi"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "16"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "16"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "16"}], ";"}]}], "Input", CellChangeTimes->{{3.4169131685313396`*^9, 3.4169132089694843`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", RowBox[{"-", "Pi"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "Pi"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "1.5"}], ";"}]}], "Input", CellChangeTimes->{{3.4169131775012913`*^9, 3.416913183338943*^9}}], Cell[CellGroupData[{ Cell["Particle tracing out path", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"r", "[", "t0", "]"}], "]"}]}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "t0"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"tmin", "+", "tstep"}], ",", "tmax", ",", "tstep"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4168980486260557`*^9, 3.416898051445487*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t0$$ = 8.799999999999999, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t0$$], 0.2, 4 Pi, 0.2}}, Typeset`size$$ = { 360., {42., 47.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t0$1660$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t0$$ = 0.2}, "ControllerVariables" :> { Hold[$CellContext`t0$$, $CellContext`t0$1660$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Graphics[{{ RGBColor[1, 0, 0], PointSize[0.03], Point[ $CellContext`r[$CellContext`t0$$]]}}], ParametricPlot[ $CellContext`r[$CellContext`t], {$CellContext`t, $CellContext`tmin, \ $CellContext`t0$$}, AspectRatio -> Automatic], PlotRange -> {{$CellContext`a, $CellContext`b}, {$CellContext`c, \ $CellContext`d}}, Axes -> True], "Specifications" :> {{$CellContext`t0$$, 0.2, 4 Pi, 0.2, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{402., {78.875, 84.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.435573172206647*^9, 3.436115155397018*^9, 3.436115226989238*^9, { 3.436115261198497*^9, 3.436115279723271*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vector to the path", "Subsection"], Cell[BoxData[ RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"r", "[", "t0", "]"}], "]"}]}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"r", "[", "t0", "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "t0"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Hue", "[", ".65", "]"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"tmin", "+", "tstep"}], ",", "tmax", ",", "tstep"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4168980486260557`*^9, 3.416898051445487*^9}, { 3.4169048121657248`*^9, 3.416904833573985*^9}, {3.4169049263058977`*^9, 3.4169050465367107`*^9}, {3.4169052388287773`*^9, 3.416905254820858*^9}, { 3.416905327339316*^9, 3.416905330680553*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Tangent and vector to the path", "Subsection"], Cell[BoxData[ RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"r", "[", "t0", "]"}], "]"}]}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"r", "[", "t0", "]"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", "t0", "]"}], ",", RowBox[{ RowBox[{"r", "[", "t0", "]"}], "+", RowBox[{ RowBox[{"r", "'"}], "[", "t0", "]"}]}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "t0"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Hue", "[", ".65", "]"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"tmin", "+", "tstep"}], ",", "tmax", ",", "tstep"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4168980486260557`*^9, 3.416898051445487*^9}, { 3.4169048121657248`*^9, 3.416904833573985*^9}, {3.4169049263058977`*^9, 3.4169050465367107`*^9}, {3.41690509474021*^9, 3.416905143749017*^9}, { 3.4169051758084593`*^9, 3.416905214416613*^9}, {3.4169053667666483`*^9, 3.4169053720309687`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["In 3 dimensions", "Section", CellChangeTimes->{3.435573359288761*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"12", "-", "t"}], ",", RowBox[{"15", "-", RowBox[{"2", "*", "t"}]}], ",", RowBox[{"t", "-", "16"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tstep", "=", "0.02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "16"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"-", "16"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "=", RowBox[{"-", "16"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", "16"}], ";"}]}], "Input", CellChangeTimes->{{3.4169131685313396`*^9, 3.4169132089694843`*^9}, { 3.4355732567934227`*^9, 3.4355732974596653`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "0.03", "]"}], ",", RowBox[{"Point", "[", RowBox[{"r", "[", "t0", "]"}], "]"}]}], "}"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "t0"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"tmin", "+", "tstep"}], ",", "tmax", ",", "tstep"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4168980486260557`*^9, 3.416898051445487*^9}, { 3.435573226473667*^9, 3.435573226966074*^9}, {3.435573314365982*^9, 3.4355733193823442`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t0$$ = 5., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t0$$], 0.02, 10, 0.02}}, Typeset`size$$ = { 360., {199., 204.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t0$628$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t0$$ = 0.02}, "ControllerVariables" :> { Hold[$CellContext`t0$$, $CellContext`t0$628$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Graphics3D[{{ RGBColor[1, 0, 0], PointSize[0.03], Point[ $CellContext`r[$CellContext`t0$$]]}}], ParametricPlot3D[ $CellContext`r[$CellContext`t], {$CellContext`t, $CellContext`tmin, \ $CellContext`t0$$}, AspectRatio -> Automatic], PlotRange -> {{$CellContext`a, $CellContext`b}, {$CellContext`c, \ $CellContext`d}, {$CellContext`e, $CellContext`f}}, Axes -> True], "Specifications" :> {{$CellContext`t0$$, 0.02, 10, 0.02, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{402., {235.875, 241.125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4355733262243557`*^9, 3.435573339239047*^9}}] }, Open ]] }, Open ]] }, WindowSize->{779, 779}, WindowMargins->{{120, Automatic}, {Automatic, 19}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 208, 5, 27, "Input"], Cell[CellGroupData[{ Cell[801, 30, 34, 0, 67, "Section"], Cell[838, 32, 961, 28, 133, "Input"], Cell[1802, 62, 798, 26, 133, "Input"], Cell[2603, 90, 807, 25, 133, "Input"], Cell[3413, 117, 1103, 34, 133, "Input"], Cell[4519, 153, 815, 24, 133, "Input"], Cell[CellGroupData[{ Cell[5359, 181, 47, 0, 34, "Subsection"], Cell[CellGroupData[{ Cell[5431, 185, 1337, 34, 148, "Input"], Cell[6771, 221, 2277, 49, 181, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9097, 276, 40, 0, 34, "Subsection"], Cell[9140, 278, 1989, 49, 178, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11166, 332, 52, 0, 34, "Subsection"], Cell[11221, 334, 2475, 62, 208, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13745, 402, 76, 1, 67, "Section"], Cell[13824, 405, 1054, 31, 163, "Input"], Cell[CellGroupData[{ Cell[14903, 440, 1510, 38, 148, "Input"], Cell[16416, 480, 2232, 47, 495, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)