(* 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[ 21532, 823] NotebookOptionsPosition[ 17160, 689] NotebookOutlinePosition[ 17838, 713] CellTagsIndexPosition[ 17795, 710] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Taschenrechner", "Section"], Cell[BoxData[ FractionBox[ RowBox[{"1.23", "+", "2.25"}], "3.67"]], "Input"], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Pi", ",", "500"}], "]"}]], "Input", CellChangeTimes->{{3.416039312689312*^9, 3.416039319369239*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Ganzzahlarithmetik", "Section"], Cell[BoxData[ RowBox[{"100", "!"}]], "Input"], Cell[BoxData[ RowBox[{ SuperscriptBox["2", "32"], "-", "1"}]], "Input"], Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input"], Cell[BoxData[ FractionBox[ RowBox[{"100", "!"}], SuperscriptBox["2", "100"]]], "Input"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "100"], FractionBox["1", "k"]}]], "Input"], Cell[BoxData[ RowBox[{"%", " ", "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"FactorInteger", "[", RowBox[{"100", "!"}], "]"}]], "Input", CellChangeTimes->{{3.4160394553430567`*^9, 3.4160394623743258`*^9}}], Cell[BoxData[ RowBox[{"PrimeQ", "[", "1234567", "]"}]], "Input"], Cell[BoxData[ RowBox[{"FactorInteger", "[", "1234567", "]"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"Nextprime", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"n", "+", "1"}], "/;", RowBox[{"PrimeQ", "[", RowBox[{"n", "+", "1"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nextprime", "[", "n_", "]"}], ":=", RowBox[{"Nextprime", "[", RowBox[{"n", "+", "1"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4160382581367893`*^9, 3.4160382681191187`*^9}}], Cell[BoxData[ RowBox[{"Nextprime", "[", "1234567", "]"}]], "Input", CellChangeTimes->{{3.4160382729457684`*^9, 3.416038274597116*^9}}], Cell[BoxData[ RowBox[{"PrimeQ", "[", "%", "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Algebraische Zahlen", "Section"], Cell[BoxData[ RowBox[{"x", "=", RowBox[{ SqrtBox["2"], "+", SqrtBox["3"]}]}]], "Input"], Cell[BoxData[ FractionBox["1", "x"]], "Input"], Cell[BoxData[ RowBox[{ FractionBox["1", "x"], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{ FractionBox["1", "x"], "//", "FullSimplify"}]], "Input"], Cell[BoxData[ RowBox[{"y", "=", RowBox[{ SqrtBox["3"], "-", SqrtBox["2"]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"x", "*", "y"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.416039791843912*^9, 3.416039801398488*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", FractionBox["\[Pi]", "5"], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sin", "[", FractionBox["\[Pi]", "5"], "]"}], RowBox[{"Cos", "[", FractionBox["\[Pi]", "5"], "]"}]}], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sin", "[", FractionBox["\[Pi]", "5"], "]"}], RowBox[{"Cos", "[", FractionBox["\[Pi]", "5"], "]"}]}], "//", "FullSimplify"}]], "Input"], Cell[BoxData[ RowBox[{"Sin", "[", "\[Pi]", "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["komplexe Zahlen", "Section"], Cell[BoxData[ FractionBox[ RowBox[{"1", "+", "\[ImaginaryI]"}], RowBox[{"1", "-", "\[ImaginaryI]"}]]], "Input"], Cell[BoxData[ RowBox[{"Re", "[", RowBox[{"2", RowBox[{"Exp", "[", RowBox[{ RowBox[{"3", "x"}], "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Re", "[", RowBox[{"2", RowBox[{"Exp", "[", RowBox[{ RowBox[{"3", "x"}], "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ComplexExpand", "[", "%", "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Rechnen mit Symbolen", "Subtitle"], Cell[CellGroupData[{ Cell["Polynome und rationale Funktionen", "Section"], Cell[BoxData[ RowBox[{"pol", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], "10"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], "10"]}]}]], "Input"], Cell[BoxData[ RowBox[{"Expand", "[", "pol", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", "pol", "]"}]], "Input"], Cell[BoxData[ RowBox[{"rat", "=", FractionBox[ RowBox[{"1", "-", SuperscriptBox["x", "10"]}], RowBox[{"1", "-", SuperscriptBox["x", "4"]}]]}]], "Input"], Cell[BoxData[ RowBox[{"Together", "[", "rat", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", "rat", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["x", "6"], "+", SuperscriptBox["x", "2"], "+", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"pol", "=", RowBox[{"Factor", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "6"], "+", SuperscriptBox["x", "2"], "+", "1"}], ",", RowBox[{"Modulus", "\[Rule]", "13"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{"pol", "-", RowBox[{"(", RowBox[{ SuperscriptBox["x", "6"], "+", SuperscriptBox["x", "2"], "+", "1"}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ SuperscriptBox["x", "4"], "+", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "+", "1"}], ",", RowBox[{"GaussianIntegers", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "+", "1"}], ",", RowBox[{"Extension", "\[Rule]", RowBox[{"{", SqrtBox["2"], "}"}]}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Lineare Algebra", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"Hilbertmatrix", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ FractionBox["1", RowBox[{"j", "+", "k", "-", "1"}]], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.416038376806406*^9, 3.416038378311294*^9}, { 3.416040706946746*^9, 3.416040709367618*^9}, {3.416040742912286*^9, 3.4160407449997*^9}}], Cell[BoxData[ RowBox[{"H", "=", RowBox[{"Hilbertmatrix", "[", "7", "]"}]}]], "Input", CellChangeTimes->{{3.41603838067829*^9, 3.416038380723596*^9}, { 3.4160406638575478`*^9, 3.4160406680866137`*^9}, {3.41604071970301*^9, 3.4160407395296288`*^9}}], Cell[BoxData[ RowBox[{"Inverse", "[", "H", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Det", "[", "H", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Vandermonde", "[", "n_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ SuperscriptBox[ SubscriptBox["x", "j"], RowBox[{"k", "-", "1"}]], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"V", "=", RowBox[{"Vandermonde", "[", "5", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Det", "[", "V", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{"Det", "[", "V", "]"}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Gleichungen", "Section"], Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"3", "x"}], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"x", "/.", "s"}]], "Input"], Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", "x"}], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.416040962040574*^9, 3.416040983161757*^9}}], Cell[BoxData[ RowBox[{"s", "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", "x"}], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", "x"}], "-", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "-", RowBox[{"3", "x"}], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"s", "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"s", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "5"], "-", RowBox[{"3", "x"}], "-", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"s", "//", "N"}]], "Input", CellChangeTimes->{{3.416041351953432*^9, 3.4160413663582783`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "5"], RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "/.", RowBox[{"s", "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}]}], "//", "RootReduce"}]], "Input", CellChangeTimes->{{3.416041356999826*^9, 3.416041388198937*^9}, 3.416115727444127*^9}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "==", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", SuperscriptBox["y", "2"]}], "+", "1"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}], "+", "1"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "4"], "+", SuperscriptBox["y", "2"]}], "==", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", SuperscriptBox["y", "2"]}], "+", "1"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "4"], "+", SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["y", "2"]}], "+", "1"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.416038453890473*^9, 3.41603845510358*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Graphische Darstellungen", "Section"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Options", "[", "Plot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "]"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "75"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.416041510934486*^9, 3.4160416078644457`*^9}, { 3.4160416568599453`*^9, 3.416041822656756*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Sin", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "75"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4160419013165627`*^9, 3.4160419203635397`*^9}, { 3.416041953284965*^9, 3.416041953816063*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Analysis", "Section"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], "x"], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4160420538636637`*^9, 3.41604205515186*^9}}], Cell[BoxData[ RowBox[{"ableitung", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], " ", FractionBox[ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], "-", "1"}], "x"]}]}]], "Input"], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{"ableitung", RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"eingabe", "=", FractionBox[ RowBox[{ SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "2"], "+", "x", "-", "1"}], RowBox[{ SuperscriptBox["x", "4"], "+", SuperscriptBox["x", "2"], "+", "1"}]]}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"eingabe", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"integral", "=", RowBox[{"\[Integral]", RowBox[{"eingabe", RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{"resultat", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], " ", "integral"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Vereinfachung", "Section"], Cell[BoxData[ RowBox[{"resultat", "//", "FullSimplify"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"resultat", "-", "eingabe"}], "//", "FullSimplify"}]], "Input", CellChangeTimes->{{3.416042145314741*^9, 3.416042149734784*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1280, 917}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"Magnification"->1, "PaperOrientation"->"Portrait", "PaperSize"->{597.562, 842.375}, "PostScriptOutputFile":>FrontEnd`FileName[{ "home", "koepf", "SS2000", "ComputerAlgebra"}, "vorfuehrung.nb.ps", CharacterEncoding -> "MacintoshRoman"]}, Magnification->1.5, 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[CellGroupData[{ Cell[590, 23, 33, 0, 100, "Section"], Cell[626, 25, 79, 2, 66, "Input"], Cell[708, 29, 146, 3, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[891, 37, 37, 0, 100, "Section"], Cell[931, 39, 46, 1, 40, "Input"], Cell[980, 42, 74, 2, 44, "Input"], Cell[1057, 46, 54, 1, 40, "Input"], Cell[1114, 49, 93, 3, 67, "Input"], Cell[1210, 54, 129, 4, 80, "Input"], Cell[1342, 60, 55, 1, 40, "Input"], Cell[1400, 63, 156, 3, 40, "Input"], Cell[1559, 68, 65, 1, 40, "Input"], Cell[1627, 71, 72, 1, 40, "Input"], Cell[1702, 74, 414, 11, 66, "Input"], Cell[2119, 87, 136, 2, 40, "Input"], Cell[2258, 91, 59, 1, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2354, 97, 38, 0, 100, "Section"], Cell[2395, 99, 98, 4, 47, "Input"], Cell[2496, 105, 47, 1, 65, "Input"], Cell[2546, 108, 78, 2, 65, "Input"], Cell[2627, 112, 82, 2, 65, "Input"], Cell[2712, 116, 98, 4, 47, "Input"], Cell[2813, 122, 146, 3, 40, "Input"], Cell[2962, 127, 81, 2, 62, "Input"], Cell[3046, 131, 191, 6, 62, "Input"], Cell[3240, 139, 195, 6, 62, "Input"], Cell[3438, 147, 60, 1, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3535, 153, 34, 0, 100, "Section"], Cell[3572, 155, 117, 3, 65, "Input"], Cell[3692, 160, 188, 6, 40, "Input"], Cell[3883, 168, 81, 2, 40, "Input"], Cell[3967, 172, 188, 6, 40, "Input"], Cell[4158, 180, 66, 1, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4261, 186, 40, 0, 69, "Subtitle"], Cell[CellGroupData[{ Cell[4326, 190, 52, 0, 100, "Section"], Cell[4381, 192, 228, 8, 44, "Input"], Cell[4612, 202, 61, 1, 40, "Input"], Cell[4676, 205, 61, 1, 40, "Input"], Cell[4740, 208, 173, 6, 71, "Input"], Cell[4916, 216, 63, 1, 40, "Input"], Cell[4982, 219, 61, 1, 40, "Input"], Cell[5046, 222, 142, 4, 49, "Input"], Cell[5191, 228, 235, 7, 49, "Input"], Cell[5429, 237, 197, 6, 49, "Input"], Cell[5629, 245, 107, 3, 49, "Input"], Cell[5739, 250, 180, 5, 49, "Input"], Cell[5922, 257, 210, 7, 56, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6169, 269, 34, 0, 100, "Section"], Cell[6206, 271, 480, 13, 69, "Input"], Cell[6689, 286, 257, 5, 40, "Input"], Cell[6949, 293, 60, 1, 40, "Input"], Cell[7012, 296, 56, 1, 40, "Input"], Cell[7071, 299, 334, 11, 49, "Input"], Cell[7408, 312, 87, 2, 40, "Input"], Cell[7498, 316, 56, 1, 40, "Input"], Cell[7557, 319, 89, 2, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7683, 326, 30, 0, 100, "Section"], Cell[7716, 328, 227, 8, 49, "Input"], Cell[7946, 338, 50, 1, 40, "Input"], Cell[7999, 341, 293, 9, 49, "Input"], Cell[8295, 352, 50, 1, 40, "Input"], Cell[8348, 355, 199, 7, 49, "Input"], Cell[8550, 364, 240, 8, 49, "Input"], Cell[8793, 374, 227, 8, 49, "Input"], Cell[9023, 384, 50, 1, 40, "Input"], Cell[9076, 387, 227, 8, 49, "Input"], Cell[9306, 397, 118, 2, 40, "Input"], Cell[9427, 401, 369, 12, 80, "Input"], Cell[9799, 415, 471, 17, 49, "Input"], Cell[10273, 434, 609, 21, 49, "Input"], Cell[10885, 457, 498, 18, 69, "Input"], Cell[11386, 477, 701, 23, 69, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12124, 505, 43, 0, 100, "Section"], Cell[12170, 507, 779, 23, 64, "Input"], Cell[12952, 532, 63, 1, 40, "Input"], Cell[13018, 535, 328, 11, 49, "Input"], Cell[13349, 548, 834, 25, 64, "Input"], Cell[14186, 575, 625, 18, 40, "Input"], Cell[14814, 595, 450, 13, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15301, 613, 27, 0, 100, "Section"], Cell[15331, 615, 191, 6, 65, "Input"], Cell[15525, 623, 289, 8, 65, "Input"], Cell[15817, 633, 193, 6, 65, "Input"], Cell[16013, 641, 114, 3, 64, "Input"], Cell[16130, 646, 258, 8, 71, "Input"], Cell[16391, 656, 166, 5, 40, "Input"], Cell[16560, 663, 144, 4, 64, "Input"], Cell[16707, 669, 119, 3, 40, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16863, 677, 32, 0, 100, "Section"], Cell[16898, 679, 68, 1, 40, "Input"], Cell[16969, 682, 163, 3, 40, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)