(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 123403, 2920] NotebookOptionsPosition[ 65734, 1702] NotebookOutlinePosition[ 115462, 2739] CellTagsIndexPosition[ 114889, 2719] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["SystemsModelConnect", "Title", CellChangeTimes->{3.748185068451109*^9}, CellTags->{"Title", "TabNext"}, CellID->18217985], Cell["Connect systems together using any inputs and outputs", "Text", CellChangeTimes->{{3.7481850714281087`*^9, 3.7481850719561086`*^9}}, CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->40452676], Cell[BoxData[{ RowBox[{ RowBox[{"SystemsModelConnect", "[", "args___", "]"}], ":=", RowBox[{"(", RowBox[{"SystemsModelSeriesConnect", ";", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"result", "=", RowBox[{"Catch", "[", RowBox[{"Control`ConnectionsDump`genericconnect", "[", "args", "]"}], "]"}]}], "}"}], ",", RowBox[{"result", "/;", RowBox[{"FreeQ", "[", RowBox[{"result", ",", "$Failed"}], "]"}]}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SystemsModelConnect", "[", "___", "]"}], ":=", "$Failed"}]}], "Input", CellChangeTimes->{ 3.7481850762591085`*^9, {3.7481851530401087`*^9, 3.748185158852109*^9}, { 3.748185362071109*^9, 3.748185373038109*^9}}, CellTags->"TabNext", CellLabel->"In[3]:=", CellID->206237809] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{"{", RowBox[{ SubscriptBox["sys", "1"], ",", SubscriptBox["sys", "2"], ",", "\[Ellipsis]"}], "}"}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7458372401638665`*^9, 3.745837289698867*^9}, 3.7458385106662087`*^9, {3.7482075114872246`*^9, 3.7482075349748755`*^9}, { 3.7482084212367525`*^9, 3.7482084589905276`*^9}}, CellID->41095089], Cell["merges the systems without creating any interconnections.", \ "UsageDescription", CellChangeTimes->{{3.7458372943258667`*^9, 3.7458373237598667`*^9}, { 3.745837356368867*^9, 3.7458373801338663`*^9}, {3.745838514657608*^9, 3.7458385223293753`*^9}, {3.7458385582279644`*^9, 3.7458385648306246`*^9}}, CellID->111796937] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["sys", "1"], ",", SubscriptBox["sys", "2"], ",", "\[Ellipsis]"}], "}"}], ",", StyleBox["connections", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7458372401638665`*^9, 3.745837289698867*^9}, 3.7458385106662087`*^9, {3.7458385915762987`*^9, 3.745838616642805*^9}, 3.7482075406503077`*^9, 3.748208463124941*^9}, CellID->692487401], Cell["\<\ gives a single systems model including the specified connections.\ \>", "UsageDescription", CellChangeTimes->{{3.7458372943258667`*^9, 3.7458373237598667`*^9}, { 3.745837356368867*^9, 3.7458373801338663`*^9}, {3.745838514657608*^9, 3.7458385223293753`*^9}, {3.7458385582279644`*^9, 3.7458385648306246`*^9}, { 3.7458386041425557`*^9, 3.745838657713912*^9}, {3.7458387044485855`*^9, 3.7458387115282927`*^9}}, CellID->272715143] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["sys", "1"], ",", SubscriptBox["sys", "2"], ",", "\[Ellipsis]"}], "}"}], ",", StyleBox["connections", "TI"], ",", StyleBox["inputs", "TI"], ",", StyleBox["output", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7458372401638665`*^9, 3.745837289698867*^9}, 3.7482075433640366`*^9, 3.7482084651661453`*^9}, CellID->550911625], Cell[TextData[{ "includes only the specified ", Cell[BoxData[ StyleBox["inputs", "TI"]], "InlineFormula"], " and ", Cell[BoxData[ StyleBox["outputs", "TI"]], "InlineFormula"], " in the resulting systems model." }], "UsageDescription", CellChangeTimes->{{3.7458372943258667`*^9, 3.7458373237598667`*^9}, { 3.745837356368867*^9, 3.7458373801338663`*^9}, {3.74583867549369*^9, 3.745838694783619*^9}}, CellID->46342605] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell[TextData[{ "Each systems model ", Cell[BoxData[ FormBox[ SubscriptBox["sys", "1"], TraditionalForm]]], " can be a ", Cell[BoxData[ ButtonBox["StateSpaceModel", BaseStyle->"Link"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["TransferFunctionModel", BaseStyle->"Link"]], "InlineFormula"], ", ", Cell[BoxData[ ButtonBox["AffineStateSpaceModel", BaseStyle->"Link"]], "InlineFormula"], " or ", Cell[BoxData[ ButtonBox["NonlinearStateSpaceModel", BaseStyle->"Link"]], "InlineFormula"], "." }], "Notes", CellChangeTimes->{{3.745837384422867*^9, 3.7458374825758667`*^9}, { 3.7458375312428665`*^9, 3.745837544684867*^9}}, CellID->350293453], Cell[TextData[{ "All systems models must share a common ", Cell[BoxData[ ButtonBox["SamplingPeriod", BaseStyle->"Link"]], "InlineFormula"], "." }], "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.7458375781668663`*^9}, { 3.745838370525531*^9, 3.745838370526531*^9}}, CellID->223960282], Cell["The result is a single systems model.", "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.7458375781668663`*^9}, { 3.745838373312088*^9, 3.745838397722969*^9}}, CellID->78488187], Cell["\<\ The resulting systems model will be the simplest type compatible with all the \ connected systems.\ \>", "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.7458375781668663`*^9}, { 3.745838373312088*^9, 3.7458384311526537`*^9}}, CellID->582131638], Cell[TextData[{ "The connections are specified in a list ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["con", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["con", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], TraditionalForm]]], ", where each ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["con", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " is given as ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["s", "TI"], StyleBox["oi", "TI"]], ",", " ", SubscriptBox[ StyleBox["out", "TI"], StyleBox["i", "TI"]]}], "}"}], "->", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["s", "TI"], StyleBox["ii", "TI"]], ",", SubscriptBox[ StyleBox["in", "TI"], StyleBox["i", "TI"]]}], "}"}]}], TraditionalForm]]], " where all the ", Cell[BoxData[ StyleBox["s", "TI"]], "InlineFormula"], ", ", Cell[BoxData[ StyleBox["in", "TI"]], "InlineFormula"], ", and ", Cell[BoxData[ StyleBox["out", "TI"]], "InlineFormula"], " values are integer indices based on the following table:" }], "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.745837818153867*^9}, { 3.7458379598608665`*^9, 3.7458379978478665`*^9}, {3.7458381609288664`*^9, 3.7458381609308667`*^9}}, CellID->76144210], Cell[TextData[Cell[BoxData[GridBox[{ { SubscriptBox[ StyleBox["s", "Text"], StyleBox["oi", "TI"]], RowBox[{ "source", " ", "system", " ", "of", " ", "the", " ", "connection"}]}, { SubscriptBox[ StyleBox["out", "TI"], StyleBox["i", "TI"]], RowBox[{"output", " ", "of", " ", SubscriptBox[ StyleBox["s", "TI"], StyleBox["oi", "TI"]], "to", " ", "connect"}]}, { SubscriptBox[ StyleBox["s", "TI"], StyleBox["ii", "TI"]], RowBox[{ "target", " ", "system", " ", "of", " ", "the", " ", "connection"}]}, { SubscriptBox[ StyleBox["in", "TI"], StyleBox["i", "TI"]], RowBox[{"input", " ", "of", " ", SubscriptBox[ StyleBox["s", "TI"], StyleBox["ii", "TI"]], "to", " ", "connect"}]} }]]]], "Notes", CellID->308449540], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["inputs", "TI"]], "InlineFormula"], " are each specified as a list ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["s", "1"], ",", SubscriptBox[ StyleBox["in", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], TraditionalForm]]], "." }], "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.745837818153867*^9}, { 3.7458379598608665`*^9, 3.7458379978478665`*^9}, {3.7458381581688666`*^9, 3.745838294591347*^9}}, CellID->72450356], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["outputs", "TI"]], "InlineFormula"], " are each specified as a list ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["s", "1"], ",", SubscriptBox[ StyleBox["out", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], TraditionalForm]]], "." }], "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.745837818153867*^9}, { 3.7458379598608665`*^9, 3.7458379978478665`*^9}, {3.7458381581688666`*^9, 3.745838314901408*^9}}, CellID->11497692], Cell[TextData[{ Cell[BoxData[ ButtonBox["All", BaseStyle->"Link"]], "InlineFormula"], " can be used for ", Cell[BoxData[ StyleBox["inputs", "TI"]], "InlineFormula"], " or ", Cell[BoxData[ StyleBox["outputs", "TI"]], "InlineFormula"], " to include all inputs or outputs in the resulting system." }], "Notes", CellChangeTimes->{{3.745837556804867*^9, 3.745837818153867*^9}, { 3.7458379598608665`*^9, 3.7458379978478665`*^9}, {3.7458381581688666`*^9, 3.7458383646773615`*^9}}, CellID->196482729] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ See existing documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->269615104], Cell[TextData[{ "A merged system connect like ", Cell[BoxData[ ButtonBox["SystemsModelMerge", BaseStyle->"Link"]], "InlineFormula"], ":" }], "Text", CellChangeTimes->{{3.745838453406104*^9, 3.745838470154158*^9}, { 3.745838754272567*^9, 3.7458387705411935`*^9}}, CellID->3510889], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{FractionBox["1", RowBox[{"\[Alpha]", " ", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True], ",", InterpretationBox[ TemplateBox[{FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.745838445415506*^9, 3.7458384504055037`*^9}}, CellLabel->"In[43]:=", CellID->764755841], Cell[BoxData[ InterpretationBox[ TemplateBox[{FractionBox["1", RowBox[{"\[Alpha]", " ", "s"}]],"0","0",FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox["\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}, { Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 2, 2, Control`CountStates[ TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#, #2}, {#3, #4}}, AllowedDimensions -> {2, 2}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #5, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 2}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{3, 4}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#5}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]], "Output", CellChangeTimes->{3.745838472758418*^9}, CellLabel->"Out[43]=", CellID->162178699] }, Open ]], Cell[TextData[{ "A series connection like ", Cell[BoxData[ ButtonBox["SystemsModelSeriesConnect", BaseStyle->"Link"]], "InlineFormula"], ":" }], "Text", CellChangeTimes->{{3.745838453406104*^9, 3.745838470154158*^9}, { 3.745838754272567*^9, 3.745838781412281*^9}}, CellID->62526580], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{FractionBox["1", RowBox[{"\[Alpha]", " ", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{ "MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True], ",", InterpretationBox[ TemplateBox[{FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{ "MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.745838445415506*^9, 3.7458384504055037`*^9}, { 3.7458387833884783`*^9, 3.7458387996701064`*^9}}, CellLabel->"In[55]:=", CellID->33690445], Cell[BoxData[ InterpretationBox[ TemplateBox[{FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "s"}], "+", SuperscriptBox["s", "2"]}], ")"}]}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{Control`CommonDump`$DUMMY$}, { Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ ($CellContext`a $CellContext`s + $CellContext`s^2) $CellContext`\[Alpha]}, \ $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ ($CellContext`a $CellContext`s + $CellContext`s^2) $CellContext`\[Alpha]}, \ $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, ($CellContext`a \ $CellContext`s + $CellContext`s^2) $CellContext`\[Alpha]}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]], "Output", CellChangeTimes->{3.745838472758418*^9, 3.74583880081122*^9, 3.7458391509962354`*^9}, CellLabel->"Out[55]=", CellID->460787761] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["Connect several different types of systems:", "Text", CellChangeTimes->{{3.7458392486818094`*^9, 3.74583925763581*^9}}, CellID->458378479], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{ SubscriptBox["a", "11"],SubscriptBox["a", "12"],SubscriptBox["b", "11"], SubscriptBox["b", "12"],SubscriptBox["a", "21"],SubscriptBox[ "a", "22"],SubscriptBox["b", "21"],SubscriptBox["b", "22"], SubscriptBox["c", "11"],SubscriptBox["c", "12"],"0","0",SubscriptBox[ "c", "21"],SubscriptBox["c", "22"],"0","0",InterpretationBox[ "\[InvisibleSpace]", None],{ StateSpaceModel, { False, False, { False, False}}, {$CellContext`stname1, $CellContext`stname2}, {{ Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}, { Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}, { Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}}, Identity, Automatic, 2, 2, 2, 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "StateSpaceModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#, #2, #3, #4}, {#5, #6, #7, #8}, {#9, #10, #11, #12}, \ {#13, #14, #15, #16}}, AllowedDimensions -> {4, 4}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> {"Rows" -> {False, False, Directive[ GrayLevel[0], GrayLevel[0.6]], {False}, False}, "Columns" -> {False, False, Directive[ GrayLevel[0], GrayLevel[0.6]], {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #17, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalS]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->(RowBox[{"StateSpaceModel", "[", RowBox[{"{", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 2}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{5, 6}, ","], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{3, 4}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{7, 8}, ","], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{9, 10}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{13, 14}, ","], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{11, 12}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{15, 16}, ","], "}"}], "}"}], "}"}], ",", "SamplingPeriod", "->", RowBox[{#17}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->StateSpaceModel], ",", InterpretationBox[ TemplateBox[{FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{ "MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True], ",", TemplateBox[{RowBox[{ SubscriptBox["f", "2"], "[", RowBox[{ SubscriptBox["x", "2"], ",", SubscriptBox["u", "2"]}], "]"}],SubscriptBox["x", "2"], SubscriptBox["x", "2"],InterpretationBox["", Automatic], InterpretationBox[" ", None],{ 1, 1, 1, 1, {}, None, False, False, False, RowBox[{"{", SubscriptBox["u", "2"], "}"}], "Automatic"},{}}, "NonlinearStateSpaceModelFull", BaseStyle->(NumberMarks -> False), DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#3, #}, {#4, #2}}, {}, GridBoxDividers -> {"Rows" -> {False, Directive[ GrayLevel[0], GrayLevel[0.6]], False}, "Columns" -> {False, Directive[ GrayLevel[0], GrayLevel[0.6]], False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle -> {"Columns" -> { Directive["InlineText", Smaller, GrayLevel[0.5]], {Automatic}}, "Rows" -> {{Automatic}}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #5, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalN]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None]], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"NonlinearStateSpaceModel[", "{", "{", TemplateSlotSequence[{1, 1}, ","], "}", ",", "{", TemplateSlotSequence[{2, 2}, ","], "}", "}", ",", "{", TemplateSlotSequence[{3, 3}, ","], "}", ",", RowBox[{"{", SubscriptBox["u", "2"], "}"}], ",", "{", TemplateSlotSequence[{4, 4}, ","], "}", ",", "Automatic", ", SamplingPeriod -> ", #5, ", SystemsModelLabels -> ", "{", {}, ",", None, ",", None, "}", "]"}]& ), Tooltip->NonlinearStateSpaceModel]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.7458392471398096`*^9, {3.7458392869718094`*^9, 3.7458393853188095`*^9}, { 3.7458394276188097`*^9, 3.7458394337428093`*^9}}, CellLabel->"In[83]:=", CellID->7322754], Cell[BoxData[ TemplateBox[{RowBox[{ RowBox[{ SubscriptBox["\[FormalX]", "1"], " ", SubscriptBox["a", "11"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "2"], " ", SubscriptBox["a", "12"]}], "+", RowBox[{ SubscriptBox["\[FormalU]", "1"], " ", SubscriptBox["b", "11"]}], "+", RowBox[{ SubscriptBox["b", "12"], " ", SubscriptBox["x", "2"]}]}],RowBox[{ RowBox[{ SubscriptBox["\[FormalX]", "1"], " ", SubscriptBox["a", "21"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "2"], " ", SubscriptBox["a", "22"]}], "+", RowBox[{ SubscriptBox["\[FormalU]", "1"], " ", SubscriptBox["b", "21"]}], "+", RowBox[{ SubscriptBox["b", "22"], " ", SubscriptBox["x", "2"]}]}],RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", SubscriptBox["\[FormalX]", "3"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "1"], " ", SubscriptBox["c", "11"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "2"], " ", SubscriptBox["c", "12"]}]}],RowBox[{ SubscriptBox["f", "2"], "[", RowBox[{ SubscriptBox["x", "2"], ",", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", SubscriptBox["\[FormalX]", "3"]}], "+", RowBox[{"b", " ", SubscriptBox["\[FormalX]", "3"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "1"], " ", SubscriptBox["c", "11"]}], "+", RowBox[{ SubscriptBox["\[FormalX]", "2"], " ", SubscriptBox["c", "12"]}]}]}], "]"}],SubscriptBox["x", "2"], SubscriptBox["\[FormalX]", "1"],SubscriptBox["\[FormalX]", "2"], SubscriptBox["\[FormalX]", "3"],SubscriptBox["x", "2"],InterpretationBox[ "", Automatic],InterpretationBox[" ", None],{ 4, 1, 1, 1, None, None, False, False, False, RowBox[{"{", SubscriptBox["\[FormalU]", "1"], "}"}], "Automatic"},{}}, "NonlinearStateSpaceModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#6, #}, {#7, #2}, {#8, #3}, {#9, #4}, {#10, #5}}, {}, GridBoxDividers -> {"Rows" -> {False, False, False, False, Directive[ GrayLevel[0], GrayLevel[0.6]], False}, "Columns" -> {False, Directive[ GrayLevel[0], GrayLevel[0.6]], False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle -> {"Columns" -> { Directive["InlineText", Smaller, GrayLevel[0.5]], {Automatic}}, "Rows" -> {{Automatic}}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #11, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalN]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None]], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->(RowBox[{"NonlinearStateSpaceModel[", "{", "{", TemplateSlotSequence[{1, 4}, ","], "}", ",", "{", TemplateSlotSequence[{5, 5}, ","], "}", "}", ",", "{", TemplateSlotSequence[{6, 9}, ","], "}", ",", RowBox[{"{", SubscriptBox["\[FormalU]", "1"], "}"}], ",", "{", TemplateSlotSequence[{10, 10}, ","], "}", ",", "Automatic", ", SamplingPeriod -> ", #11, "]"}]& ), Tooltip->NonlinearStateSpaceModel]], "Output", CellChangeTimes->{{3.74583937208381*^9, 3.74583937845181*^9}, 3.7458394325148096`*^9, 3.7458397365938096`*^9}, CellLabel->"Out[83]=", CellID->228787205] }, Open ]] }, Open ]], Cell["Options", "Subsection", CellID->1575259], Cell["Applications", "Subsection", CellID->20767984], Cell["Properties and Relations", "Subsection", CellID->461307998], Cell["Possible Issues", "Subsection", CellID->95944414], Cell["Neat Examples", "Subsection", CellID->5316679] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->193619321], Cell["Bob Sandheinrich", "Text", CellChangeTimes->{3.748185123090109*^9}, CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell["Controls", "Item", CellChangeTimes->{{3.7458397555918093`*^9, 3.7458397579338093`*^9}}, CellID->573194473], Cell["SystemsModel", "Item", CellChangeTimes->{{3.7458397606668096`*^9, 3.7458397664038095`*^9}}, CellID->302758797], Cell["StateSpace", "Item", CellChangeTimes->{{3.7458397606668096`*^9, 3.7458397720688095`*^9}}, CellID->295144842], Cell["Dynamical Systems", "Item", CellChangeTimes->{{3.7458397606668096`*^9, 3.7458398007848096`*^9}}, CellID->591769451], Cell["Feedback", "Item", CellChangeTimes->{{3.7458397606668096`*^9, 3.745839819264065*^9}}, CellID->265963420] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->234336100], Cell["GrayCode (resources from any Wolfram repository)", "Item", CellTags->"TabNext", CellID->96811861] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->4373816], Cell["Source, reference or citation information", "Text", CellTags->"TabNext", CellID->122131667] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Links", CellID->443077927], Cell["Link to other related material", "Item", CellTags->"TabNext", CellID->70093026] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SystemsModelConnect", "[", RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{FractionBox["1", RowBox[{"\[Alpha]", " ", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{ 1}}, $CellContext`s $CellContext`\[Alpha]}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True], ",", InterpretationBox[ TemplateBox[{FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox[ "\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, Control`CountStates[ TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#}}, AllowedDimensions -> {1, 1}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #2, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{$CellContext`b + $CellContext`s}}, \ $CellContext`a + $CellContext`s}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.745838445415506*^9, 3.7458384504055037`*^9}}, CellLabel->"In[5]:=", CellID->524646374], Cell[BoxData[ InterpretationBox[ TemplateBox[{FractionBox["1", RowBox[{"\[Alpha]", " ", "s"}]],"0","0",FractionBox[ RowBox[{"b", "+", "s"}], RowBox[{"a", "+", "s"}]],InterpretationBox["\[InvisibleSpace]", None],{ TransferFunctionModel, { False, False, {False, False}}, $Failed, {{ Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}, { Control`CommonDump`$DUMMY$, Control`CommonDump`$DUMMY$}}, InterpretationBox[#, TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s], AutoDelete -> True, Editable -> True, BaseStyle -> "TransferFunctionModelMinimal"]& , $CellContext`s, 2, 2, Control`CountStates[ TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s]], 1, {}, {False, False}, False, Automatic, None, Automatic},{}}, "TransferFunctionModelFull", BaseStyle->{NumberMarks -> False}, DisplayFunction->(TagBox[ SubsuperscriptBox[ RowBox[{"(", GridBox[{{#, #2}, {#3, #4}}, AllowedDimensions -> {2, 2}, AutoDelete -> False, AllowScriptLevelChange -> False, ColumnAlignments -> {Center}, BaseStyle -> {Deployed -> False}, GridBoxItemStyle -> {}, GridBoxDividers -> { "Rows" -> {False, {False}, False}, "Columns" -> {False, {False}, False}}, GridBoxBackground -> {"Rows" -> {{ GrayLevel[1], RGBColor[0.8, 0.9, 0.9]}}}], ")"}], #5, ButtonBox[ GraphicsBox[{ RGBColor[0.8, 0.85, 0.85], EdgeForm[ RGBColor[0.6, 0.7, 0.7]], RectangleBox[{0, 0}, RoundingRadius -> Offset[2.5]], InsetBox[ StyleBox[ "\[ScriptCapitalT]", Control`NonlinearModelsDump`LineColor -> GrayLevel[0], Control`NonlinearModelsDump`FrontFaceColor -> GrayLevel[0], Control`NonlinearModelsDump`BackFaceColor -> GrayLevel[0], GraphicsColor -> GrayLevel[0], FontSize -> 12, FontColor -> GrayLevel[0]], {0.5, 0.5}]}, ImageSize -> 20], ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[ ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> None], MultilineFunction -> None], EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[ FrontEnd`Value[ FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> True}]]& ), InterpretationFunction->( RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", RowBox[{"{", RowBox[{"{", TemplateSlotSequence[{1, 2}, ","], "}"}], ",", RowBox[{"{", TemplateSlotSequence[{3, 4}, ","], "}"}], "}"}], "]", ",", "s", ",", "SamplingPeriod", "->", RowBox[{#5}], ",", "SystemsModelLabels", "->", "None", "]"}]& ), Tooltip->TransferFunctionModel], TransferFunctionModel[{{{1, 0}, { 0, $CellContext`b + $CellContext`s}}, {{$CellContext`s $CellContext`\ \[Alpha], 1}, {1, $CellContext`a + $CellContext`s}}}, $CellContext`s], AutoDelete->True, BaseStyle->"TransferFunctionModelMinimal", Editable->True]], "Output", CellChangeTimes->{ 3.745838472758418*^9, {3.7481851457701087`*^9, 3.7481851641811085`*^9}, 3.7481854069781084`*^9}, CellLabel->"Out[5]=", CellID->137444557] }, Open ]] }, Open ]] }, Open ]], Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->359397282] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 130, 3, 70, "Title",ExpressionUUID->"764b77b4-b6ce-44bc-8ba6-7ed5308cb1e7", CellTags->{"Title", "TabNext"}, CellID->18217985]}, "TabNext"->{ Cell[580, 22, 130, 3, 70, "Title",ExpressionUUID->"764b77b4-b6ce-44bc-8ba6-7ed5308cb1e7", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[713, 27, 197, 3, 70, "Text",ExpressionUUID->"d523876d-ccf1-49de-b157-b61af606ee61", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[1770, 55, 849, 24, 70, "Input",ExpressionUUID->"adc19964-4443-4805-a1e7-86581d8b6ec0", CellTags->"TabNext", CellID->206237809], Cell[51143, 1329, 116, 3, 70, "Text",ExpressionUUID->"3c0b28ba-d341-43c3-9411-17a565b2e14d", CellTags->"TabNext", CellID->268773406], Cell[53212, 1400, 105, 2, 70, "Item",ExpressionUUID->"ede960bd-879f-4b5e-9940-2e788a35fc51", CellTags->"TabNext", CellID->96811861], Cell[54066, 1426, 99, 2, 70, "Text",ExpressionUUID->"eb245ba1-5dee-4b63-80f5-ea30e81f3bbe", CellTags->"TabNext", CellID->122131667], Cell[54764, 1451, 87, 2, 70, "Item",ExpressionUUID->"466970b5-bafa-4c2f-ac4a-d0ce145f7834", CellTags->"TabNext", CellID->70093026]}, "Description"->{ Cell[713, 27, 197, 3, 70, "Text",ExpressionUUID->"d523876d-ccf1-49de-b157-b61af606ee61", CellTags->{"Description", "TabNext"}, CellID->27787318]}, "Definition"->{ Cell[935, 34, 832, 19, 70, "Section",ExpressionUUID->"f33fb499-5246-41ee-9e5f-9c328e3846e2", CellTags->"Definition", CellID->40452676]}, "Documentation"->{ Cell[2656, 84, 80, 2, 70, "Section",ExpressionUUID->"729b4073-dbb5-4870-a0b0-37c0eff80f80", CellTags->"Documentation", CellID->491847979]}, "Usage"->{ Cell[2761, 90, 745, 19, 70, "Subsection",ExpressionUUID->"68e76c30-0fd6-421f-b920-8b4d26e6be1d", CellTags->"Usage", CellID->253280348]}, "Details & Options"->{ Cell[6221, 193, 771, 18, 70, "Subsection",ExpressionUUID->"d6ee94c7-32c8-400f-a733-95f4db9a56e5", CellTags->"Details & Options", CellID->123126086]}, "Examples"->{ Cell[12592, 421, 740, 18, 70, "Section",ExpressionUUID->"a8e69787-e6c1-49c7-92fd-ee4ffe157a64", CellTags->"Examples", CellID->163631071]}, "Source & Additional Information"->{ Cell[50365, 1304, 116, 2, 70, "Section",ExpressionUUID->"f913b446-05dd-488b-9c2a-87b8a588332e", CellTags->"Source & Additional Information", CellID->127601628]}, "Contributed By"->{ Cell[50506, 1310, 634, 17, 70, "Subsection",ExpressionUUID->"127e1929-2f64-4fe7-bb1e-2284e2869d8b", CellTags->"Contributed By", CellID->193619321]}, "Keywords"->{ Cell[51296, 1337, 580, 16, 70, "Subsection",ExpressionUUID->"8e1ab67a-9cd7-4812-b102-a02767fbd214", CellTags->"Keywords", CellID->56929831]}, "Related Resource Objects"->{ Cell[52545, 1381, 664, 17, 70, "Subsection",ExpressionUUID->"67f5d478-e3e5-4fa0-89b6-540a4e7e62fc", CellTags->"Related Resource Objects", CellID->234336100]}, "Source/Reference Citation"->{ Cell[53354, 1407, 709, 17, 70, "Subsection",ExpressionUUID->"6aeb1950-4471-4dfe-b219-4a1c907375f9", CellTags->"Source/Reference Citation", CellID->4373816]}, "Links"->{ Cell[54202, 1433, 559, 16, 70, "Subsection",ExpressionUUID->"4a8c532a-6821-4647-9765-f2086054bab2", CellTags->"Links", CellID->443077927]}, "Tests"->{ Cell[54888, 1458, 724, 18, 70, "Subsection",ExpressionUUID->"8a1e107f-b7f7-4698-9d16-62d9fbb20483", CellTags->"Tests", CellID->349784570]}, "Notes"->{ Cell[65624, 1696, 94, 3, 70, "Section",ExpressionUUID->"8e91091c-e33d-4ccc-aeea-9f12871498b7", CellTags->"Notes", CellID->359397282]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 111267, 2634}, {"TabNext", 111431, 2638}, {"Description", 112458, 2660}, {"Definition", 112630, 2664}, {"Documentation", 112795, 2668}, {"Usage", 112955, 2672}, {"Details & Options", 113124, 2676}, {"Examples", 113297, 2680}, {"Source & Additional Information", 113482, 2684}, {"Contributed By", 113673, 2688}, {"Keywords", 113845, 2692}, {"Related Resource Objects", 114026, 2696}, {"Source/Reference Citation", 114225, 2700}, {"Links", 114403, 2704}, {"Tests", 114563, 2708}, {"Notes", 114723, 2712} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 130, 3, 70, "Title",ExpressionUUID->"764b77b4-b6ce-44bc-8ba6-7ed5308cb1e7", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[713, 27, 197, 3, 70, "Text",ExpressionUUID->"d523876d-ccf1-49de-b157-b61af606ee61", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[935, 34, 832, 19, 70, "Section",ExpressionUUID->"f33fb499-5246-41ee-9e5f-9c328e3846e2", CellTags->"Definition", CellID->40452676], Cell[1770, 55, 849, 24, 70, "Input",ExpressionUUID->"adc19964-4443-4805-a1e7-86581d8b6ec0", CellTags->"TabNext", CellID->206237809] }, Open ]], Cell[CellGroupData[{ Cell[2656, 84, 80, 2, 70, "Section",ExpressionUUID->"729b4073-dbb5-4870-a0b0-37c0eff80f80", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[2761, 90, 745, 19, 70, "Subsection",ExpressionUUID->"68e76c30-0fd6-421f-b920-8b4d26e6be1d", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[3531, 113, 419, 10, 70, "UsageInputs",ExpressionUUID->"2236a32b-9c24-40b8-80b9-28004d991fec", CellID->41095089], Cell[3953, 125, 329, 5, 70, "UsageDescription",ExpressionUUID->"c679c3a6-c229-4df5-852a-758f898f1635", CellID->111796937] }, Open ]], Cell[CellGroupData[{ Cell[4319, 135, 468, 11, 70, "UsageInputs",ExpressionUUID->"f48012d4-1f12-4502-92d0-fe61cdff84cb", CellID->692487401], Cell[4790, 148, 447, 8, 70, "UsageDescription",ExpressionUUID->"6a6a7a4e-a696-4445-b8aa-793c74362455", CellID->272715143] }, Open ]], Cell[CellGroupData[{ Cell[5274, 161, 464, 12, 70, "UsageInputs",ExpressionUUID->"b00fbdf1-ee27-4c21-9a09-0775f9b7183f", CellID->550911625], Cell[5741, 175, 431, 12, 70, "UsageDescription",ExpressionUUID->"e2d831f3-c7eb-419b-9f68-ac43de03bb32", CellID->46342605] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6221, 193, 771, 18, 70, "Subsection",ExpressionUUID->"d6ee94c7-32c8-400f-a733-95f4db9a56e5", CellTags->"Details & Options", CellID->123126086], Cell[CellGroupData[{ Cell[7017, 215, 682, 25, 70, "Notes",ExpressionUUID->"c3a73b58-fa0d-420d-9aca-eb9a4bfbe427", CellID->350293453], Cell[7702, 242, 301, 9, 70, "Notes",ExpressionUUID->"b73ef557-e8cc-4a88-82d6-56b53372e413", CellID->223960282], Cell[8006, 253, 190, 3, 70, "Notes",ExpressionUUID->"28dbdf98-e533-4ccc-aed5-40fcfc132cde", CellID->78488187], Cell[8199, 258, 262, 6, 70, "Notes",ExpressionUUID->"23be275e-7468-4ec2-84cc-e20bd0472b2e", CellID->582131638], Cell[8464, 266, 1460, 53, 70, "Notes",ExpressionUUID->"af0294ba-d0c0-48f6-8fbc-7ca92a2080c0", CellID->76144210], Cell[9927, 321, 845, 30, 70, "Notes",ExpressionUUID->"b8e123be-3988-4fab-9384-49fc54b57868", CellID->308449540], Cell[10775, 353, 617, 21, 70, "Notes",ExpressionUUID->"1eddffee-e984-4437-b31c-e75b427183c7", CellID->72450356], Cell[11395, 376, 619, 21, 70, "Notes",ExpressionUUID->"c0690070-0f19-49ed-9282-ba1995ea9b32", CellID->11497692], Cell[12017, 399, 514, 15, 70, "Notes",ExpressionUUID->"feac573b-7c2d-4653-85ba-7fcb287a8a3a", CellID->196482729] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12592, 421, 740, 18, 70, "Section",ExpressionUUID->"a8e69787-e6c1-49c7-92fd-ee4ffe157a64", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell[13357, 443, 56, 1, 70, "Subsection",ExpressionUUID->"b77e0a55-1a81-4bc6-b9e7-9aafb4963e47", CellID->269615104], Cell[13416, 446, 291, 9, 70, "Text",ExpressionUUID->"bef35cd4-8b16-4c69-b6ea-ffe3fffea9d5", CellID->3510889], Cell[CellGroupData[{ Cell[13732, 459, 6398, 134, 70, "Input",ExpressionUUID->"b3bba1a3-5813-468f-a741-d05c0c21c7fd", CellID->764755841], Cell[20133, 595, 3468, 73, 70, "Output",ExpressionUUID->"db94bab3-f37a-495b-87e1-04a9caed100d", CellID->162178699] }, Open ]], Cell[23616, 671, 294, 9, 70, "Text",ExpressionUUID->"efcfc84a-d5f8-4628-bb6c-ad75894891f4", CellID->62526580], Cell[CellGroupData[{ Cell[23935, 684, 7010, 155, 70, "Input",ExpressionUUID->"fbd93a86-c1c2-4888-b40b-867d00000d2d", CellID->33690445], Cell[30948, 841, 3336, 72, 70, "Output",ExpressionUUID->"b60a1286-8365-4813-9481-ec52abd4f800", CellID->460787761] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34333, 919, 47, 1, 70, "Subsection",ExpressionUUID->"2acb143a-229c-454d-9ce9-7af59cc17221", CellID->267254639], Cell[34383, 922, 146, 2, 70, "Text",ExpressionUUID->"e4dcec00-33d5-4af4-9c5a-6fcdff53b34e", CellID->458378479], Cell[CellGroupData[{ Cell[34554, 928, 11030, 243, 70, "Input",ExpressionUUID->"da02cf31-a1c7-45a9-8f57-2680a064d4a2", CellID->7322754], Cell[45587, 1173, 4427, 109, 70, "Output",ExpressionUUID->"f3099688-db55-4fa5-a50c-1dd379cb688d", CellID->228787205] }, Open ]] }, Open ]], Cell[50041, 1286, 47, 1, 70, "Subsection",ExpressionUUID->"ac71c3b9-e981-40e0-98cd-ab28dfab3e18", CellID->1575259], Cell[50091, 1289, 53, 1, 70, "Subsection",ExpressionUUID->"718bbef9-cd3e-43b6-bac3-62c0c5fac986", CellID->20767984], Cell[50147, 1292, 66, 1, 70, "Subsection",ExpressionUUID->"c8707efb-6e51-490a-985c-1fb82fc977f1", CellID->461307998], Cell[50216, 1295, 56, 1, 70, "Subsection",ExpressionUUID->"222d6a21-2c86-493d-9edf-f57f83bcd631", CellID->95944414], Cell[50275, 1298, 53, 1, 70, "Subsection",ExpressionUUID->"eb1f56cb-bce8-4128-8515-cdab440c90cd", CellID->5316679] }, Open ]], Cell[CellGroupData[{ Cell[50365, 1304, 116, 2, 70, "Section",ExpressionUUID->"f913b446-05dd-488b-9c2a-87b8a588332e", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[50506, 1310, 634, 17, 70, "Subsection",ExpressionUUID->"127e1929-2f64-4fe7-bb1e-2284e2869d8b", CellTags->"Contributed By", CellID->193619321], Cell[51143, 1329, 116, 3, 70, "Text",ExpressionUUID->"3c0b28ba-d341-43c3-9411-17a565b2e14d", CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[51296, 1337, 580, 16, 70, "Subsection",ExpressionUUID->"8e1ab67a-9cd7-4812-b102-a02767fbd214", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell[51901, 1357, 114, 2, 70, "Item",ExpressionUUID->"c0667edb-42f8-46c5-a423-194f2ab62086", CellID->573194473], Cell[52018, 1361, 118, 2, 70, "Item",ExpressionUUID->"ce5a1b5a-5449-4163-875a-c288f892db5a", CellID->302758797], Cell[52139, 1365, 116, 2, 70, "Item",ExpressionUUID->"91d010fb-91b8-4a54-88db-f0dfb1a40af4", CellID->295144842], Cell[52258, 1369, 123, 2, 70, "Item",ExpressionUUID->"26fea316-8d20-45c5-ad65-09439f9b8742", CellID->591769451], Cell[52384, 1373, 112, 2, 70, "Item",ExpressionUUID->"b5caa260-f5ae-4bd3-aa24-a3e6c2faa1da", CellID->265963420] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52545, 1381, 664, 17, 70, "Subsection",ExpressionUUID->"67f5d478-e3e5-4fa0-89b6-540a4e7e62fc", CellTags->"Related Resource Objects", CellID->234336100], Cell[53212, 1400, 105, 2, 70, "Item",ExpressionUUID->"ede960bd-879f-4b5e-9940-2e788a35fc51", CellTags->"TabNext", CellID->96811861] }, Open ]], Cell[CellGroupData[{ Cell[53354, 1407, 709, 17, 70, "Subsection",ExpressionUUID->"6aeb1950-4471-4dfe-b219-4a1c907375f9", CellTags->"Source/Reference Citation", CellID->4373816], Cell[54066, 1426, 99, 2, 70, "Text",ExpressionUUID->"eb245ba1-5dee-4b63-80f5-ea30e81f3bbe", CellTags->"TabNext", CellID->122131667] }, Open ]], Cell[CellGroupData[{ Cell[54202, 1433, 559, 16, 70, "Subsection",ExpressionUUID->"4a8c532a-6821-4647-9765-f2086054bab2", CellTags->"Links", CellID->443077927], Cell[54764, 1451, 87, 2, 70, "Item",ExpressionUUID->"466970b5-bafa-4c2f-ac4a-d0ce145f7834", CellTags->"TabNext", CellID->70093026] }, Open ]], Cell[CellGroupData[{ Cell[54888, 1458, 724, 18, 70, "Subsection",ExpressionUUID->"8a1e107f-b7f7-4698-9d16-62d9fbb20483", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[55637, 1480, 6397, 134, 70, "Input",ExpressionUUID->"22823e2d-794a-4b31-84d7-73ec84788cf4", CellID->524646374], Cell[62037, 1616, 3548, 75, 70, "Output",ExpressionUUID->"980c6983-c555-47c3-a66b-f4911c961c81", CellID->137444557] }, Open ]] }, Open ]] }, Open ]], Cell[65624, 1696, 94, 3, 70, "Section",ExpressionUUID->"8e91091c-e33d-4ccc-aeea-9f12871498b7", CellTags->"Notes", CellID->359397282] }, Open ]] } ] *) (* End of internal cache information *)