rockytransferfunctions.nb

(* 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[     35338,        863]
NotebookOptionsPosition[     31267,        794]
NotebookOutlinePosition[     31607,        809]
CellTagsIndexPosition[     31564,        806]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Motor Control Transfer Function", "Section",
 CellChangeTimes->{{3.750090426297629*^9, 
  3.7500904306556296`*^9}},ExpressionUUID->"e8779dfb-ce19-4fec-b522-\
e244be33a7b4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"subs", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", " ", "14"}], ",", " ", 
    RowBox[{"b", "\[Rule]", " ", 
     RowBox[{"1", "/", "400"}]}], ",", " ", 
    RowBox[{"g", "\[Rule]", " ", "9.8"}], ",", " ", 
    RowBox[{"l", "\[Rule]", " ", "0.1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"motorBlock", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", "a"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"s", " ", "+", " ", "a"}], ")"}]}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"motorErrorBlock", " ", "=", " ", 
    RowBox[{"jp", " ", "+", " ", 
     RowBox[{"ji", "/", "s"}]}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"motorTransfer", " ", "=", " ", 
  RowBox[{"Factor", "[", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", "motorBlock", " ", ")"}]}], "+", " ", "motorErrorBlock"}],
      ")"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7500873598377247`*^9, 3.750087376603876*^9}, {
  3.750087427599183*^9, 3.7500875264878635`*^9}, {3.7500876127924414`*^9, 
  3.750087637035485*^9}, {3.750090419037628*^9, 3.7500904211106286`*^9}, {
  3.75034845906194*^9, 3.750348470269436*^9}, {3.750349458432841*^9, 
  3.750349465425742*^9}},ExpressionUUID->"57fecf9f-aba9-4a8f-8877-\
07bbe51457d5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", "8.3`"}], ",", 
   RowBox[{"b", "\[Rule]", "0.003`"}], ",", 
   RowBox[{"g", "\[Rule]", "9.8`"}], ",", 
   RowBox[{"l", "\[Rule]", "0.1`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.750087494148634*^9, 3.7500875271588964`*^9}, 
   3.7500876385335217`*^9, 3.7500895716735015`*^9, 3.7503480698603506`*^9, 
   3.750348473305839*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"db919872-ea33-4523-af03-ec5bb4c89ff4"],

Cell[BoxData[
 FractionBox[
  RowBox[{"a", " ", "b", " ", "s"}], 
  RowBox[{
   RowBox[{"a", " ", "b", " ", "ji"}], "+", 
   RowBox[{"a", " ", "s"}], "+", 
   RowBox[{"a", " ", "b", " ", "jp", " ", "s"}], "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{{3.750087494148634*^9, 3.7500875271588964`*^9}, 
   3.7500876385335217`*^9, 3.7500895716735015`*^9, 3.7503480698603506`*^9, 
   3.7503484733158526`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"736e438a-ad25-4d51-8197-5331ebe7640c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"roots", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Denominator", "[", "motorTransfer", "]"}], "\[Equal]", "0"}], 
      ",", " ", "s"}], "]"}], "/.", "subs"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"nroots", "=", 
  RowBox[{"s", "/.", "roots"}]}]}], "Input",
 CellChangeTimes->{{3.750087534263937*^9, 3.7500875572510633`*^9}, {
  3.750087596442333*^9, 3.7500876086504135`*^9}, {3.7500876419674883`*^9, 
  3.750087683388492*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"e0c5d442-61a4-47f5-b9f1-897e85d2c580"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "8.3`"}], "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.09960000000000001`"}], " ", "ji"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"8.3`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.024900000000000002`", " ", "jp"}]}], ")"}], "2"]}]], 
      "-", 
      RowBox[{"0.024900000000000002`", " ", "jp"}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "8.3`"}], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.09960000000000001`"}], " ", "ji"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"8.3`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.024900000000000002`", " ", "jp"}]}], ")"}], "2"]}]], 
      "-", 
      RowBox[{"0.024900000000000002`", " ", "jp"}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750087601558364*^9, 3.750087643476491*^9, 
  3.7500876777404904`*^9, 3.750087733076535*^9, 3.7500895725532722`*^9, 
  3.750348070064547*^9, 3.750348474670987*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"97c9de7e-99ed-4876-b4da-ad097d34db7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Re", "[", 
         RowBox[{"nroots", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ji", "\[Rule]", " ", "mji"}], ",", " ", 
            RowBox[{"jp", "\[Rule]", " ", "mjp"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Im", "[", 
         RowBox[{"nroots", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ji", "\[Rule]", " ", "mji"}], ",", " ", 
            RowBox[{"jp", "\[Rule]", " ", "mjp"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mji", ",", " ", "5999"}], "}"}], ",", " ", "5500", ",", " ", 
     "6100", ",", " ", "1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mjp", ",", " ", "428"}], "}"}], ",", " ", "0", ",", " ", "700",
      ",", "1"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.7500876959655356`*^9, 3.7500877670425*^9}, {
  3.750087806836239*^9, 3.750087836276245*^9}, {3.7500878923802466`*^9, 
  3.7500879338562922`*^9}, {3.7500880023472595`*^9, 3.7500880145232863`*^9}, {
  3.750088047709263*^9, 3.750088050903291*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"16aff9b7-e8fe-4adb-96c2-f1df9e8b21a5"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`mji$$ = 5999, $CellContext`mjp$$ = 428, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`mji$$], 5999}, 5500, 6100, 1}, {{
       Hold[$CellContext`mjp$$], 428}, 0, 700, 1}}, Typeset`size$$ = {
    643., {3., 9.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`mji$11759$$ = 
    0, $CellContext`mjp$11760$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`mji$$ = 5999, $CellContext`mjp$$ = 428}, 
      "ControllerVariables" :> {
        Hold[$CellContext`mji$$, $CellContext`mji$11759$$, 0], 
        Hold[$CellContext`mjp$$, $CellContext`mjp$11760$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ListPlot[
        Transpose[{
          Re[
           
           ReplaceAll[$CellContext`nroots, {$CellContext`ji -> \
$CellContext`mji$$, $CellContext`jp -> $CellContext`mjp$$}]], 
          Im[
           
           ReplaceAll[$CellContext`nroots, {$CellContext`ji -> \
$CellContext`mji$$, $CellContext`jp -> $CellContext`mjp$$}]]}], 
        AxesLabel -> {"Real", "Imaginary"}, PlotRange -> All], 
      "Specifications" :> {{{$CellContext`mji$$, 5999}, 5500, 6100, 
         1}, {{$CellContext`mjp$$, 428}, 0, 700, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{694., {66., 72.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7500877342074957`*^9, 3.7500877681965003`*^9, {3.750087800876238*^9, 
   3.750087836737279*^9}, {3.750087883590247*^9, 3.750087885008247*^9}, {
   3.750087934391287*^9, 3.750087942142253*^9}, {3.7500880160542617`*^9, 
   3.750088020002261*^9}, 3.750088053177263*^9, 3.7503480700895452`*^9, 
   3.7503484757333655`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"dfae5165-2d8f-4f3f-9ce0-fae784f6759c"],

Cell[BoxData[
 TemplateBox[{
  "Transpose","nmtx",
   "\"The first two levels of \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"Im\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}]}], \
\\\"}\\\"}]\\) cannot be transposed.\"",2,110,24,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503486006593466`*^9},
 CellLabel->"",ExpressionUUID->"e749ace9-4957-49b8-a6c8-9f585325ae55"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"Im\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}]}], \
\\\"}\\\"}], \\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",
   2,110,25,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503486008244314`*^9},
 CellLabel->"",ExpressionUUID->"7a420d3b-6f6a-411c-83b1-24b283d68038"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"Im\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}]}], \
\\\"}\\\"}], \\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",
   2,110,26,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503486009394784`*^9},
 CellLabel->"",ExpressionUUID->"a8ad19ab-9609-4469-a73a-0161a32f649d"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"Im\\\", \\\"[\\\", \\\"nroots\\\", \\\"]\\\"}]}], \
\\\"}\\\"}], \\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",
   2,110,27,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.750348601072503*^9},
 CellLabel->"",ExpressionUUID->"88137a8e-bee7-440f-a6dd-6d61ae3e8c1b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ListPlot\\\", \
\\\"::\\\", \\\"lpn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,110,28,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503486011054764`*^9},
 CellLabel->"",ExpressionUUID->"effcbdc2-62e3-4500-8a59-83be53ee7d7e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Overall Transfer Function", "Section",
 CellChangeTimes->{{3.7500881833792763`*^9, 
  3.750088197163334*^9}},ExpressionUUID->"7a7aac1e-903a-4dc5-85d0-\
a05cc83a26b7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pendulumBlock", "=", 
   RowBox[{"-", 
    FractionBox["s", 
     RowBox[{
      RowBox[{"l", " ", 
       SuperscriptBox["s", "2"]}], "-", "g"}]]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"integratorBlock", "=", 
   FractionBox["k", "s"]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"pwmBlock", "=", 
   RowBox[{"kp", "+", 
    FractionBox["ki", "s"]}]}], ";"}], "\n", 
 RowBox[{"motorControlBlock", "=", 
  RowBox[{"motorTransfer", "/.", "\[VeryThinSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"jp", "\[Rule]", "10"}], ",", 
     RowBox[{"ji", "\[Rule]", "56"}]}], "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.7500882262792807`*^9, 3.7500883688211718`*^9}, {
  3.7500884101887493`*^9, 3.750088465680753*^9}, {3.7500884975547624`*^9, 
  3.7500885367098207`*^9}, {3.750348487617609*^9, 3.750348494909025*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"df098da7-2091-48ec-b65d-e65e5afbe84f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"a", " ", "b", " ", "s"}], 
  RowBox[{
   RowBox[{"56", " ", "a", " ", "b"}], "+", 
   RowBox[{"a", " ", "s"}], "+", 
   RowBox[{"10", " ", "a", " ", "b", " ", "s"}], "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7500884465097528`*^9, 3.750088859074199*^9, {3.750089554344285*^9, 
   3.750089577694275*^9}, 3.7503480702088003`*^9, 3.750348496110148*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"875e26c4-4af0-4910-bfd9-ec50bc3c50f1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.750088456312764*^9, 3.750088457174756*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"045828e5-f5ea-4e6f-b803-9c430916a314"],

Cell[BoxData[{
 RowBox[{"eq1", "=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "s", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"P", "[", "s", "]"}], 
    RowBox[{"e", "[", "s", "]"}], 
    RowBox[{"Md", "[", "s", "]"}], 
    RowBox[{"M", "[", "s", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"eq2", "=", 
  RowBox[{
   RowBox[{"V", "[", "s", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"e", "[", "s", "]"}], 
    RowBox[{"Md", "[", "s", "]"}], 
    RowBox[{"M", "[", "s", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"eq3", "=", 
  RowBox[{
   RowBox[{"e", "[", "s", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"\[Theta]", "[", "s", "]"}]}], "+", 
    RowBox[{
     RowBox[{"i", "[", "s", "]"}], 
     RowBox[{"V", "[", "s", "]"}]}], "+", 
    RowBox[{"\[Theta]d", "[", "s", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "=", " ", 
  RowBox[{
   RowBox[{"Vd", "[", "s", "]"}], " ", "\[Equal]", " "}]}]}], "Input",
 CellChangeTimes->{{3.750088551136814*^9, 3.750088670876775*^9}, {
  3.7500887362141886`*^9, 3.7500887649141912`*^9}, {3.7500889015952034`*^9, 
  3.7500889365882273`*^9}, {3.750348740928849*^9, 
  3.7503488211220937`*^9}},ExpressionUUID->"22de167d-e272-4af4-98f4-\
3e6a6de68ff6"],

Cell[CellGroupData[{

Cell[BoxData["\[AliasDelimiter]"], "Input",
 CellChangeTimes->{
  3.7503494351553636`*^9},ExpressionUUID->"0300abbf-0f8c-4648-af88-\
14f4b5c746c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]", "[", "s", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"P", "[", "s", "]"}], " ", 
   RowBox[{"V", "[", "s", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750348070261074*^9, 3.75034849965782*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"2f4ff490-70ef-474b-9aa2-84cbdd384911"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V", "[", "s", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"e", "[", "s", "]"}], " ", 
   RowBox[{"M", "[", "s", "]"}], " ", 
   RowBox[{"Md", "[", "s", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750348070261074*^9, 3.7503484996648235`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"3fdeebbf-f1c2-4ff2-82bb-973e0c05ba1c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"e", "[", "s", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"i", "[", "s", "]"}], " ", 
    RowBox[{"V", "[", "s", "]"}]}], "-", 
   RowBox[{"\[Theta]", "[", "s", "]"}], "+", 
   RowBox[{"\[Theta]d", "[", "s", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750348070261074*^9, 3.7503484996688185`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"5b248961-70bb-475c-a323-f2b5c2678ceb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"eqsubs", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"P", "[", "s", "]"}], "\[Rule]", " ", "pendulumBlock"}], ",", 
     " ", 
     RowBox[{
      RowBox[{"i", "[", "s", "]"}], "\[Rule]", " ", "integratorBlock"}], ",", 
     " ", 
     RowBox[{
      RowBox[{"Md", "[", "s", "]"}], "\[Rule]", " ", "pwmBlock"}], ",", " ", 
     RowBox[{
      RowBox[{"M", "[", "s", "]"}], "\[Rule]", " ", "motorControlBlock"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7500895979296093`*^9, 3.750089654559001*^9}, 
   3.7500896968262854`*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"3c9549a1-895f-448e-92f8-10dfdd4c522a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"eq1", ",", " ", "eq2", ",", " ", "eq3"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "s", "]"}], ",", " ", 
        RowBox[{"V", "[", "s", "]"}], ",", " ", 
        RowBox[{"e", "[", "s", "]"}]}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"totalSys", "[", "s", "]"}], "\[Rule]", " ", 
    RowBox[{
     RowBox[{"\[Theta]", "[", "s", "]"}], "/", 
     RowBox[{"\[Theta]d", "[", "s", "]"}]}]}], "/.", "sol"}], "}"}]}], "Input",
 CellChangeTimes->{{3.750088704552187*^9, 3.750088716159187*^9}, {
  3.7500887785981946`*^9, 3.7500888071741943`*^9}, {3.750088924686221*^9, 
  3.7500889252042294`*^9}, {3.7500890601062317`*^9, 3.750089070377221*^9}, {
  3.750089103665242*^9, 3.7500893013312464`*^9}, {3.750089332907251*^9, 
  3.750089412815296*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"43db5c3c-7631-4426-8072-7cd036ee4b0d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"totalSys", "[", "s", "]"}], "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"M", "[", "s", "]"}], " ", 
     RowBox[{"Md", "[", "s", "]"}], " ", 
     RowBox[{"P", "[", "s", "]"}]}], 
    RowBox[{"1", "-", 
     RowBox[{
      RowBox[{"i", "[", "s", "]"}], " ", 
      RowBox[{"M", "[", "s", "]"}], " ", 
      RowBox[{"Md", "[", "s", "]"}]}], "+", 
     RowBox[{
      RowBox[{"M", "[", "s", "]"}], " ", 
      RowBox[{"Md", "[", "s", "]"}], " ", 
      RowBox[{"P", "[", "s", "]"}]}]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750088808852197*^9, {3.7500889214312353`*^9, 3.750088940769309*^9}, 
   3.750089071335223*^9, {3.750089120799263*^9, 3.7500891500642567`*^9}, {
   3.7500892347652397`*^9, 3.750089254697268*^9}, {3.7500893892882853`*^9, 
   3.7500894136322575`*^9}, 3.750348070316072*^9, 3.7503485019900713`*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"c43dab6a-eeb4-4625-9f12-6b23e90bff0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"totalTransferFunc", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[Theta]", "[", "s", "]"}], 
      RowBox[{"\[Theta]d", "[", "s", "]"}]], "/.", "\[VeryThinSpace]", 
     "sol"}], "/.", "\[VeryThinSpace]", "eqsubs"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.75008942930726*^9, 3.7500895328452907`*^9}, {
  3.750089700894311*^9, 3.750089709763398*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"f951fdf6-6533-4cf6-814f-e745acd09127"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"a", " ", "b", " ", 
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"ki", "+", 
      RowBox[{"kp", " ", "s"}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], " ", "b", " ", "g", " ", "k", " ", "ki"}], "+", 
    RowBox[{"56", " ", "a", " ", "b", " ", "g", " ", "s"}], "-", 
    RowBox[{"a", " ", "b", " ", "g", " ", "k", " ", "kp", " ", "s"}], "+", 
    RowBox[{"a", " ", "g", " ", 
     SuperscriptBox["s", "2"]}], "+", 
    RowBox[{"10", " ", "a", " ", "b", " ", "g", " ", 
     SuperscriptBox["s", "2"]}], "+", 
    RowBox[{"a", " ", "b", " ", "ki", " ", 
     SuperscriptBox["s", "2"]}], "+", 
    RowBox[{"a", " ", "b", " ", "k", " ", "ki", " ", "l", " ", 
     SuperscriptBox["s", "2"]}], "+", 
    RowBox[{"g", " ", 
     SuperscriptBox["s", "3"]}], "+", 
    RowBox[{"a", " ", "b", " ", "kp", " ", 
     SuperscriptBox["s", "3"]}], "-", 
    RowBox[{"56", " ", "a", " ", "b", " ", "l", " ", 
     SuperscriptBox["s", "3"]}], "+", 
    RowBox[{"a", " ", "b", " ", "k", " ", "kp", " ", "l", " ", 
     SuperscriptBox["s", "3"]}], "-", 
    RowBox[{"a", " ", "l", " ", 
     SuperscriptBox["s", "4"]}], "-", 
    RowBox[{"10", " ", "a", " ", "b", " ", "l", " ", 
     SuperscriptBox["s", "4"]}], "-", 
    RowBox[{"l", " ", 
     SuperscriptBox["s", "5"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.750089705893387*^9, 3.750089718684493*^9}, 
   3.750348070346121*^9, 3.7503485033131914`*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"bbbae979-b687-44b2-bf63-25d19e32cdc1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"roots1", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Denominator", "[", "totalTransferFunc", "]"}], "\[Equal]", 
       "0"}], ",", " ", "s"}], "]"}], "/.", "subs"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.750089733311568*^9, 3.7500897677537155`*^9}, {
   3.750089813927*^9, 3.7500898184810395`*^9}, 3.7500899838901577`*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"17c6c9f4-72d1-4d11-ba2b-fb47314aa4b8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Transpose", "@", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"s", "/.", "roots1"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ki", "\[Rule]", "mKi"}], ",", 
            RowBox[{"kp", "\[Rule]", "mKp"}], ",", " ", 
            RowBox[{"k", "\[Rule]", " ", "mK"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Im", "[", 
         RowBox[{
          RowBox[{"s", "/.", "roots1"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ki", "\[Rule]", "mKi"}], ",", 
            RowBox[{"kp", "\[Rule]", "mKp"}], ",", " ", 
            RowBox[{"k", "\[Rule]", " ", "mK"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mKi", ",", " ", 
       RowBox[{"-", "2640"}]}], "}"}], ",", 
     RowBox[{"-", "10000"}], ",", "6000"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mKp", ",", " ", 
       RowBox[{"-", "8000"}]}], "}"}], ",", 
     RowBox[{"-", "20000"}], ",", " ", "3000"}], "}"}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mK", ",", " ", 
       RowBox[{"-", "4.7"}]}], "}"}], ",", " ", 
     RowBox[{"-", "25"}], ",", " ", "25"}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.75008987835744*^9, 3.750089924513754*^9}, {
  3.7500899614660044`*^9, 3.750089964227023*^9}, {3.7500900313105063`*^9, 
  3.750090032278486*^9}, {3.7500900679487495`*^9, 3.7500900738908052`*^9}, {
  3.750090112952035*^9, 3.750090130502183*^9}, {3.750090165800394*^9, 
  3.7500901844805565`*^9}, {3.750090295902616*^9, 3.750090313128645*^9}, {
  3.750090361727648*^9, 3.7500903834736247`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"62e1aa20-aea2-4bbb-a78d-4a52d4b2784b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`mK$$ = -0.10000000000001563`, \
$CellContext`mKi$$ = -100, $CellContext`mKp$$ = -88, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`mKi$$], -2640}, -10000, 6000}, {{
       Hold[$CellContext`mKp$$], -8000}, -20000, 3000}, {{
       Hold[$CellContext`mK$$], -4.7}, -25, 25}}, Typeset`size$$ = {
    383., {22., 12.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`mKi$13987$$ = 
    0, $CellContext`mKp$13988$$ = 0, $CellContext`mK$13989$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`mK$$ = -4.7, $CellContext`mKi$$ = -2640, \
$CellContext`mKp$$ = -8000}, "ControllerVariables" :> {
        Hold[$CellContext`mKi$$, $CellContext`mKi$13987$$, 0], 
        Hold[$CellContext`mKp$$, $CellContext`mKp$13988$$, 0], 
        Hold[$CellContext`mK$$, $CellContext`mK$13989$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ListPlot[
        Transpose[{
          Re[
           ReplaceAll[
            
            ReplaceAll[$CellContext`s, $CellContext`roots1], {$CellContext`ki -> \
$CellContext`mKi$$, $CellContext`kp -> $CellContext`mKp$$, $CellContext`k -> \
$CellContext`mK$$}]], 
          Im[
           ReplaceAll[
            
            ReplaceAll[$CellContext`s, $CellContext`roots1], {$CellContext`ki -> \
$CellContext`mKi$$, $CellContext`kp -> $CellContext`mKp$$, $CellContext`k -> \
$CellContext`mK$$}]]}], AxesLabel -> {"Real", "Imaginary"}, PlotRange -> All],
       "Specifications" :> {{{$CellContext`mKi$$, -2640}, -10000, 
         6000}, {{$CellContext`mKp$$, -8000}, -20000, 
         3000}, {{$CellContext`mK$$, -4.7}, -25, 25}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{434., {128., 134.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7500899286168127`*^9, {3.750089964864027*^9, 3.750089987148179*^9}, 
   3.7500900756377945`*^9, {3.750090107347996*^9, 3.7500901326542015`*^9}, 
   3.7500901897195873`*^9, {3.7500903007486153`*^9, 3.7500903143736963`*^9}, {
   3.7500903552236214`*^9, 3.7500903841646233`*^9}, 3.750348070394245*^9, {
   3.750348507319295*^9, 3.7503485150601006`*^9}},
 CellLabel->"Out[95]=",ExpressionUUID->"62dd2717-e8f2-437e-8d81-2c13366879c8"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"roots1\\\", \\\"}\\\"}]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing.\"",2,110,13,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.75034858883033*^9},
 CellLabel->"",ExpressionUUID->"86d91652-a6d1-4e27-a6c8-e87ae2eb63b6"],

Cell[BoxData[
 TemplateBox[{
  "ReplaceAll","reps",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"roots1\\\", \\\"}\\\"}]\\) is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing.\"",2,110,14,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503485889164085`*^9},
 CellLabel->"",ExpressionUUID->"2bdfb137-75eb-4c1a-92c0-aa8997f6b8d4"],

Cell[BoxData[
 TemplateBox[{
  "Transpose","nmtx",
   "\"The first two levels of \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}]}], \\\"}\\\"}]\\) cannot \
be transposed.\"",2,110,15,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.750348588943392*^9},
 CellLabel->"",ExpressionUUID->"f225c5dd-cf53-4e84-a873-1c1ac18802bc"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}]}], \\\"}\\\"}], \
\\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",2,110,16,
   23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503485890654573`*^9},
 CellLabel->"",ExpressionUUID->"125ba75b-d97c-49cd-9e77-ef6be6b3e5c1"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}]}], \\\"}\\\"}], \
\\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",2,110,17,
   23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503485891815395`*^9},
 CellLabel->"",ExpressionUUID->"0dea311f-0441-40a8-89f4-b5d53fa53e1d"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"Re\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"Im\\\", \\\"[\\\", RowBox[{\\\"s\\\", \\\"/.\\\", \\\"\
\[VeryThinSpace]\\\", \\\"roots1\\\"}], \\\"]\\\"}]}], \\\"}\\\"}], \
\\\"]\\\"}]\\) is not a list of numbers or pairs of numbers.\"",2,110,18,
   23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.750348589279096*^9},
 CellLabel->"",ExpressionUUID->"8e94ac0e-707e-4c97-8ad8-e106cbf38804"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ListPlot\\\", \
\\\"::\\\", \\\"lpn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,110,19,23241042859693241826,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.750348589310587*^9},
 CellLabel->"",ExpressionUUID->"90ede6ca-f3e9-413c-86ea-79e7e9a418f0"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{838, 997},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 178, 3, 67, "Section",ExpressionUUID->"e8779dfb-ce19-4fec-b522-e244be33a7b4"],
Cell[CellGroupData[{
Cell[783, 29, 1383, 36, 86, "Input",ExpressionUUID->"57fecf9f-aba9-4a8f-8877-07bbe51457d5"],
Cell[2169, 67, 476, 10, 32, "Output",ExpressionUUID->"db919872-ea33-4523-af03-ec5bb4c89ff4"],
Cell[2648, 79, 504, 11, 61, "Output",ExpressionUUID->"736e438a-ad25-4d51-8197-5331ebe7640c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3189, 95, 594, 14, 48, "Input",ExpressionUUID->"e0c5d442-61a4-47f5-b9f1-897e85d2c580"],
Cell[3786, 111, 1285, 37, 103, "Output",ExpressionUUID->"97c9de7e-99ed-4876-b4da-ad097d34db7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5108, 153, 1820, 42, 238, "Input",ExpressionUUID->"16aff9b7-e8fe-4adb-96c2-f1df9e8b21a5"],
Cell[6931, 197, 2619, 53, 157, "Output",ExpressionUUID->"dfae5165-2d8f-4f3f-9ce0-fae784f6759c"],
Cell[9553, 252, 491, 9, 23, "Message",ExpressionUUID->"e749ace9-4957-49b8-a6c8-9f585325ae55"],
Cell[10047, 263, 544, 10, 23, "Message",ExpressionUUID->"7a420d3b-6f6a-411c-83b1-24b283d68038"],
Cell[10594, 275, 544, 10, 23, "Message",ExpressionUUID->"a8ad19ab-9609-4469-a73a-0161a32f649d"],
Cell[11141, 287, 542, 10, 23, "Message",ExpressionUUID->"88137a8e-bee7-440f-a6dd-6d61ae3e8c1b"],
Cell[11686, 299, 414, 8, 21, "Message",ExpressionUUID->"effcbdc2-62e3-4500-8a59-83be53ee7d7e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12149, 313, 172, 3, 67, "Section",ExpressionUUID->"7a7aac1e-903a-4dc5-85d0-a05cc83a26b7"],
Cell[CellGroupData[{
Cell[12346, 320, 920, 24, 168, "Input",ExpressionUUID->"df098da7-2091-48ec-b65d-e65e5afbe84f"],
Cell[13269, 346, 497, 11, 59, "Output",ExpressionUUID->"875e26c4-4af0-4910-bfd9-ec50bc3c50f1"]
}, Open  ]],
Cell[13781, 360, 171, 2, 28, "Input",ExpressionUUID->"045828e5-f5ea-4e6f-b803-9c430916a314"],
Cell[13955, 364, 1225, 33, 86, "Input",ExpressionUUID->"22de167d-e272-4af4-98f4-3e6a6de68ff6"],
Cell[CellGroupData[{
Cell[15205, 401, 147, 3, 28, "Input",ExpressionUUID->"0300abbf-0f8c-4648-af88-14f4b5c746c2"],
Cell[15355, 406, 315, 7, 32, "Output",ExpressionUUID->"2f4ff490-70ef-474b-9aa2-84cbdd384911"],
Cell[15673, 415, 351, 8, 32, "Output",ExpressionUUID->"3fdeebbf-f1c2-4ff2-82bb-973e0c05ba1c"],
Cell[16027, 425, 420, 10, 32, "Output",ExpressionUUID->"5b248961-70bb-475c-a323-f2b5c2678ceb"]
}, Open  ]],
Cell[16462, 438, 674, 18, 28, "Input",ExpressionUUID->"3c9549a1-895f-448e-92f8-10dfdd4c522a"],
Cell[CellGroupData[{
Cell[17161, 460, 1102, 26, 48, "Input",ExpressionUUID->"43db5c3c-7631-4426-8072-7cd036ee4b0d"],
Cell[18266, 488, 965, 23, 59, "Output",ExpressionUUID->"c43dab6a-eeb4-4625-9f12-6b23e90bff0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19268, 516, 500, 11, 55, "Input",ExpressionUUID->"f951fdf6-6533-4cf6-814f-e745acd09127"],
Cell[19771, 529, 1593, 38, 59, "Output",ExpressionUUID->"bbbae979-b687-44b2-bf63-25d19e32cdc1"]
}, Open  ]],
Cell[21379, 570, 486, 11, 28, "Input",ExpressionUUID->"17c6c9f4-72d1-4d11-ba2b-fb47314aa4b8"],
Cell[CellGroupData[{
Cell[21890, 585, 2385, 58, 257, "Input",ExpressionUUID->"62e1aa20-aea2-4bbb-a78d-4a52d4b2784b"],
Cell[24278, 645, 3078, 60, 281, "Output",ExpressionUUID->"62dd2717-e8f2-437e-8d81-2c13366879c8"],
Cell[27359, 707, 420, 8, 23, "Message",ExpressionUUID->"86d91652-a6d1-4e27-a6c8-e87ae2eb63b6"],
Cell[27782, 717, 423, 8, 23, "Message",ExpressionUUID->"2bdfb137-75eb-4c1a-92c0-aa8997f6b8d4"],
Cell[28208, 727, 611, 11, 23, "Message",ExpressionUUID->"f225c5dd-cf53-4e84-a873-1c1ac18802bc"],
Cell[28822, 740, 666, 12, 23, "Message",ExpressionUUID->"125ba75b-d97c-49cd-9e77-ef6be6b3e5c1"],
Cell[29491, 754, 666, 12, 23, "Message",ExpressionUUID->"0dea311f-0441-40a8-89f4-b5d53fa53e1d"],
Cell[30160, 768, 664, 12, 23, "Message",ExpressionUUID->"8e94ac0e-707e-4c97-8ad8-e106cbf38804"],
Cell[30827, 782, 412, 8, 21, "Message",ExpressionUUID->"90ede6ca-f3e9-413c-86ea-79e7e9a418f0"]
}, Open  ]]
}, Open  ]]
}
]
*)