(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 46232, 916] NotebookOptionsPosition[ 41851, 870] NotebookOutlinePosition[ 42271, 886] CellTagsIndexPosition[ 42228, 883] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[StyleData[StyleDefinitions -> "Default.nb"],ExpressionUUID->"70fcc54a-d96e-4e9b-92cc-acbc2f992e7d"], Cell[StyleData["Notebook"], DockedCells->{ Cell[ BoxData[ TagBox[ GridBox[{{ ButtonBox[ StyleBox["\"NEW\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> CreateDocument[{}, StyleDefinitions -> "Sycomore.nb"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Create an empty Sycomore\[Dash]styled notebook and open it in the \ front end", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], TagBox[ TooltipBox[ ActionMenuBox[ DynamicBox[ ToBoxes[ ReplaceAll[ DeleteDuplicates[ ReplaceAll[ ReplaceAll["Style", Developer`CellInformation[ SelectedCells[]]], Dispatch[{ "Style" -> {"CELL STYLE"}, "Subsubsection" -> "Subsubsect", "Subsubitem" -> "Subsubit", "ItemNumbered" -> "N.\[ThinSpace]Item", "SubitemNumbered" -> "N.\[ThinSpace]Subitem", "SubsubitemNumbered" -> "N.\[ThinSpace]Subsubit", "ItemParagraph" -> "Item\[ThinSpace]Par", "SubitemParagraph" -> "Subitem\[ThinSpace]Par", "SubsubitemParagraph" -> "Subsubit\[ThinSpace]Par", "DisplayFormula" -> "Dspl\[ThinSpace]Formula", "DisplayFormulaNumbered" -> "Dspl\[ThinSpace]Form\[ThinSpace](N)", "InlineFormula" -> "Inline\[ThinSpace]Form", "CodeText" -> "Code\[ThinSpace]Text", "NaturalLanguageInput" -> "Nat\[ThinSpace]Lang", "ExternalLanguage" -> "Ext\[ThinSpace]Lang", "WolframAlphaShort" -> "W\[ThinSpace]|\[ThinSpace]\[Alpha]\[ThinSpace]\[ThinSpace]\ Short", "WolframAlphaLong" -> "W\[ThinSpace]|\[ThinSpace]\[Alpha]\[ThinSpace]\[ThinSpace]\ Long", "PageBreak" -> "Page\[ThinSpace]Break", {"Message", Blank[]} -> "Message"}]]], {{ Pattern[$CellContext`s$, Blank[]], BlankSequence[]} :> ( Style[#, FontSize -> Smaller]& )[$CellContext`s$ <> ",\[ThinSpace]\[Ellipsis]"], { Pattern[$CellContext`s$, Blank[]]} :> ( Style[#, FontSize -> Smaller]& )[$CellContext`s$]}], StandardForm]], { "\"Custom\[Ellipsis]\"" :> FrontEndTokenExecute["StyleOther"], Delimiter, "\"Chapter\"" :> (FrontEndTokenExecute["Style", #]& )["Chapter"], "\"Section\"" :> (FrontEndTokenExecute["Style", #]& )[ "Section"], "\"Subsection\"" :> (FrontEndTokenExecute["Style", #]& )[ "Subsection"], "\"Subsubsection\"" :> (FrontEndTokenExecute["Style", #]& )[ "Subsubsection"], "\"Text\"" :> (FrontEndTokenExecute["Style", #]& )["Text"], Delimiter, "\"Item\"" :> (FrontEndTokenExecute["Style", #]& )["Item"], "\"Subitem\"" :> (FrontEndTokenExecute["Style", #]& )["Subitem"], "\"Subsubitem\"" :> (FrontEndTokenExecute["Style", #]& )[ "Subsubitem"], "\"Item Numbered\"" :> (FrontEndTokenExecute["Style", #]& )[ "ItemNumbered"], "\"Subitem Numbered\"" :> (FrontEndTokenExecute["Style", #]& )[ "SubitemNumbered"], "\"Subsubitem Numbered\"" :> (FrontEndTokenExecute[ "Style", #]& )["SubsubitemNumbered"], "\"Item Paragraph\"" :> (FrontEndTokenExecute["Style", #]& )[ "ItemParagraph"], "\"Subitem Paragraph\"" :> (FrontEndTokenExecute["Style", #]& )[ "SubitemParagraph"], "\"Subsubitem Paragraph\"" :> (FrontEndTokenExecute[ "Style", #]& )["SubsubitemParagraph"], Delimiter, "\"Display Formula\"" :> (FrontEndTokenExecute["Style", #]& )[ "DisplayFormula"], "\"Display Formula Numbered\"" :> (FrontEndTokenExecute[ "Style", #]& )["DisplayFormulaNumbered"], "\"Inline Formula\"" :> (FrontEndTokenExecute["Style", #]& )[ "InlineFormula"], "\"Inline TeX Input\[Ellipsis]\"" :> KernelExecute[ InputAssistant`TeXAssistant[ InputNotebook[]]], "\"Program\"" :> (FrontEndTokenExecute["Style", #]& )["Program"], "\"Code Text\"" :> (FrontEndTokenExecute["Style", #]& )[ "CodeText"], Delimiter, "\"Input\"" :> (FrontEndTokenExecute["Style", #]& )["Input"], "\"Output\"" :> (FrontEndTokenExecute["Style", #]& )["Output"], "\"Code\"" :> (FrontEndTokenExecute["Style", #]& )["Code"], Delimiter, "\"Title\"" :> (FrontEndTokenExecute["Style", #]& )["Title"], "\"Subtitle\"" :> (FrontEndTokenExecute["Style", #]& )[ "Subtitle"], "\"Author\"" :> (FrontEndTokenExecute["Style", #]& )["Author"], "\"Affiliation\"" :> (FrontEndTokenExecute["Style", #]& )[ "Affiliation"], "\"Abstract\"" :> (FrontEndTokenExecute["Style", #]& )[ "Abstract"], Delimiter, "\"Natural Language Input\"" :> (FrontEndTokenExecute[ "Style", #]& )["NaturalLanguageInput"], "\"External Language\"" :> (FrontEndTokenExecute["Style", #]& )[ "ExternalLanguage"]}, ImageSize -> {68, Medium}, ImageMargins -> {{8, 0}, {0, 0}}, Appearance -> "PopupMenu", Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True], "\"For cursor within a cell or for equally styled selected \ cell(s), StyleName shows up here.\\nFor differently styled cells selected, \ the topmost cell StyleName,\[ThinSpace]\[Ellipsis] shows up here.\"", TooltipStyle -> "TextStyling"], Annotation[#, "For cursor within a cell or for equally styled selected cell(s), \ StyleName shows up here.\nFor differently styled cells selected, the topmost \ cell StyleName,\[ThinSpace]\[Ellipsis] shows up here.", "Tooltip"]& ], TagBox[ TooltipBox[ ActionMenuBox[ StyleBox[ "\"WEBSITE\"", FontSize -> Smaller, StripOnInput -> False], { "\"Site License Web Page\"" :> (NotebookLocate[{ URL[#], None}]& )["https://is.slu.cz/www/hle0002/wolfram/"], Delimiter, "\"Wolfram Language\"" :> (NotebookLocate[{ URL[#], None}]& )["https://www.wolfram.com/language/"], "\"Wolfram Language\[ThinSpace]&\[ThinSpace]System Doc\"" :> ( NotebookLocate[{ URL[#], None}]& )["https://reference.wolfram.com/"], "\"Wolfram Language Repositories\"" :> (NotebookLocate[{ URL[#], None}]& )["https://resources.wolframcloud.com/"], "\"Wolfram MathWorld\"" :> (NotebookLocate[{ URL[#], None}]& )["https://mathworld.wolfram.com/"], "\"Mathematical Functions Site\"" :> (NotebookLocate[{ URL[#], None}]& )["https://functions.wolfram.com/"], "\"Wolfram Community\"" :> (NotebookLocate[{ URL[#], None}]& )["https://community.wolfram.com/"], "\"Wolfram Library Archive\"" :> (NotebookLocate[{ URL[#], None}]& )["https://library.wolfram.com/"], "\"Mathematica Journal\"" :> (NotebookLocate[{ URL[#], None}]& )["https://www.mathematica-journal.com/"], Delimiter, "\"Mathematica Stack Exchange\"" :> (NotebookLocate[{ URL[#], None}]& )["https://mathematica.stackexchange.com/"], "\"Mathematica Stack Overflow\"" :> (NotebookLocate[{ URL[#], None}]& )[ "https://stackoverflow.com/questions/tagged/wolfram-\ mathematica"], Delimiter, "\"Notebook Security tutorial\"" :> (NotebookLocate[{ URL[#], None}]& )[ "http://reference.wolfram.com/mathematica/tutorial/\ NotebookSecurity.html"], "\"Good programming practice\"" :> (NotebookLocate[{ URL[#], None}]& )[ "https://mathematica.stackexchange.com/questions/18/where-can-i-\ find-examples-of-good-mathematica-programming-practice/8617"], Delimiter, "\"Wolfram Account\[ThinSpace]&\[ThinSpace]User Portal\"" :> ( NotebookLocate[{ URL[#], None}]& )["https://account.wolfram.com/"], "\"Mathematica Support\"" :> (NotebookLocate[{ URL[#], None}]& )[ "https://support.wolfram.com/topic/mathematica"], "\"System Transfer Form\"" :> (NotebookLocate[{ URL[#], None}]& )["https://support.wolfram.com/12412"], "\"MathLM Status (within Site IPs)\"" :> (NotebookLocate[{ URL[#], None}]& )["http://wolf.stud.slu.cz/mathematica/"], "\"Incompatible Changes\"" :> (NotebookLocate[{ URL[#], None}]& )[ "https://reference.wolfram.com/language/tutorial/\ IncompatibleChanges.html"], "\"Versions and release dates\"" :> (NotebookLocate[{ URL[#], None}]& )[ "https://www.12000.org/my_notes/compare_mathematica/"]}, ImageSize -> {58, Medium}, Appearance -> "PopupMenu", Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True], "\"Choose a web link to visit\"", TooltipStyle -> "TextStyling"], Annotation[#, "Choose a web link to visit", "Tooltip"]& ], ButtonBox[ StyleBox[ "\"\[UpArrowBar]\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["ScrollNotebookStart"], ImageSize -> {20, Medium}, ImageMargins -> {{8, 0}, {0, 0}}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Scroll up to the top", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"UNDO\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["Undo"], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Reverses the previous action, if possible", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], TagBox[ ButtonBox[ StyleBox[ "\"CLR GLB\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> ClearAll["Global`*"], ImageSize -> {40, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Clear values, definitions, etc. for all symbols in\nthe Global` \ context (like ClearAll[\"Global`*\"]) \[LowerLeftArrow]", Enabled -> Dynamic[ ReplaceAll[ ReplaceAll[ CurrentValue[ EvaluationNotebook[], CellContext], { "Global`" -> True, Notebook -> False}], {Condition[ Pattern[$CellContext`a, Blank[]], Not[ BooleanQ[$CellContext`a]]] -> True}]], Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], StatusArea[#, "Disabled by selecting \[LeftGuillemet]LOCAL\[RightGuillemet] on \ the lower button \[UpperRightArrow]"]& , TagBoxNote -> "Disabled by selecting \[LeftGuillemet]LOCAL\[RightGuillemet] on \ the lower button \[UpperRightArrow]"], ButtonBox[ StyleBox["\"M PAL\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd", "Palettes", "BasicMathAssistant.nb"}]], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]Basic Math Assistant\[RightGuillemet] \ palette", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"EV ALL\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["EvaluateNotebook"], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Evaluate notebook", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"FND\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> KernelExecute[ If[ CurrentValue["PluginEnabled"], FrontEndTokenExecute[ InputNotebook[], "FindExpression"], FrontEndTokenExecute["SelectionSetFindEx"]; FrontEnd`DialogOpen["Find.nb", True]]], ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]Find and Replace\[RightGuillemet] dialog", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"CMT\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> KernelExecute[ FE`toggleComment[]], ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Un/Comment the selected code or cells", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"ICO\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> KernelExecute[ FE`iconizeSelectionToggle[]], ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Un/Iconize the selected code", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], TagBox[ ButtonBox[ StyleBox["\"LLNS\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> CreateWindow[ DocumentNotebook[ NotebookGet[ EvaluationNotebook[]]], Visible -> True, Editable -> False, Deletable -> False, Saveable -> False, Background -> LightBlue, WindowSize -> { Scaled[5/8], Scaled[1]}, WindowElements -> {"HorizontalScrollBar", "VerticalScrollBar"}, WindowToolbars -> {}, DockedCells -> { Cell[("Here is the low\[Dash]level structure of " <> With[{$CellContext`n = Quiet[ NotebookFileName[], { MessageName[NotebookFileName, "nosv"]}]}, If[$CellContext`n =!= $Failed, ("\[LeftGuillemet]" <> FileNameTake[$CellContext`n]) <> "\[RightGuillemet]", "the untitled notebook"]]) <> " from which this window was created:", "DockedCell", FontFamily -> "Helvetica", FontSize -> 10, Background -> LightOrange]}], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "View Low\[Hyphen]Level Notebook Structure to assess its \ harmlessness (\[LeftGuillemet]\[WarningSign] This file contains\[Ellipsis]\ \[RightGuillemet]\nalert may concern intentionally embedded code designed for \ useful special tasks) \[LowerLeftArrow]", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], StatusArea[#, "LLNS code can be viewed, but not edited, deleted, or saved \ \[UpperRightArrow]"]& , TagBoxNote -> "LLNS code can be viewed, but not edited, deleted, or saved \ \[UpperRightArrow]"], ButtonBox[ StyleBox["\"QUIT\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["EvaluatorQuit"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Quit the Wolfram Language kernel immediately", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"OPTS\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["OptionsDialog"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]\!\(\*StyleBox[\"Option\", \ \"DialogElementName\"]\)\!\(\*StyleBox[\" \", \ \"DialogElementName\"]\)\!\(\*StyleBox[\"Inspector\", \ \"DialogElementName\"]\)\[RightGuillemet]\!\(\*StyleBox[\" \", \ \"DialogElementName\"]\)\!\(\*StyleBox[\"to\", \ \"DialogElementName\"]\)\!\(\*StyleBox[\" \", \"DialogElementName\"]\)view \ and set all option\nvalues for cells, notebooks, and global preferences", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"WLDC\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["SelectionHelpDialog"], ImageSize -> {34, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]WL Documentation Center\[RightGuillemet]\nor \ selection\[Dash]related help dialog", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"]}, { ButtonBox[ StyleBox["\"KILL\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> If[ ChoiceDialog[ "Are you sure you want to get rid of this toolbar?\nWill be lost \ forever after saving; use with caution.", Sequence[ WindowFrame -> "MovableModalDialog", WindowTitle -> "Sycomore stylesheet"]], CurrentValue[ EvaluationNotebook[], DockedCells] = DeleteCases[ Flatten[{ CurrentValue[ EvaluationNotebook[], DockedCells]}], Condition[ Pattern[$CellContext`c$, Blank[Cell]], Not[ FreeQ[$CellContext`c$, "Cp76NVe3mxU5WoAhST7Gzy3qmzfBXcju"]]]]], BoxID -> "Cp76NVe3mxU5WoAhST7Gzy3qmzfBXcju", Method -> "Queued", ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Discard this toolbar permanently for all future sessions", TooltipStyle -> Directive[ RGBColor[ Rational[2, 3], 0, 0], Bold], Appearance -> Automatic, Evaluator -> Automatic], "\"\"", TagBox[ TooltipBox[ ActionMenuBox[ StyleBox[ "\"CLOUD\"", FontSize -> Smaller, StripOnInput -> False], { "\"Open from Cloud\[Ellipsis]\"" :> (NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "Components", "CloudDialogs", "FrontEnd", "SystemResources", #}]]& )["WolframCloudOpenDialog.nb"], "\"Save to Cloud\[Ellipsis]\"" :> (NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "Components", "CloudDialogs", "FrontEnd", "SystemResources", #}]]& )["WolframCloudSaveDialog.nb"], "\"Publish to Cloud\[Ellipsis]\"" :> KernelExecute[ NotebookTools`OpenCloudPublishDialog[ FE`Evaluate[ FEPrivate`LastActiveUserNotebook[]]]], "\"Explore Cloud\[Ellipsis]\"" :> (NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "Components", "CloudDialogs", "FrontEnd", "SystemResources", #}]]& )["WolframCloudExplorer.nb"], "\"Cloud Activity\[Ellipsis]\"" :> (NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "Components", "CloudDialogs", "FrontEnd", "SystemResources", #}]]& )["WolframCloudActivityDialog.nb"]}, ImageSize -> {58, Medium}, Appearance -> "PopupMenu", Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Method -> "Queued"], "\"Choose a cloud operation\"", TooltipStyle -> "TextStyling"], Annotation[#, "Choose a cloud operation", "Tooltip"]& ], ButtonBox[ StyleBox[ "\"\[DownArrowBar]\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["ScrollNotebookEnd"], ImageSize -> {20, Medium}, ImageMargins -> {{8, 0}, {0, 0}}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Scroll down to the bottom", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"REDO\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["Redo"], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Restores the last action that was undone, if possible", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ (Style[#, FontSize -> Smaller]& )[ ReplaceAll[ ReplaceAll[ CurrentValue[ EvaluationNotebook[], CellContext], { "Global`" -> "GLOBAL", Notebook -> "LOCAL"}], {Condition[ Pattern[$CellContext`a, Blank[]], Not[ StringQ[$CellContext`a]]] -> "??"}]], StandardForm]], ButtonFunction :> (CurrentValue[ EvaluationNotebook[], CellContext] = Switch[ CurrentValue[ EvaluationNotebook[], CellContext], "Global`", Notebook, Notebook, "Global`", Blank[], "Global`"]), ImageSize -> {40, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "De/Localize symbols to notebook by toggling\nbetween GLOBAL and \ LOCAL\[ThinSpace]\[Congruent]\[ThinSpace]Localized \[LowerLeftArrow]", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], StatusArea[#, "Selecting \[LeftGuillemet]LOCAL\[RightGuillemet] disables the \ upper \[LeftGuillemet]CLR GLB\[RightGuillemet] button \[UpperRightArrow]"]& , TagBoxNote -> "Selecting \[LeftGuillemet]LOCAL\[RightGuillemet] disables the \ upper \[LeftGuillemet]CLR GLB\[RightGuillemet] button \[UpperRightArrow]"], ButtonBox[ StyleBox["\"T PAL\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> NotebookOpen[ FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd", "Palettes", "Other", "BasicTypesetting.nb"}]], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]Basic Typesetting\[RightGuillemet] palette", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"EV INI\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["EvaluateInitialization"], ImageSize -> {32, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Evaluate initialization cells", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"N.N\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookOpen[ FrontEnd`FindFileOnPath[ "AutomaticNumbering.nb", "PrivatePathsSystemResources"]]}], ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]Create Automatic Numbering Object\ \[RightGuillemet] dialog", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox[ "\"\\!\\(\\*StyleBox[\\\"CMT\\\",\\nFontVariations->{\\\"\ StrikeThrough\\\"->True}]\\)\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> If[ ChoiceDialog[ "Are you sure you want to remove all comments from the notebook?", Sequence[ WindowFrame -> "MovableModalDialog", WindowTitle -> "Sycomore stylesheet"]], With[{$CellContext`n = EvaluationNotebook[]}, SelectionMove[$CellContext`n, All, Notebook, AutoScroll -> False]; NotebookWrite[$CellContext`n, DeleteCases[ ReplaceAll[ NotebookGet[$CellContext`n], {BoxData[ RowBox[{"(*", BlankNullSequence[], "*)"}]] -> BoxData[""]}], RowBox[{"(*", BlankNullSequence[], "*)"}], Infinity, Heads -> False], AutoScroll -> False]]], Method -> "Queued", ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Remove all comments in notebook (can be undone)", Appearance -> Automatic, Evaluator -> Automatic], ButtonBox[ StyleBox[ "\"\\!\\(\\*StyleBox[\\\"OUT\\\",\\nFontVariations->{\\\"\ StrikeThrough\\\"->True}]\\)\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["DeleteGeneratedCells"], ImageSize -> {24, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Delete all output (generated cells)", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], TagBox[ ButtonBox[ StyleBox["\"EXPR\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["ToggleShowExpression"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Toggle between the expression and display forms of a cell \ \[LowerLeftArrow]", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], StatusArea[#, "Place the cursor within a cell or select cell(s) \ \[UpperRightArrow]"]& , TagBoxNote -> "Place the cursor within a cell or select cell(s) \ \[UpperRightArrow]"], ButtonBox[ StyleBox["\"ABRT\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["EvaluatorAbort"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Abort the current evaluation", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"PRFS\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEndTokenExecute["PreferencesDialog"], ImageSize -> {28, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Open \[LeftGuillemet]\!\(\*StyleBox[\"Preferences\", \ \"DialogElementName\"]\)\[RightGuillemet] dialog to view and edit\n\ preferences, options, and system settings", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], ButtonBox[ StyleBox["\"TRUST\"", FontSize -> Smaller, StripOnInput -> False], ButtonFunction :> FrontEnd`TrustedPathDialog[], ImageSize -> {34, Medium}, Alignment -> Center, ImageSize -> {Automatic, Medium}, ImageMargins -> 0, ContentPadding -> True, Tooltip -> "Edit the list of directories that are always trusted by the WL. \ Add the directory this\nnotebook resides in to make it trusted, stopping the \ \[LeftGuillemet]\[WarningSign] This file contains\[Ellipsis]\[RightGuillemet] \ alerts.", Appearance -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{ Rational[1, 8]}}, "Rows" -> {{ Rational[1, 8]}}}], "Grid"]], "DockedCell", CellMargins -> {{0, 0}, {0, 0}}, CellFrame -> None, ShowCellBracket -> False, CellFrameLabelMargins -> 1, CellFrameMargins -> {{0, 0}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0}, CellFrameLabels -> {{ ButtonBox[ DynamicBox[ ToBoxes[ Style[ If[CurrentValue[ ParentCell[ EvaluationCell[]], CellSize] === {0, 0}, "\[FilledDownTriangle]", "\[FilledUpTriangle]"], FontSize -> 7], StandardForm]], ButtonFunction :> (With[{$CellContext`pc = ParentCell[ EvaluationCell[]]}, SetOptions[$CellContext`pc, If[ CurrentValue[$CellContext`pc, CellSize] === {0, 0}, { CellSize -> Inherited}, {CellSize -> {0, 0}}]]]& ), ImageSize -> { UpTo[10], Dynamic[ If[CurrentValue[ ParentCell[ EvaluationCell[]], CellSize] === {0, 0}, UpTo[10], Switch[$SystemID, "Linux-x86-64", 36.5, "MacOSX-x86-64", 36.5, Blank[], 36.5]]]}, Evaluator -> Automatic, Appearance -> Frame, ContentPadding -> False, Alignment -> Center, FrameMargins -> {{3, 3}, {17, -11}}, Tooltip -> Dynamic[ If[CurrentValue[ ParentCell[ EvaluationCell[]], CellSize] === {0, 0}, "Expand toolbar", "Minimize toolbar (not saveable)"]]], None}, { None, None}}]},ExpressionUUID->"82dc691e-955f-de45-bc76-74464b606f6a"], Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 6}}, CellMargins->{{26, 10}, {10, 24}}, CellFrameColor->RGBColor[0.501961, 0, 0], FontFamily->"Times", FontTracking->"Plain", FontColor->RGBColor[ 0.501961, 0, 0],ExpressionUUID->"62b74c3d-4473-490d-b706-c48d1ac8b5c9"], Cell[StyleData["Subtitle"], CellMargins->{{27, 10}, {18, 15}}, LineSpacing->{1., 2., 4.}, FontFamily->"Times", FontColor->RGBColor[ 0.501961, 0, 0],ExpressionUUID->"f13350ab-eb4a-4429-ab9f-6350426032b3"], Cell[StyleData["Affiliation"], CellMargins->{{28, 128}, {8, 8}}, FontFamily->"Times", FontSize->13, FontColor->Automatic,ExpressionUUID->"294c387c-b34e-43ea-98a6-c6e65f57b81f"], Cell[StyleData["Abstract"], CellMargins->{{28, 128}, {12, 18}}, FontFamily->"Times", FontSize->13,ExpressionUUID->"d1fd72f2-7727-4c83-8826-4ae6fc297d44"], Cell[StyleData["Author"], CellMargins->{{28, 128}, {8, 12}}, FontFamily->"Times", FontSize->17,ExpressionUUID->"6a407953-fd9c-40bc-85e4-943aee7aa45c"], Cell[StyleData["Chapter"], CellFrame->{{0, 0}, {0, 4}}, CellMargins->{{26, 10}, {10, 30}}, CellFrameColor->RGBColor[0.627451, 0, 0], FontFamily->"Times", FontColor->RGBColor[ 0.627451, 0, 0],ExpressionUUID->"2dddeb1a-643f-46ce-8c6e-29a9b0204370"], Cell[StyleData["Section"], CellFrame->{{0, 0}, {0, 2}}, CellMargins->{{26.5, 10}, {6, 20}}, CellFrameColor->RGBColor[0.752941, 0, 0], FontFamily->"Times", FontColor->RGBColor[ 0.752941, 0, 0],ExpressionUUID->"6abd2823-2cff-4d6e-b86f-6a1e3fecc295"], Cell[StyleData["Subsection"], CellMargins->{{27, 10}, {5, 12}}, FontFamily->"Times", FontColor->RGBColor[ 0.878431, 0, 0],ExpressionUUID->"447b825b-248b-4edb-80a9-1cb53a1e2345"], Cell[StyleData["Subsubsection"], CellMargins->{{27.5, 10}, {3, 6}}, FontFamily->"Times", FontSize->17, FontColor->RGBColor[ 0.878431, 0, 0],ExpressionUUID->"764cbff6-90e4-4755-9145-41b5d0ddb936"], Cell[StyleData["Text"], CellMargins->{{28, 10}, {8, 6}}, TextJustification->0.25, Hyphenation->True, FontFamily->"Times",ExpressionUUID->"47440273-71b9-48ad-8614-9258f88ec2ac"], Cell[StyleData["Item"], CellFrame->None, CellDingbat->StyleBox["\[FilledCircle]", Alignment -> Baseline, RGBColor[0.75, 0, 0]], CellMargins->{{49, 10}, {6, 6}}, CellDingbatMargin->12, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times",ExpressionUUID->"471230ca-12a5-4204-947b-606ae1ad510b"], Cell[StyleData["ItemParagraph"], CellMargins->{{49, 10}, {4, 1}}, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontColor->Automatic,ExpressionUUID->"d87b6007-d030-4ee2-ab3b-273d4ca639ab"], Cell[StyleData["Subitem"], CellDingbat->StyleBox["\[FilledSmallCircle]", Alignment -> Baseline, RGBColor[0.75, 0, 0]], CellMargins->{{81.5, 10}, {4, 4}}, CellDingbatMargin->25.5, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15,ExpressionUUID->"4e84fc25-4c81-44d2-beef-9620593ff694"], Cell[StyleData["SubitemParagraph"], CellMargins->{{81.5, 10}, {3, 1}}, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15, FontColor->Automatic,ExpressionUUID->"84878a66-f967-4d91-b5ad-f2a36dae9f4b"], Cell[StyleData["Subsubitem"], CellDingbat->StyleBox["\[Application]", Alignment -> Baseline, RGBColor[0.63, 0, 0]], CellMargins->{{123, 10}, {3, 3}}, CellDingbatMargin->35, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15,ExpressionUUID->"4301eaba-b320-4703-9569-3087c89954bd"], Cell[StyleData["SubsubitemParagraph"], CellMargins->{{123, 10}, {3, 1}}, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15, FontColor->Automatic,ExpressionUUID->"73f7eb70-613a-4e54-a20a-72262ae3dde4"], Cell[StyleData["ItemNumbered"], CellDingbat->Cell[ TextData[{ CounterBox["ItemNumbered"], "."}], FontWeight -> "Plain"], CellMargins->{{49, 10}, {6, 6}}, CellDingbatMargin->9.5, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times",ExpressionUUID->"009259a4-b714-4569-99da-1e246ce03015"], Cell[StyleData["SubitemNumbered"], CellDingbat->Cell[ TextData[{ CounterBox["ItemNumbered"], ".", CounterBox["SubitemNumbered"], "."}], FontWeight -> "Plain"], CellMargins->{{81.5, 10}, {4, 4}}, CellDingbatMargin->10, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15,ExpressionUUID->"0cc53b66-8904-4bbd-ab64-c5b418b12d2d"], Cell[StyleData["SubsubitemNumbered"], CellDingbat->Cell[ TextData[{ CounterBox["ItemNumbered"], ".", CounterBox["SubitemNumbered"], ".", CounterBox["SubsubitemNumbered"], "."}], FontWeight -> "Plain"], CellMargins->{{123, 10}, {3, 3}}, CellDingbatMargin->7, TextJustification->0.25, Hyphenation->True, LineSpacing->{1., 3., 2.}, FontFamily->"Times", FontSize->15,ExpressionUUID->"7b54cf50-f647-4bce-892b-05aa1ce8bec4"], Cell[StyleData["DisplayFormula"], CellMargins->{{81, Inherited}, {Inherited, Inherited}}, StyleHints-><| "CodeFont" -> "Times", "GroupOpener" -> "Inline", "GearMenu" -> False, "OperatorRenderings" -> <| "|->" -> "\[Function]", "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", "<->" -> "\[TwoWayRule]", "[[" -> "\[LeftDoubleBracket]", "]]" -> "\[RightDoubleBracket]", "<|" -> "\[LeftAssociation]", "|>" -> "\[RightAssociation]"|>|>, FontFamily->"Times", FontSize->15, FontColor->Automatic,ExpressionUUID->"3f3ce29d-d4b4-492d-994e-079f2472272d"], Cell[StyleData["DisplayFormulaNumbered"], CellMargins->{{81, Inherited}, {Inherited, Inherited}}, StyleHints-><| "CodeFont" -> "Times", "GroupOpener" -> "Inline", "GearMenu" -> False, "OperatorRenderings" -> <| "|->" -> "\[Function]", "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", "<->" -> "\[TwoWayRule]", "[[" -> "\[LeftDoubleBracket]", "]]" -> "\[RightDoubleBracket]", "<|" -> "\[LeftAssociation]", "|>" -> "\[RightAssociation]"|>|>, FontFamily->"Times", FontSize->15, FontColor->Automatic,ExpressionUUID->"24893638-66d1-4ae2-b5b1-7f583c277fed"], Cell[StyleData["DisplayFormulaEquationNumber", StyleDefinitions -> StyleData["DisplayFormulaNumbered"]], StyleHints-><| "CodeFont" -> "Times", "GroupOpener" -> "Inline", "GearMenu" -> False, "OperatorRenderings" -> <| "|->" -> "\[Function]", "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", "<->" -> "\[TwoWayRule]", "[[" -> "\[LeftDoubleBracket]", "]]" -> "\[RightDoubleBracket]", "<|" -> "\[LeftAssociation]", "|>" -> "\[RightAssociation]"|>|>, MenuSortingValue->10000, FontFamily->"Times",ExpressionUUID->"01f2223d-bdc4-8c41-9ce7-616ebee88927"], Cell[StyleData["InlineFormula"], StyleHints-><| "CodeFont" -> "Times", "GroupOpener" -> "Inline", "GearMenu" -> False, "OperatorRenderings" -> <| "|->" -> "\[Function]", "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", "<->" -> "\[TwoWayRule]", "[[" -> "\[LeftDoubleBracket]", "]]" -> "\[RightDoubleBracket]", "<|" -> "\[LeftAssociation]", "|>" -> "\[RightAssociation]"|>|>, FontSize->1. Inherited,ExpressionUUID->"0f99cfd3-99c1-d04f-97cb-05ef1affe2ec"], Cell[StyleData["CodeText"], CellMargins->{{80.5, Inherited}, {Inherited, Inherited}}, FontColor->Automatic,ExpressionUUID->"641235b3-9141-469c-964b-9e9d28ea5514"], Cell[StyleData["Program"], CellMargins->{{81, 10}, {8, 8}},ExpressionUUID->"299905d8-7a20-8240-bae6-fc0b05407213"], Cell[StyleData["Input"], CellMargins->{{81, 10}, {5, 8}}, CellDingbatMargin->12,ExpressionUUID->"fdc7cec7-3bdd-9f42-8de6-cb169e30de43"], Cell[StyleData["Output"], CellMargins->{{81, 10}, {12, 5}},ExpressionUUID->"1d953480-ca2a-0d4a-a12b-839d0893cabf"], Cell[StyleData["Code"], CellMargins->{{81, 10}, {10, 10}},ExpressionUUID->"c64a73ed-4b9f-fa4a-8ab0-c237688c62f4"], Cell[StyleData["ExternalLanguage"], CellMargins->{{81, 10}, {8, 8}},ExpressionUUID->"0a9c2820-c0aa-db4d-bec0-0b0b6995c82e"], Cell[StyleData["NaturalLanguageInput"], CellMargins->{{81, 21}, {5, 10}},ExpressionUUID->"968b89a3-a878-5b4e-8215-9a1736d162fd"] }, WindowSize->{582.6, 609.6}, WindowMargins->{{Automatic, 3}, {Automatic, 0}}, FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", StyleDefinitions->"PrivateStylesheetFormatting.nb", ExpressionUUID->"43f871a3-56bb-4905-b3d6-0a21d44a157f" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 104, 0, 30, 49, 0, "StyleData", "StyleDefinitions", "",ExpressionUUID->"70fcc54a-d96e-4e9b-92cc-acbc2f992e7d"], Cell[665, 22, 32541, 601, 36, 27, 0, "StyleData", "Notebook", "All",ExpressionUUID->"82dc691e-955f-de45-bc76-74464b606f6a"], Cell[33209, 625, 275, 7, 117, 24, 0, "StyleData", "Title", "All",ExpressionUUID->"62b74c3d-4473-490d-b706-c48d1ac8b5c9"], Cell[33487, 634, 209, 5, 78, 27, 0, "StyleData", "Subtitle", "All",ExpressionUUID->"f13350ab-eb4a-4429-ab9f-6350426032b3"], Cell[33699, 641, 180, 4, 49, 30, 0, "StyleData", "Affiliation", "All",ExpressionUUID->"294c387c-b34e-43ea-98a6-c6e65f57b81f"], Cell[33882, 647, 156, 3, 81, 27, 0, "StyleData", "Abstract", "All",ExpressionUUID->"d1fd72f2-7727-4c83-8826-4ae6fc297d44"], Cell[34041, 652, 153, 3, 58, 25, 0, "StyleData", "Author", "All",ExpressionUUID->"6a407953-fd9c-40bc-85e4-943aee7aa45c"], Cell[34197, 657, 253, 6, 109, 26, 0, "StyleData", "Chapter", "All",ExpressionUUID->"2dddeb1a-643f-46ce-8c6e-29a9b0204370"], Cell[34453, 665, 254, 6, 66, 26, 0, "StyleData", "Section", "All",ExpressionUUID->"6abd2823-2cff-4d6e-b86f-6a1e3fecc295"], Cell[34710, 673, 182, 4, 50, 29, 0, "StyleData", "Subsection", "All",ExpressionUUID->"447b825b-248b-4edb-80a9-1cb53a1e2345"], Cell[34895, 679, 201, 5, 45, 32, 0, "StyleData", "Subsubsection", "All",ExpressionUUID->"764cbff6-90e4-4755-9145-41b5d0ddb936"], Cell[35099, 686, 180, 4, 47, 23, 0, "StyleData", "Text", "All",ExpressionUUID->"47440273-71b9-48ad-8614-9258f88ec2ac"], Cell[35282, 692, 342, 9, 47, 23, 0, "StyleData", "Item", "All",ExpressionUUID->"471230ca-12a5-4204-947b-606ae1ad510b"], Cell[35627, 703, 240, 6, 40, 32, 0, "StyleData", "ItemParagraph", "All",ExpressionUUID->"d87b6007-d030-4ee2-ab3b-273d4ca639ab"], Cell[35870, 711, 351, 9, 43, 26, 0, "StyleData", "Subitem", "All",ExpressionUUID->"4e84fc25-4c81-44d2-beef-9620593ff694"], Cell[36224, 722, 260, 7, 39, 35, 0, "StyleData", "SubitemParagraph", "All",ExpressionUUID->"84878a66-f967-4d91-b5ad-f2a36dae9f4b"], Cell[36487, 731, 345, 9, 41, 29, 0, "StyleData", "Subsubitem", "All",ExpressionUUID->"4301eaba-b320-4703-9569-3087c89954bd"], Cell[36835, 742, 262, 7, 39, 38, 0, "StyleData", "SubsubitemParagraph", "All",ExpressionUUID->"73f7eb70-613a-4e54-a20a-72262ae3dde4"], Cell[37100, 751, 339, 9, 47, 31, 0, "StyleData", "ItemNumbered", "All",ExpressionUUID->"009259a4-b714-4569-99da-1e246ce03015"], Cell[37442, 762, 400, 11, 43, 34, 0, "StyleData", "SubitemNumbered", "All",ExpressionUUID->"0cc53b66-8904-4bbd-ab64-c5b418b12d2d"], Cell[37845, 775, 446, 12, 41, 37, 0, "StyleData", "SubsubitemNumbered", "All",ExpressionUUID->"7b54cf50-f647-4bce-892b-05aa1ce8bec4"], Cell[38294, 789, 672, 12, 43, 33, 0, "StyleData", "DisplayFormula", "All",ExpressionUUID->"3f3ce29d-d4b4-492d-994e-079f2472272d"], Cell[38969, 803, 680, 12, 43, 41, 0, "StyleData", "DisplayFormulaNumbered", "All",ExpressionUUID->"24893638-66d1-4ae2-b5b1-7f583c277fed"], Cell[39652, 817, 676, 11, 43, 106, 1, "StyleData", "DisplayFormulaEquationNumber", "All",ExpressionUUID->"01f2223d-bdc4-8c41-9ce7-616ebee88927", MenuSortingValue->10000], Cell[40331, 830, 582, 10, 40, 32, 0, "StyleData", "InlineFormula", "All",ExpressionUUID->"0f99cfd3-99c1-d04f-97cb-05ef1affe2ec"], Cell[40916, 842, 164, 2, 46, 27, 0, "StyleData", "CodeText", "All",ExpressionUUID->"641235b3-9141-469c-964b-9e9d28ea5514"], Cell[41083, 846, 118, 2, 66, 26, 0, "StyleData", "Program", "All",ExpressionUUID->"299905d8-7a20-8240-bae6-fc0b05407213"], Cell[41204, 850, 137, 2, 46, 24, 0, "StyleData", "Input", "All",ExpressionUUID->"fdc7cec7-3bdd-9f42-8de6-cb169e30de43"], Cell[41344, 854, 118, 2, 50, 25, 0, "StyleData", "Output", "All",ExpressionUUID->"1d953480-ca2a-0d4a-a12b-839d0893cabf"], Cell[41465, 858, 117, 2, 68, 23, 0, "StyleData", "Code", "All",ExpressionUUID->"c64a73ed-4b9f-fa4a-8ab0-c237688c62f4"], Cell[41585, 862, 127, 2, 67, 35, 0, "StyleData", "ExternalLanguage", "All",ExpressionUUID->"0a9c2820-c0aa-db4d-bec0-0b0b6995c82e"], Cell[41715, 866, 132, 2, 66, 39, 0, "StyleData", "NaturalLanguageInput", "All",ExpressionUUID->"968b89a3-a878-5b4e-8215-9a1736d162fd"] } ] *)