(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 64201, 1590] NotebookOptionsPosition[ 60910, 1503] NotebookOutlinePosition[ 62675, 1555] CellTagsIndexPosition[ 62632, 1552] WindowTitle->SystemsModelConnect | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "A merged system connect like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SystemsModelMerge", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/SystemsModelMerge", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.745838453406104*^9, 3.745838470154158*^9}, { 3.745838754272567*^9, 3.7458387705411935`*^9}}, CellID->723162334], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/SystemsModelConnect"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "SystemsModelConnect"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SystemsModelConnect"], BoxID -> "SystemsModelConnect", Selectable->False], "[", 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], $CellContext`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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{{3.745838445415506*^9, 3.7458384504055037`*^9}, 3.764082069994763*^9, 3.764082275638152*^9}, CellLabel->"In[808]:=", CellID->425273695], 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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{3.745838472758418*^9, 3.764082276606291*^9}, CellLabel->"Out[808]=", CellID->803092171] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->664806790], Cell[TextData[{ "A series connection like ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SystemsModelSeriesConnect", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/SystemsModelSeriesConnect", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.745838453406104*^9, 3.745838470154158*^9}, { 3.745838754272567*^9, 3.745838781412281*^9}}, CellID->279301765], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/SystemsModelConnect"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "SystemsModelConnect"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SystemsModelConnect"], BoxID -> "SystemsModelConnect", Selectable->False], "[", 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], $CellContext`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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{{3.745838445415506*^9, 3.7458384504055037`*^9}, { 3.7458387833884783`*^9, 3.7458387996701064`*^9}}, CellLabel->"In[55]:=", CellID->413474043], 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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{3.745838472758418*^9, 3.74583880081122*^9, 3.7458391509962354`*^9}, CellLabel->"Out[55]=", CellID->690448464] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["Connect several different types of systems:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7458392486818094`*^9, 3.74583925763581*^9}}, CellID->804699761], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["SystemsModelConnect", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/SystemsModelConnect"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "SystemsModelConnect"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SystemsModelConnect"], BoxID -> "SystemsModelConnect", Selectable->False], "[", 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], $CellContext`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], $CellContext`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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{ 3.7458392471398096`*^9, {3.7458392869718094`*^9, 3.7458393853188095`*^9}, { 3.7458394276188097`*^9, 3.7458394337428093`*^9}}, CellLabel->"In[83]:=", CellID->248793774], 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], $CellContext`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", TaggingRules->{}, CellChangeTimes->{{3.74583937208381*^9, 3.74583937845181*^9}, 3.7458394325148096`*^9, 3.7458397365938096`*^9}, CellLabel->"Out[83]=", CellID->747564266] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SystemsModelConnect | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"97e862fa-e764-40c7-ac20-a7f2dd03008c", CellID->462042388], Cell[803, 32, 758, 23, 70, "Text",ExpressionUUID->"5cbe6946-9105-4b2c-b092-9dff80a9d70f", CellID->723162334], Cell[CellGroupData[{ Cell[1586, 59, 13596, 318, 70, "Input",ExpressionUUID->"483198d7-b7c1-4fa8-b56c-eb5d011c3e72", CellID->425273695], Cell[15185, 379, 3544, 77, 70, "Output",ExpressionUUID->"5cf9a019-a2cc-4e47-988b-bffaee3d56c5", CellID->803092171] }, Open ]], Cell[CellGroupData[{ Cell[18766, 461, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"06f703a1-a541-43bf-b1f7-3a3f1f5a0d68", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->664806790], Cell[19353, 482, 768, 23, 70, "Text",ExpressionUUID->"edf41725-226f-4a18-a12f-1dcc20c10c95", CellID->279301765], Cell[CellGroupData[{ Cell[20146, 509, 14152, 337, 70, "Input",ExpressionUUID->"09eac116-a010-4483-b8ee-b10d568e11a1", CellID->413474043], Cell[34301, 848, 3376, 74, 70, "Output",ExpressionUUID->"461d3b8b-29f1-4985-a265-2da85c2ded0f", CellID->690448464] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37738, 929, 159, 7, 70, "Subsection",ExpressionUUID->"e72f0021-7c6b-4fe9-8591-2fcc3aa4e745", CellID->964056545], Cell[37900, 938, 165, 3, 70, "Text",ExpressionUUID->"7adfb6fa-a57c-4fcf-9980-11245c4d3cb5", CellID->804699761], Cell[CellGroupData[{ Cell[38090, 945, 18290, 435, 70, "Input",ExpressionUUID->"f1a58a1d-0b29-4ffe-a1f8-9713700e00b3", CellID->248793774], Cell[56383, 1382, 4499, 117, 70, "Output",ExpressionUUID->"b53d7ef0-9db4-4bae-9012-ce3eea0b1709", CellID->747564266] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)