(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 15655, 542]*) (*NotebookOutlinePosition[ 23559, 771]*) (* CellTagsIndexPosition[ 23076, 747]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["1. Getting Started", "Section", CellTags->{"1.0", "c:1"}], Cell[CellGroupData[{ Cell["1.1 Using the Application for the First Time", "Subsection", CellTags->{"1.1", "i:9", "c:2"}], Cell[BoxData[ \(<< ControlSystems`\)], "Input", CellLabel->"In[1]:=", CellTags->"1.1"] }, Closed]], Cell[CellGroupData[{ Cell["1.3 The Control Objects", "Subsection", CellTags->{"1.3", "i:1", "c:4"}], Cell[CellGroupData[{ Cell[BoxData[ \(TransferFunction[s, 1\/s]\)], "Input", CellLabel->"In[2]:=", CellTags->"1.3"], Cell[BoxData[ \(TransferFunction[s, {{1\/s}}]\)], "Output", CellLabel->"Out[2]=", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(StateSpace[%]\)], "Input", CellLabel->"In[3]:=", CellTags->"1.3"], Cell[BoxData[ \(StateSpace[{{0}}, {{1}}, {{1}}]\)], "Output", CellLabel->"Out[3]=", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ToDiscreteTime[TransferFunction[s, 1\/s], Sampled \[Rule] Period[T]]\)], "Input", CellLabel->"In[4]:=", CellTags->"1.3"], Cell[BoxData[ \(TransferFunction[s, {{\(-\(T\/\(1 - s\)\)\)}}, Sampled \[Rule] Period[T]]\)], "Output", CellLabel->"Out[4]=", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ToContinuousTime[%]\)], "Input", CellLabel->"In[5]:=", CellTags->"1.3"], Cell[BoxData[ \(TransferFunction[s, {{1\/s}}]\)], "Output", CellLabel->"Out[5]=", CellTags->"1.3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["1.4 Traditional Notations", "Subsection", CellTags->{"1.4", "i:2", "c:5"}], Cell[CellGroupData[{ Cell[BoxData[ \(\((system\ = \ TransferFunction[s, \ {{1\/s}, {1\/\(s + \[Alpha]\)}}])\) // TraditionalForm\)], "Input", CellLabel->"In[6]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[ SubsuperscriptBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\[ScriptS]\)}, {\(1\/\(\[ScriptS] + \[Alpha]\)\)} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "TraditionalForm"], FormBox[ StyleBox["\<\"\[InvisibleSpace]\"\>", ShowStringCharacters->False], "TraditionalForm"], FormBox[ StyleBox["\<\"\[ScriptCapitalT]\"\>", Editable->False, ShowStringCharacters->False], "TraditionalForm"], MultilineFunction->None], "TraditionalForm"], (TransferFunction[ s, SlotSequence[ 1]]&)], TraditionalForm]], "Output", CellLabel->"Out[6]//TraditionalForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(ToDiscreteTime[%, Sampled \[Rule] Period[2]] // Simplify\) // TraditionalForm\)], "Input", CellLabel->"In[7]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[ SubsuperscriptBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(2\/\(\[ScriptZ] - 1\)\)}, {\(\(1 - \[ExponentialE]\^\(2\ \[Alpha]\)\)\/\(\[Alpha] - \ \[ExponentialE]\^\(2\ \[Alpha]\)\ \[ScriptZ]\ \[Alpha]\)\)} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "TraditionalForm"], FormBox["2", "TraditionalForm"], FormBox[ StyleBox["\<\"\[ScriptCapitalT]\"\>", Editable->False, ShowStringCharacters->False], "TraditionalForm"], MultilineFunction->None], "TraditionalForm"], (TransferFunction[ s, SlotSequence[ 1]]&)], TraditionalForm]], "Output", CellLabel->"Out[7]//TraditionalForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(StateSpace[system] // TraditionalForm\)], "Input", CellLabel->"In[8]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[ SubsuperscriptBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1", "0"}, {"0", \(-\[Alpha]\), "1"}, {"\[Alpha]", "1", "0"}, {"0", "1", "0"} }, RowLines->{False, True, False}, ColumnLines->{False, True, False}, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "TraditionalForm"], FormBox["\[Bullet]", "TraditionalForm"], FormBox[ StyleBox["\<\"\[ScriptCapitalS]\"\>", Editable->False, ShowStringCharacters->False], "TraditionalForm"], MultilineFunction->None], "TraditionalForm"], (StateSpace[ SlotSequence[ 1]]&)], TraditionalForm]], "Output", CellLabel->"Out[8]//TraditionalForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(% // EquationForm\)], "Input", CellLabel->"In[9]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[GridBox[{ { RowBox[{\(\[ScriptX]\& . \), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"0", \(-\[Alpha]\)} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "\[ScriptX]", "+", RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"1"} }, ColumnAlignments->{Decimal}, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "\[ScriptU]"}]}, { RowBox[{"\[ScriptY]", "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Alpha]", "1"}, {"0", "1"} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "\[ScriptX]"}]} }, ColumnAlignments->{"="}, AllowScriptLevelChange->False], "TraditionalForm"], (EquationForm[ StateSpace[ SlotSequence[ 1]]]&)], TraditionalForm]], "Output", CellLabel->"Out[9]//EquationForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(ToDiscreteTime[%, \ Sampled \[Rule] \ Period[\[Tau]]] // Simplify\) // EquationForm\)], "Input", CellLabel->"In[10]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[GridBox[{ { RowBox[{\(\[ScriptX](\[ScriptK] + 1)\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ { "1", \(\(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \ \[Tau]\)\)\/\[Alpha]\)}, {"0", \(\[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\)} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], \(\[ScriptX](\[ScriptK])\), "+", RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(\[Alpha]\ \[Tau] + \ \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\) - 1\)\/\[Alpha]\^2\)}, {\(\(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\)\ \/\[Alpha]\)} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], \(\[ScriptU](\[ScriptK])\)}]}, { RowBox[{\(\[ScriptY](\[ScriptK])\), "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Alpha]", "1"}, {"0", "1"} }, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], \(\[ScriptX](\[ScriptK])\)}]} }, ColumnAlignments->{"="}, AllowScriptLevelChange->False], "TraditionalForm"], (EquationForm[ StateSpace[ SlotSequence[ 1]]]&)], TraditionalForm]], "Output", CellLabel->"Out[10]//EquationForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(% // TraditionalForm\)], "Input", CellLabel->"In[11]:=", CellTags->"1.4"], Cell[BoxData[ FormBox[ TagBox[ FormBox[ SubsuperscriptBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { "1", \(\(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\ \)\/\[Alpha]\), \(\(\[Alpha]\ \[Tau] + \[ExponentialE]\^\(\(-\[Alpha]\)\ \ \[Tau]\) - 1\)\/\[Alpha]\^2\)}, { "0", \(\[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\), \(\ \(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\)\/\[Alpha]\)}, {"\[Alpha]", "1", "0"}, {"0", "1", "0"} }, RowLines->{False, True, False}, ColumnLines->{False, True, False}, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "TraditionalForm"], FormBox["\[Tau]", "TraditionalForm"], FormBox[ StyleBox["\<\"\[ScriptCapitalS]\"\>", Editable->False, ShowStringCharacters->False], "TraditionalForm"], MultilineFunction->None], "TraditionalForm"], (StateSpace[ SlotSequence[ 1]]&)], TraditionalForm]], "Output", CellLabel->"Out[11]//TraditionalForm=", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell["%", "Input", CellLabel->"In[12]:=", CellTags->"1.4"], Cell[BoxData[ \(StateSpace[{{1, \(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\)\/\ \[Alpha]}, {0, \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)}}, {{\(\(-1\) + \ \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\) + \[Alpha]\ \ \[Tau]\)\/\[Alpha]\^2}, {\(1 - \[ExponentialE]\^\(\(-\[Alpha]\)\ \[Tau]\)\)\/\ \[Alpha]}}, {{\[Alpha], 1}, {0, 1}}, Sampled \[Rule] Period[\[Tau]]]\)], "Output", CellLabel->"Out[12]=", CellTags->"1.4"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["1.5 The Control Format", "Subsection", CellTags->{"1.5", "i:5", "c:6"}], Cell[CellGroupData[{ Cell[BoxData[ \(Table[i + j, {i, 2}, {j, 3}]\)], "Input", CellLabel->"In[13]:=", CellTags->"1.5"], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", "3", "4"}, {"3", "4", "5"} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[13]=", CellTags->"1.5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(StateSpace[{{0}}, {{1}}, {{1}}]\)], "Input", CellLabel->"In[14]:=", CellTags->"1.5"], Cell[BoxData[ FormBox[ TagBox[ FormBox[ SubsuperscriptBox[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }, ColumnAlignments->{Decimal}, RowLines->{True, False}, ColumnLines->{True, False}, AllowScriptLevelChange->False], "\[NoBreak]", ")"}], "TraditionalForm"], FormBox["\[Bullet]", "TraditionalForm"], FormBox[ StyleBox["\<\"\[ScriptCapitalS]\"\>", Editable->False, ShowStringCharacters->False], "TraditionalForm"], MultilineFunction->None], "TraditionalForm"], (StateSpace[ SlotSequence[ 1]]&)], TraditionalForm]], "Output", CellLabel->"Out[14]=", CellTags->"1.5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["1.6 The Notation for the Imaginary Unit", "Subsection", CellTags->{"1.6", "i:8", "c:7"}], Cell[BoxData[ \(\((\[IndentingNewLine]Unprotect[ Complex]; \[IndentingNewLine]Format[Complex[x_, y_]] := x + "\<\[ImaginaryJ]\>"\ y; \[IndentingNewLine]Protect[ Complex];\[IndentingNewLine])\)\)], "Input", CellLabel->"In[15]:=", CellTags->"1.6"], Cell[CellGroupData[{ Cell[BoxData[ \(2 + 3\ \@\(-1\)\)], "Input", CellLabel->"In[16]:=", CellTags->"1.6"], Cell[BoxData[ \(2 + 3\ "\[ImaginaryJ]"\)], "Output", CellLabel->"Out[16]=", CellTags->"1.6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["1.7 Numericalizing for Speed", "Subsection", CellTags->{"1.7", "c:8"}], Cell[CellGroupData[{ Cell[BoxData[ \(Array[Random[Integer] &, {4, 4}]\)], "Input", CellLabel->"In[17]:=", CellTags->"1.7"], Cell[BoxData[ FormBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"1", "0", "1", "0"}, {"1", "1", "0", "1"} }, ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], TraditionalForm]], "Output", CellLabel->"Out[17]=", CellTags->"1.7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[%] // Timing\)], "Input", CellLabel->"In[18]:=", CellTags->"1.7"], Cell[BoxData[ \({0.10000000000000009`\ Second, {1, 1, 1\/2\ \((1 - \@5)\), 1\/2\ \((1 + \@5)\)}}\)], "Output", CellLabel->"Out[18]=", CellTags->"1.7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[N[%%]] // Timing\)], "Input", CellLabel->"In[19]:=", CellTags->"1.7"], Cell[BoxData[ \({0.`\ Second, {1.618033988749895`, 1.`, 1.`, \(-0.6180339887498948`\)}}\)], "Output", CellLabel->"Out[19]=", CellTags->"1.7"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1152}, {0, 850}}, WindowSize->{500, 400}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingPageRange->{1, Automatic}, PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Inherited, Cell[ TextData[ StyleBox[ "Control System Professional ", FontSlant -> "Italic"]], "Header"]}, {Cell[ TextData[ {"1. Getting Started"}], "Header"], Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PrintingOptions->{"FirstPageHeader"->False, "FacingPages"->True}, TaggingRules:>{"NextIndexingNumber" -> 17, "IndexEntries" -> {{"i:11", \ "Discrete-time to continuous-time conversion"}, {"i:11", "Domain \ identification of control objects"}, {"i:11", "Integrator"}, {"i:11", StyleBox[ "Sampled", "MR"]}, {"i:11", StyleBox[ "ToDiscreteTime", "MR"]}, {"i:12", StyleBox[ "ToContinuousTime", "MR"]}, {"i:14", "Active wrappers"}, {"i:14", StyleBox[ "StateSpace", "MR"]}, {"i:14", StyleBox[ "TransferFunction", "MR"]}, {"i:14", StyleBox[ "ZeroPoleGain", "MR"]}, {"i:4", StyleBox[ "EquationForm", "MR"]}, {"i:8", "Imaginary unit, notation for"}, {"i:9", \ "Installation"}, {"i:10", "Control objects", "converting between"}, {"i:11", \ "Control objects", "continuous-time vs. discrete-time"}, {"i:1", "Control \ objects", "", ""}, {"i:11", "Complex plane", { StyleBox[ "s", FontSlant -> "Italic"], "- vs. ", StyleBox[ "z", FontSlant -> "Italic"], "-plane"}, ""}, {"i:11", "Control objects", "domain \ identification of", ""}, {"i:12", "Continuous-time to discrete-time \ conversion", "", ""}, {"i:13", StyleBox[ "SetControlFormat", "MR"], "", ""}, {"i:13", StyleBox[ "SetStandardFormat", "MR"], "", ""}, {"i:15", StyleBox[ "TransferFunction", "MR"], "traditional notations for", ""}, {"i:16", StyleBox[ "StateSpace", "MR"], "traditional notations for", ""}, {"i:2", "Traditional notations", \ "", ""}, {"i:3", StyleBox[ "TraditionalForm", "MR"], "of control objects", ""}, {"i:5", "Control Format palette", "", \ ""}, {"i:8", "Complex numbers", "notation for", ""}}, "PaginationCache" -> \ {{2002, 12, 12, 10, 55, 44}, {1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, \ 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, \ 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, \ 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, \ 10}}}, StyleDefinitions -> "Default.nb", MacintoshSystemPageSetup->"\<\ 00<0004/0B`000002mT8o?mooh<" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "1.0"->{ Cell[1739, 51, 65, 1, 50, "Section", CellTags->{"1.0", "c:1"}]}, "c:1"->{ Cell[1739, 51, 65, 1, 50, "Section", CellTags->{"1.0", "c:1"}]}, "1.1"->{ Cell[1829, 56, 101, 1, 46, "Subsection", CellTags->{"1.1", "i:9", "c:2"}], Cell[1933, 59, 94, 3, 27, "Input", CellTags->"1.1"]}, "i:9"->{ Cell[1829, 56, 101, 1, 46, "Subsection", CellTags->{"1.1", "i:9", "c:2"}]}, "c:2"->{ Cell[1829, 56, 101, 1, 46, "Subsection", CellTags->{"1.1", "i:9", "c:2"}]}, "1.3"->{ Cell[2064, 67, 80, 1, 30, "Subsection", CellTags->{"1.3", "i:1", "c:4"}], Cell[2169, 72, 101, 3, 42, "Input", CellTags->"1.3"], Cell[2273, 77, 106, 3, 43, "Output", CellTags->"1.3"], Cell[2416, 85, 89, 3, 27, "Input", CellTags->"1.3"], Cell[2508, 90, 108, 3, 27, "Output", CellTags->"1.3"], Cell[2653, 98, 151, 4, 62, "Input", CellTags->"1.3"], Cell[2807, 104, 157, 4, 43, "Output", CellTags->"1.3"], Cell[3001, 113, 95, 3, 27, "Input", CellTags->"1.3"], Cell[3099, 118, 106, 3, 43, "Output", CellTags->"1.3"]}, "i:1"->{ Cell[2064, 67, 80, 1, 30, "Subsection", CellTags->{"1.3", "i:1", "c:4"}]}, "c:4"->{ Cell[2064, 67, 80, 1, 30, "Subsection", CellTags->{"1.3", "i:1", "c:4"}]}, "1.4"->{ Cell[3254, 127, 82, 1, 30, "Subsection", CellTags->{"1.4", "i:2", "c:5"}], Cell[3361, 132, 186, 5, 60, "Input", CellTags->"1.4"], Cell[3550, 139, 943, 26, 91, "Output", CellTags->"1.4"], Cell[4530, 170, 162, 4, 43, "Input", CellTags->"1.4"], Cell[4695, 176, 942, 25, 93, "Output", CellTags->"1.4"], Cell[5674, 206, 113, 3, 27, "Input", CellTags->"1.4"], Cell[5790, 211, 1019, 28, 87, "Output", CellTags->"1.4"], Cell[6846, 244, 93, 3, 27, "Input", CellTags->"1.4"], Cell[6942, 249, 1341, 35, 85, "Output", CellTags->"1.4"], Cell[8320, 289, 169, 4, 43, "Input", CellTags->"1.4"], Cell[8492, 295, 1635, 38, 123, "Output", CellTags->"1.4"], Cell[10164, 338, 97, 3, 27, "Input", CellTags->"1.4"], Cell[10264, 343, 1307, 33, 127, "Output", CellTags->"1.4"], Cell[11608, 381, 62, 2, 27, "Input", CellTags->"1.4"], Cell[11673, 385, 435, 8, 108, "Output", CellTags->"1.4"]}, "i:2"->{ Cell[3254, 127, 82, 1, 30, "Subsection", CellTags->{"1.4", "i:2", "c:5"}]}, "c:5"->{ Cell[3254, 127, 82, 1, 30, "Subsection", CellTags->{"1.4", "i:2", "c:5"}]}, "1.5"->{ Cell[12157, 399, 79, 1, 30, "Subsection", CellTags->{"1.5", "i:5", "c:6"}], Cell[12261, 404, 105, 3, 27, "Input", CellTags->"1.5"], Cell[12369, 409, 282, 9, 41, "Output", CellTags->"1.5"], Cell[12688, 423, 108, 3, 27, "Input", CellTags->"1.5"], Cell[12799, 428, 935, 27, 43, "Output", CellTags->"1.5"]}, "i:5"->{ Cell[12157, 399, 79, 1, 30, "Subsection", CellTags->{"1.5", "i:5", "c:6"}]}, "c:6"->{ Cell[12157, 399, 79, 1, 30, "Subsection", CellTags->{"1.5", "i:5", "c:6"}]}, "1.6"->{ Cell[13783, 461, 96, 1, 30, "Subsection", CellTags->{"1.6", "i:8", "c:7"}], Cell[13882, 464, 278, 6, 91, "Input", CellTags->"1.6"], Cell[14185, 474, 92, 3, 31, "Input", CellTags->"1.6"], Cell[14280, 479, 100, 3, 27, "Output", CellTags->"1.6"]}, "i:8"->{ Cell[13783, 461, 96, 1, 30, "Subsection", CellTags->{"1.6", "i:8", "c:7"}]}, "c:7"->{ Cell[13783, 461, 96, 1, 30, "Subsection", CellTags->{"1.6", "i:8", "c:7"}]}, "1.7"->{ Cell[14429, 488, 78, 1, 30, "Subsection", CellTags->{"1.7", "c:8"}], Cell[14532, 493, 109, 3, 27, "Input", CellTags->"1.7"], Cell[14644, 498, 360, 11, 73, "Output", CellTags->"1.7"], Cell[15041, 514, 101, 3, 27, "Input", CellTags->"1.7"], Cell[15145, 519, 167, 4, 43, "Output", CellTags->"1.7"], Cell[15349, 528, 105, 3, 27, "Input", CellTags->"1.7"], Cell[15457, 533, 158, 4, 27, "Output", CellTags->"1.7"]}, "c:8"->{ Cell[14429, 488, 78, 1, 30, "Subsection", CellTags->{"1.7", "c:8"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"1.0", 18874, 614}, {"c:1", 18960, 617}, {"1.1", 19046, 620}, {"i:9", 19206, 625}, {"c:2", 19303, 628}, {"1.3", 19400, 631}, {"i:1", 20013, 650}, {"c:4", 20109, 653}, {"1.4", 20205, 656}, {"i:2", 21233, 687}, {"c:5", 21330, 690}, {"1.5", 21427, 693}, {"i:5", 21792, 704}, {"c:6", 21890, 707}, {"1.6", 21988, 710}, {"i:8", 22284, 719}, {"c:7", 22382, 722}, {"1.7", 22480, 725}, {"c:8", 22971, 740} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 65, 1, 50, "Section", CellTags->{"1.0", "c:1"}], Cell[CellGroupData[{ Cell[1829, 56, 101, 1, 46, "Subsection", CellTags->{"1.1", "i:9", "c:2"}], Cell[1933, 59, 94, 3, 27, "Input", CellTags->"1.1"] }, Closed]], Cell[CellGroupData[{ Cell[2064, 67, 80, 1, 30, "Subsection", CellTags->{"1.3", "i:1", "c:4"}], Cell[CellGroupData[{ Cell[2169, 72, 101, 3, 42, "Input", CellTags->"1.3"], Cell[2273, 77, 106, 3, 43, "Output", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[2416, 85, 89, 3, 27, "Input", CellTags->"1.3"], Cell[2508, 90, 108, 3, 27, "Output", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[2653, 98, 151, 4, 62, "Input", CellTags->"1.3"], Cell[2807, 104, 157, 4, 43, "Output", CellTags->"1.3"] }, Open ]], Cell[CellGroupData[{ Cell[3001, 113, 95, 3, 27, "Input", CellTags->"1.3"], Cell[3099, 118, 106, 3, 43, "Output", CellTags->"1.3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[3254, 127, 82, 1, 30, "Subsection", CellTags->{"1.4", "i:2", "c:5"}], Cell[CellGroupData[{ Cell[3361, 132, 186, 5, 60, "Input", CellTags->"1.4"], Cell[3550, 139, 943, 26, 91, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[4530, 170, 162, 4, 43, "Input", CellTags->"1.4"], Cell[4695, 176, 942, 25, 93, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[5674, 206, 113, 3, 27, "Input", CellTags->"1.4"], Cell[5790, 211, 1019, 28, 87, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[6846, 244, 93, 3, 27, "Input", CellTags->"1.4"], Cell[6942, 249, 1341, 35, 85, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[8320, 289, 169, 4, 43, "Input", CellTags->"1.4"], Cell[8492, 295, 1635, 38, 123, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[10164, 338, 97, 3, 27, "Input", CellTags->"1.4"], Cell[10264, 343, 1307, 33, 127, "Output", CellTags->"1.4"] }, Open ]], Cell[CellGroupData[{ Cell[11608, 381, 62, 2, 27, "Input", CellTags->"1.4"], Cell[11673, 385, 435, 8, 108, "Output", CellTags->"1.4"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[12157, 399, 79, 1, 30, "Subsection", CellTags->{"1.5", "i:5", "c:6"}], Cell[CellGroupData[{ Cell[12261, 404, 105, 3, 27, "Input", CellTags->"1.5"], Cell[12369, 409, 282, 9, 41, "Output", CellTags->"1.5"] }, Open ]], Cell[CellGroupData[{ Cell[12688, 423, 108, 3, 27, "Input", CellTags->"1.5"], Cell[12799, 428, 935, 27, 43, "Output", CellTags->"1.5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[13783, 461, 96, 1, 30, "Subsection", CellTags->{"1.6", "i:8", "c:7"}], Cell[13882, 464, 278, 6, 91, "Input", CellTags->"1.6"], Cell[CellGroupData[{ Cell[14185, 474, 92, 3, 31, "Input", CellTags->"1.6"], Cell[14280, 479, 100, 3, 27, "Output", CellTags->"1.6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[14429, 488, 78, 1, 30, "Subsection", CellTags->{"1.7", "c:8"}], Cell[CellGroupData[{ Cell[14532, 493, 109, 3, 27, "Input", CellTags->"1.7"], Cell[14644, 498, 360, 11, 73, "Output", CellTags->"1.7"] }, Open ]], Cell[CellGroupData[{ Cell[15041, 514, 101, 3, 27, "Input", CellTags->"1.7"], Cell[15145, 519, 167, 4, 43, "Output", CellTags->"1.7"] }, Open ]], Cell[CellGroupData[{ Cell[15349, 528, 105, 3, 27, "Input", CellTags->"1.7"], Cell[15457, 533, 158, 4, 27, "Output", CellTags->"1.7"] }, Open ]] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)