(*********************************************************************** 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[ 9873, 359]*) (*NotebookOutlinePosition[ 42358, 1432]*) (* CellTagsIndexPosition[ 42314, 1428]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \[CapitalEAcute]cole polytechnique \[CapitalEAcute]preuve facultative d'algorithmique\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(Pour\ suivre\ la\ convention\ impos\[EAcute]e\ par\ l' \ \[EAcute]nonc\[EAcute]\), ",", " ", RowBox[{ "on", " ", "d\[EAcute]finit", " ", "une", " ", "fonction", " ", Cell[ TextData[Cell[BoxData[ \(TraditionalForm\`a\)]]]], "qui", " ", "adresse", " ", "les", " ", "\[EAcute]l\[EAcute]ments", " ", \(d'\), "un", " ", \(\(tableau\)\(:\)\)}]}]], "Subsection", FontFamily->"Palatino"], Cell[CellGroupData[{ Cell["\<\ n = 10; tableau = Table[Random[Integer, 20], {n}] a[k_] := tableau[[k + 1]]\ \>", "Input"], Cell[BoxData[ \({20, 7, 20, 7, 15, 4, 19, 16, 19, 1}\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Q1: on utilise un parcours lin\[EAcute]aire du tableau ", Cell[BoxData[ \(TraditionalForm\`a\)]], "pour d\[EAcute]terminer le max et l'inf, la fonction est donc en temps lin\ \[EAcute]aire (", Cell[BoxData[ \(TraditionalForm\`\(\(\[TildeEqual]\)\(2 n\)\)\)]], ")" }], "Subsection"], Cell[CellGroupData[{ Cell["\<\ amplitude[a_] := Module[{max = -Infinity, min = Infinity}, Do[If[a[i] > max, max = a[i]]; If[a[i] < min, min = a[i]], {i, 0, n - 1}]; \ max - min] {tableau, amplitude[a]}\ \>", "Input"], Cell[BoxData[ \({{3, 11, 10, 3, 15, 10, 6, 1, 8, 0}, 15}\)], "Output"] }, Open ]], Cell[TextData[{ "Remarque: il est \[EAcute]videmment plus simple d'\[EAcute]crire \n", StyleBox["Max[tableau]-Min[tableau]", "Input"] }], "Commentary"] }, Open ]], Cell[TextData[{ "Q2: si le max pr\[EAcute]c\[EGrave]de le min, on aura du mal \[AGrave] \ faire un gain \[EAcute]gal \[AGrave] amplitude ! Ex ", Cell[BoxData[ \(TraditionalForm\`a = \(\({100 $, 10 $}\)\(.\)\)\)]], "L'amplitude est la valeur absolue du gain ou de la perte maximale." }], "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Q3: on utilise un parcours sur ", Cell[BoxData[ \(TraditionalForm\`j\)]], ", puis sur ", Cell[BoxData[ \(TraditionalForm\`i \[LessEqual] j\)]], ", la fonction est donc en temps quadratique (", Cell[BoxData[ \(TraditionalForm\`\(\(\[TildeEqual]\)\(n\^2/2\)\)\)]], "). " }], "Subsection"], Cell[CellGroupData[{ Cell["\<\ gain[a_] := Module[{bid = 0}, Do[If[a[j] - a[i] > bid, bid = a[j] - a[i]], {j, 1, n - 1}, {i, 0, j}]; bid] gain[a]\ \>", "Input"], Cell[BoxData[ \(15\)], "Output"] }, Open ]], Cell[TextData[{ "Remarque: on peut se contenter de ", StyleBox["0\[LessEqual]i\[LessEqual]j-1.", "Input"] }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Q4: la condition ", StyleBox["j-i minimal", FontSlant->"Italic"], " entra\[IHat]ne une difficult\[EAcute]. On peut noter qu'il n'y a d\ \[EAcute]faut d'unicit\[EAcute] que si le max ou l'inf est atteint plusieurs \ fois. Une solution est d'inverser les boucles imbriqu\[EAcute]es, de faire d\ \[EAcute]cr\[EAcute]menter ", Cell[BoxData[ \(TraditionalForm\`j\)]], " et de remplacer < par \[LessEqual] !" }], "Subsection"], Cell[CellGroupData[{ Cell["\<\ gain[a_] := Module[{bid = 0, iMax, jMax}, Do[If[a[j] - a[i] >= bid, bid = a[j] - a[i]; \tiMax = i; jMax = j], {i, 0, n - 1}, {j, n - 1, i + 1, -1}]; \t{bid, {iMax, jMax}}] gain[a]\ \>", "Input"], Cell[BoxData[ \({15, {5, 6}}\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Q5: pour am\[EAcute]liorer la complexit\[EAcute] de l'algorithme, \ on va garder trace des indices des valeurs optimales.\ \>", "Subsection"], Cell[CellGroupData[{ Cell["\<\ gain1[a_] := Module[ \t\t{gc = 0, indMax = 0, indMin = 0, nveauMin = 0}, Do[If[a[i] > a[indMax], gc = a[indMax = i] - a[indMin]]; If[a[i] - a[nveauMin] > gc, \t\t\tgc = a[indMax = i] - a[indMin = nveauMin]]; If[a[i] < a[indMin], nveauMin = i]; , \t\t\t{i, 1, n - 1}]; gc] \t\t\t gain1[a]\ \>", "Input"], Cell[BoxData[ \(15\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Q7 (heureusement qu'on ne demande plus un temps lin\[EAcute]aire !)\nLa \ solution la plus lisible utilise une coupure des fonctions pr\[EAcute]c\ \[EAcute]dentes, en les appliquant aux deux sous-tableaux obtenus en coupant \ ", Cell[BoxData[ \(TraditionalForm\`a\)]], " au point ", Cell[BoxData[ \(TraditionalForm\`j\)]], " et en optimisant la somme des deux par it\[EAcute]ration sur ", Cell[BoxData[ \(TraditionalForm\`j\)]], ".\nPour cela, on r\[EAcute]\[EAcute]crit la proc\[EAcute]dure ", Cell[BoxData[ \(TraditionalForm\`gain\)]], " pour y faire figurer les dates extr\[EHat]mes des transactions \ possibles." }], "Subsection"], Cell["\<\ gainCourtTerme[a_, d\[EAcute]but_, fin_] := Module[{gc = d\[EAcute]but, indMax = d\[EAcute]but, indMin = d\[EAcute]but, \ nveauMin = d\[EAcute]but}, Do[If[a[i] > a[indMax], gc = a[indMax = i] - a[indMin]]; If[a[i] - a[nveauMin] > gc, \t\t\tgc = a[indMax = i] - a[indMin = nveauMin]]; If[a[i] < a[indMin], nveauMin = i]; , \t{i, d\[EAcute]but + 1, fin - 1}]; \tgc]\ \>", "Input"], Cell[CellGroupData[{ Cell["\<\ gain2[a_] := Module[{essai, top = 0}, Do[essai = gainCourtTerme[a, 0, k] \t\t\t+ gainCourtTerme[a, k, n - 1]; If[essai > top, top = essai], {k, 1, n - 1}]; \t\t\ttop] \t\t\t gain2[a]\ \>", "Input"], Cell[BoxData[ \(TraditionalForm\`28\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Q8: Idem en moins lisible", "Subsection"], Cell[CellGroupData[{ Cell["\<\ gct[a_, d\[EAcute]but_, fin_] := Module[{gc = d\[EAcute]but, indMax \ = d\[EAcute]but, indMin = d\[EAcute]but, nveauMin = d\[EAcute]but}, Do[If[a[i] > a[indMax], gc = a[indMax = i] - a[indMin]]; If[a[i] - a[nveauMin] > gc, \t\tgc = a[indMax = i] - a[indMin = nveauMin]]; If[a[i] < a[indMin], nveauMin = i]; , \t\t{i, d\[EAcute]but + 1, fin - 1}]; {gc, indMin, indMax}] \t\t gain2[a_] := Module[{essai, coord, bid1, bid2, top = 0}, Do[essai = \tFirst[bid1 = gct[a, 0, k]] + \t\t\t\tFirst[bid2 = gct[a, k, n - 1]]; If[essai > top, top = essai; \t\tcoord = {bid1[[2]], bid1[[3]], bid2[[2]], bid2[[3]]}], \t\t\t\t{k, 1, n - 1}]; \t\t\t\t{top, coord}] \t\t\t\t gain2[a]\ \>", "Input"], Cell[BoxData[ \({28, {1, 2, 5, 6}}\)], "Output"] }, Open ]], Cell["", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 2}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, GeneratedCell->True, CellFrameMargins->False, CellFrameColor->RGBColor[0, 0, 1], CellSize->{Inherited, 4}], Cell["\<\ Voici une version plus idiosyncrasique o\[UGrave] l'on adresse une \ liste par le num\[EAcute]ro de ses \[EAcute]l\[EAcute]ments\[Ellipsis] ce qui \ permet de passer la liste en argument.\ \>", "Text"], Cell[CellGroupData[{ Cell["\<\ gct[a_List, d\[EAcute]but_, fin_] := Module[ \t{gc = d\[EAcute]but, indMax = d\[EAcute]but, indMin = d\[EAcute]but, \ nveauMin = d\[EAcute]but}, Do[If[a[[i]] > a[[indMax]], \t\tgc = a[[indMax = i]] - a[[indMin]]]; If[a[[i]] - a[[nveauMin]] > gc, \t\tgc = a[[indMax = i]] - a[[indMin = nveauMin]]]; \t If[a[[i]] < a[[indMin]], nveauMin = i], {i, d\[EAcute]but + 1, fin}]; \t{gc, indMin, indMax}] \t gain2[a_] := Module[ \t{essai, coord, bid1, bid2, top = 0, n = Length[a]}, Do[essai = First[bid1 = gct[a, 1, k]] + \t\t\t First[bid2 = gct[a, k, n]]; If[essai > top, top = essai; \t\t\t coord = {bid1[[2]], bid1[[3]],bid2[[2]],bid2[[3]]} \t\t], \t{k, 1, n - 1}]; \t{top, coord}] \t gct[{5, 12, 3, 6, 9, 14, 8, 20, 6, 17, 10, 11}, 1, 12]\ \>", "Input"], Cell[BoxData[ \(TraditionalForm\`{17, 3, 8}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(TraditionalForm\`\(\(\[IndentingNewLine]\)\(gain2({5, 12, 3, 6, 9, 14, 8, 20, 6, 17, 10, 11})\)\)\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{28, {3, 8, 9, 10}}\)], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 832}, {0, 604}}, WindowSize->{733, 452}, WindowMargins->{{34, Automatic}, {Automatic, 13}}, Magnification->1.25, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.4, 0, 0.239994]}, ScriptMinSize->9, Background->RGBColor[1, 0.960006, 0.900008]], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.744411, 0.47155, 0.371542]}, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellLabel->False, ImageSize->{200, 200}, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section", FontFamily->"Palatino"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 10}, {0, 20}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->6, CellFrameColor->GrayLevel[0], InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LineSpacing->{0.95, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Palatino", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0.4, 0, 0.239994]], Cell[StyleData["Title", "Presentation"], CellMargins->{{20, 10}, {2, 20}}, CellFrameMargins->5, FontColor->RGBColor[0.744411, 0.47155, 0.371542]], Cell[StyleData["Title", "Printout"], CellMargins->{{18, 30}, {0, 0}}, CellFrameMargins->4, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{20, 30}, {2, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, LineSpacing->{1, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Palatino", FontSize->24], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{20, 10}, {2, 10}}], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section 1"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{18, 10}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, CellFrameColor->RGBColor[0.4, 0, 0.239994], InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Palatino", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section 1", "Presentation"], CellMargins->{{20, 10}, {6, 30}}, CellFrameMargins->5], Cell[StyleData["Section 1", "Printout"], CellMargins->{{18, 30}, {4, 30}}, CellFrameMargins->4, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 10}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->4, CellFrameColor->RGBColor[0.4, 0, 0.239994], InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Palatino", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{20, 10}, {0, 30}}], Cell[StyleData["Section", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{38, 30}, {2, 20}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Palatino", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{35, 30}, {0, 20}}], Cell[StyleData["Subsection", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{55, 30}, {4, 10}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, CounterIncrements->"Subsubsection", FontFamily->"Palatino", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{31, 30}, {0, 12}}], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{18, 30}, {0, 12}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section", FontFamily->"Palatino"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{55, 10}, {6, 6}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica"}, TextJustification->1, Hyphenation->True, LineSpacing->{1, 2}, FontFamily->"Palatino"], Cell[StyleData["Text", "Presentation"], CellMargins->{{20, 10}, {6, 6}}, TextAlignment->Left, TextJustification->0, LineSpacing->{1.3, 0}, FontSize->14], Cell[StyleData["Text", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellMargins->{{55, 10}, {2, 6}}, TextJustification->1, Hyphenation->True, LineSpacing->{1, 2}, FontFamily->"Palatino", FontSize->10, FontColor->RGBColor[0, 0, 0.4]], Cell[StyleData["Commentary", "Presentation"], CellMargins->{{60, 30}, {2, 6}}, TextJustification->1, LineSpacing->{1.3, 0}, FontSize->12], Cell[StyleData["Commentary", "Printout"], CellMargins->{{18, 30}, {3, 0}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellFrame->{{1, 1}, {0, 1}}, CellMargins->{{55, 10}, {0, 0}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelPositioning->Automatic, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, FontSize->12, FontWeight->"Bold", Background->GrayLevel[0.966674]], Cell[StyleData["Input", "Presentation"], CellMargins->{{60, 10}, {0, 10}}, Background->GrayLevel[0.850004]], Cell[StyleData["Input", "Printout"], CellMargins->{{55, 10}, {0, 10}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->10, Background->GrayLevel[0.850004]] }, Closed]], Cell[StyleData["InlineInput"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], CellFrame->{{1, 1}, {1, 0}}, CellMargins->{{55, 10}, {15, 0}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", FormatType->InputForm, FontSize->12, Background->GrayLevel[0.850004]], Cell[StyleData["Output", "Presentation"], CellMargins->{{60, Inherited}, {10, 0}}], Cell[StyleData["Output", "Printout"], CellMargins->{{55, Inherited}, {10, 0}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], CellFrame->1, CellMargins->{{55, 10}, {15, 0}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelPositioning->Automatic, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, FontSize->12, FontWeight->"Bold", Background->GrayLevel[0.966674]], Cell[StyleData["InputOnly", "Presentation"], CellMargins->{{60, Inherited}, {10, 10}}], Cell[StyleData["InputOnly", "Printout"], CellMargins->{{55, Inherited}, {10, 10}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellFrame->{{1, 1}, {0, 0}}, CellDingbat->"\[LongDash]", CellMargins->{{55, 10}, {0, 0}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, FormatType->InputForm, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontSlant->"Oblique", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{60, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{55, 26}, {1, 6}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Left, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, FormatType->InputForm, StyleMenuListing->None, Background->GrayLevel[0.700008]], Cell[StyleData["Print", "Presentation"], CellMargins->{{60, Inherited}, {10, 2}}], Cell[StyleData["Print", "Printout"], CellMargins->{{54, Inherited}, {2, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellFrame->{{1, 1}, {0, 0}}, CellMargins->{{55, 10}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, ImageMargins->{{35, Inherited}, {Inherited, 0}}, StyleMenuListing->None, Background->GrayLevel[0.850004]], Cell[StyleData["Graphics", "Presentation"], CellMargins->{{60, Inherited}, {0, 0}}, ImageMargins->{{10, 10}, {10, 10}}], Cell[StyleData["Graphics", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, ImageSize->{0.0625, 0.0625}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontSlant->"Oblique", FontColor->RGBColor[0.6, 0, 0.6]], Cell[StyleData["CellLabel", "Presentation"], CellMargins->{{18, Inherited}, {Inherited, Inherited}}], Cell[StyleData["CellLabel", "Printout"], CellMargins->{{0, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Unique Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{20, 30}, {45, 5}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, LineSpacing->{1, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Author", "Presentation"], CellMargins->{{20, 30}, {45, 10}}], Cell[StyleData["Author", "Printout"], CellMargins->{{18, 30}, {45, 5}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Abstract"], CellFrame->False, CellMargins->{{18, 140}, {4, 30}}, Hyphenation->True, LineSpacing->{0.9, 0}, FontFamily->"Times", FontSize->12], Cell[StyleData["Abstract", "Presentation"], CellFrame->True, CellMargins->{{20, 10}, {Inherited, 30}}], Cell[StyleData["Abstract", "Printout"], LineSpacing->{1, 2}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{55, 10}, {5, 3}}, PageBreakAbove->False, Hyphenation->True, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Presentation"], CellMargins->{{60, 65}, {6, 4}}, FontSize->10], Cell[StyleData["Caption", "Printout"], CellMargins->{{55, 55}, {5, 4}}, LineSpacing->{1, 2}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Reference"], CellMargins->{{24, 40}, {6, 6}}, TextJustification->1, Hyphenation->True, LineSpacing->{1, 0}, FontFamily->"Times"], Cell[StyleData["Reference", "Presentation"], CellMargins->{{20, 40}, {Inherited, 6}}, TextJustification->0, LineSpacing->{1, 4}, FontSize->12], Cell[StyleData["Reference", "Printout"], CellMargins->{{18, 4}, {4, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellFrame->{{1, 1}, {0, 0}}, CellMargins->{{55, Inherited}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, ShowCellLabel->False, ImageMargins->{{35, Inherited}, {Inherited, 0}}, StyleMenuListing->None, Background->GrayLevel[0.850004]], Cell[StyleData["PictureGroup", "Presentation"], CellMargins->{{60, Inherited}, {0, 0}}, ImageMargins->{{10, 10}, {10, 10}}], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, ImageSize->{0.0625, 0.0625}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"], FontSize->16], Cell[StyleData["Hyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"], FontSize->16], Cell[StyleData["MainBookLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"], FontSize->16], Cell[StyleData["AddOnsLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"], FontSize->16], Cell[StyleData["GettingStartedLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"], FontSize->16], Cell[StyleData["OtherInformationLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}, LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Printout"], CellMargins->{{18, 4}, {4, 4}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChemicalFormula"], CellMargins->{{55, 10}, {Inherited, 0}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, TextJustification->1, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", AutoSpacing->False, ScriptLevel->1, ScriptBaselineShifts->{0.6, Automatic}, SingleLetterItalics->False, ZeroWidthTimes->True], Cell[StyleData["ChemicalFormula", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}], Cell[StyleData["ChemicalFormula", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{55, 10}, {Inherited, 0}}, CellHorizontalScrolling->True, Hyphenation->False, LanguageCategory->"Formula", FontFamily->"Courier"], Cell[StyleData["Program", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->9.5] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{55, 85}, {Inherited, Inherited}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedEquation", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{18, 4}, {4, 4}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellMargins->{{55, 95}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"]}], FontWeight -> "Bold"], None}}, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedFigure", "Presentation"], CellMargins->{{60, 80}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedFigure", "Printout"], CellMargins->{{18, 80}, {4, 4}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{55, 95}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"]}], FontWeight -> "Bold"], None}}, TextAlignment->Center, CounterIncrements->"NumberedTable", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedTable", "Presentation"], CellMargins->{{60, 80}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedTable", "Printout"], CellMargins->{{18, 80}, {4, 4}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["PageNumber"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Bold"], Cell[StyleData["Footer"], TextAlignment->Center, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9] }, Closed]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 02P0001804P000000aP2@OogooL3@09:8085N`?P0000005X0FP000003gP;A@5/ 038;ADLH05000@4100000BL?00400@000000000000000000000000000040I000 00000000002@X@D08@000000000eDgTP\>" ] (*********************************************************************** 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->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 113, 3, 81, "Subtitle"], Cell[CellGroupData[{ Cell[1877, 58, 460, 9, 80, "Subsection"], Cell[CellGroupData[{ Cell[2362, 71, 101, 4, 72, "Input"], Cell[2466, 77, 70, 1, 58, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2585, 84, 321, 9, 75, "Subsection"], Cell[CellGroupData[{ Cell[2931, 97, 204, 6, 106, "Input"], Cell[3138, 105, 74, 1, 58, "Output"] }, Open ]], Cell[3227, 109, 155, 3, 48, "Commentary"] }, Open ]], Cell[3397, 115, 314, 6, 99, "Subsection"], Cell[CellGroupData[{ Cell[3736, 125, 335, 11, 75, "Subsection"], Cell[CellGroupData[{ Cell[4096, 140, 146, 5, 89, "Input"], Cell[4245, 147, 36, 1, 58, "Output"] }, Open ]], Cell[4296, 151, 121, 3, 35, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[4454, 159, 457, 11, 123, "Subsection"], Cell[CellGroupData[{ Cell[4936, 174, 216, 7, 123, "Input"], Cell[5155, 183, 46, 1, 58, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5250, 190, 151, 3, 75, "Subsection"], Cell[CellGroupData[{ Cell[5426, 197, 332, 10, 174, "Input"], Cell[5761, 209, 36, 1, 58, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5846, 216, 693, 18, 171, "Subsection"], Cell[6542, 236, 412, 10, 174, "Input"], Cell[CellGroupData[{ Cell[6979, 250, 220, 8, 140, "Input"], Cell[7202, 260, 53, 1, 58, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7304, 267, 47, 0, 51, "Subsection"], Cell[CellGroupData[{ Cell[7376, 271, 734, 20, 344, "Input"], Cell[8113, 293, 52, 1, 58, "Output"] }, Open ]], Cell[8180, 297, 306, 10, 10, "Text"], Cell[8489, 309, 211, 4, 55, "Text"], Cell[CellGroupData[{ Cell[8725, 317, 795, 24, 412, "Input"], Cell[9523, 343, 61, 1, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9621, 349, 139, 2, 58, "Input"], Cell[9763, 353, 70, 1, 58, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)