(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 235141, 6283] NotebookOptionsPosition[ 226100, 6153] NotebookOutlinePosition[ 226458, 6169] CellTagsIndexPosition[ 226415, 6166] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["PREAMBLE", "Section", CellChangeTimes->{{3.70100680788351*^9, 3.7010068091394777`*^9}, { 3.7010888515931997`*^9, 3.701088854993072*^9}},ExpressionUUID->"94a2de94-20d9-4757-8d29-\ a43055c3ac3f"], Cell[CellGroupData[{ Cell["SETUP", "Subsection", CellChangeTimes->{{3.701088864952914*^9, 3.701088865937204*^9}},ExpressionUUID->"1745f436-701f-475e-a73b-\ 60fcb9c3b5bf"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetDirectory", " ", "@", " ", RowBox[{"NotebookDirectory", "[", "]"}]}], "\n", RowBox[{"<<", "setup.m"}]}], "Code", CellChangeTimes->{ 3.701006129684619*^9, {3.7011311584948263`*^9, 3.701131172589662*^9}, { 3.701425189850905*^9, 3.701425194746422*^9}, {3.7036938813833103`*^9, 3.7036938887016068`*^9}, {3.703846663894123*^9, 3.7038466688233356`*^9}, { 3.707069532923415*^9, 3.707069536207999*^9}, {3.714935346741312*^9, 3.714935368911256*^9}, {3.715422833675577*^9, 3.7154228559887743`*^9}, 3.715433302184044*^9, {3.727027492550811*^9, 3.72702750491291*^9}, { 3.7271740169999866`*^9, 3.727174020073049*^9}, {3.727719048360846*^9, 3.7277190509973516`*^9}, {3.736625673649582*^9, 3.736625702371686*^9}, 3.7367126626005507`*^9, {3.737113624889118*^9, 3.737113629216951*^9}, { 3.740396096733646*^9, 3.740396102843595*^9}, {3.741357128714184*^9, 3.741357132417601*^9}, {3.742640857092181*^9, 3.742640861243939*^9}, { 3.742752041361897*^9, 3.7427520446648808`*^9}, {3.743894290579687*^9, 3.7438942932002087`*^9}, {3.743948103173564*^9, 3.743948106301334*^9}, { 3.744461830035874*^9, 3.744461832662775*^9}, {3.744542048622225*^9, 3.7445420519901953`*^9}, {3.745838561735228*^9, 3.7458385642641907`*^9}, { 3.746473334404973*^9, 3.7464733376680317`*^9}, {3.747441078193883*^9, 3.7474410810816317`*^9}, {3.7480920176161423`*^9, 3.748092029039197*^9}, 3.753459914022092*^9},ExpressionUUID->"99b01883-1b89-435a-a10c-\ 5430fbe9e63a"], Cell[BoxData["\<\"/Users/renatoorsino/Acade\:0302mico/pos-graduacao/PME5239/\ 2019/examples\"\>"], "Output", CellChangeTimes->{{3.7534599164307747`*^9, 3.753459923848873*^9}, 3.753460382554513*^9, 3.753460652940242*^9, 3.75346080822469*^9, 3.7534622525811653`*^9, 3.753462322189361*^9, {3.75346415951999*^9, 3.753464169947006*^9}, 3.753466937956163*^9, 3.7537010555936623`*^9, 3.753724428275051*^9, 3.768128638526924*^9, {3.768140988318306*^9, 3.768141000760088*^9}, 3.768143375988793*^9, 3.768143599233179*^9, 3.768588843224408*^9, 3.768588932905908*^9, 3.768595779224666*^9, 3.7685965111151047`*^9, 3.7685975337794847`*^9, 3.768597969161428*^9, 3.768598163892685*^9, 3.768677991138419*^9, {3.768678333679495*^9, 3.768678355760516*^9}, 3.768828220118544*^9, 3.7688282535827703`*^9, 3.76882833302433*^9, 3.7688284317475243`*^9, 3.768840654755312*^9, 3.768907659488873*^9, 3.768908355136793*^9, 3.768936215487485*^9, 3.7689442080015593`*^9, 3.769189929211507*^9, 3.769191224532544*^9, 3.76919942627172*^9, 3.769199670949252*^9, {3.769200553397642*^9, 3.7692005672919416`*^9}, 3.769202846380785*^9, {3.772370211910036*^9, 3.7723702308953123`*^9}, 3.772371573726966*^9, 3.772378916677434*^9, 3.7724125568024187`*^9, 3.772412641675034*^9},ExpressionUUID->"67782251-1836-4629-8286-\ b89c1d37ad27"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["NUMERICAL PRECISION", "Subsection", CellChangeTimes->{{3.74706927716269*^9, 3.747069286114664*^9}},ExpressionUUID->"ff5535f0-8c31-4fb2-b4bf-\ ba752ec88ebd"], Cell[BoxData[{ RowBox[{ RowBox[{"Ch10", "[", "e_", "]"}], ":=", " ", RowBox[{ RowBox[{"Chop", "[", RowBox[{"#", ",", RowBox[{"1", " ", SuperscriptBox["10", RowBox[{"-", "e"}]]}]}], "]"}], "&"}]}], "\n", RowBox[{ RowBox[{"ChN", "[", "e_", "]"}], ":=", " ", RowBox[{ RowBox[{"Chop", "[", RowBox[{"#", ",", " ", RowBox[{ SuperscriptBox["10", RowBox[{"-", "e"}]], FractionBox[ RowBox[{"Norm", "[", "#", "]"}], RowBox[{"Times", "@@", RowBox[{"Dimensions", "[", "#", "]"}]}]]}]}], "]"}], "&"}]}]}], "Code",\ CellChangeTimes->{{3.7470693041131487`*^9, 3.7470693070909777`*^9}, { 3.7470693428196793`*^9, 3.747069399079035*^9}, {3.747069696678125*^9, 3.747069748022488*^9}},ExpressionUUID->"ef68e171-70a1-42c9-9c3c-\ 12d773488d4e"] }, Open ]], Cell[CellGroupData[{ Cell["MODEL SETTINGS", "Subsection", CellChangeTimes->{{3.745092950519617*^9, 3.7450929560155354`*^9}},ExpressionUUID->"5006b78e-3a78-413c-9d51-\ d210d2fec4c8"], Cell[BoxData[ RowBox[{ RowBox[{"n", " ", "=", " ", "8"}], ";"}]], "Code", CellChangeTimes->{{3.745092942441873*^9, 3.745092967728662*^9}, { 3.745169391275235*^9, 3.7451694111638613`*^9}, {3.7451709781922817`*^9, 3.7451709894787407`*^9}, 3.74569168983189*^9, {3.74577594136902*^9, 3.745775943831172*^9}, 3.7458385740847397`*^9, 3.745872981273934*^9, 3.745875752671224*^9, {3.747066049891535*^9, 3.747066054448635*^9}, { 3.747079477472012*^9, 3.747079480726698*^9}, {3.747132297895314*^9, 3.747132297982625*^9}, 3.747145260978435*^9, {3.747159796092565*^9, 3.747159803900199*^9}, {3.747423775125271*^9, 3.747423775372651*^9}, 3.747483173740223*^9, {3.7474882681460953`*^9, 3.74748826842452*^9}, { 3.748972608371437*^9, 3.748972610898641*^9}, 3.7493013861974907`*^9, { 3.749306649434628*^9, 3.749306649792877*^9}, {3.7494931999736643`*^9, 3.74949320019343*^9}, {3.753197998546796*^9, 3.7531979986583014`*^9}, { 3.753460311681768*^9, 3.753460312601364*^9}, 3.753462309316408*^9, { 3.768128541225922*^9, 3.76812854455296*^9}, {3.768588923446645*^9, 3.768588926997168*^9}, {3.768678306381598*^9, 3.768678319884142*^9}, { 3.768750744293396*^9, 3.768750751823729*^9}, {3.768828196855123*^9, 3.7688282074788923`*^9}, 3.768828244409555*^9, {3.768828304217513*^9, 3.768828304863595*^9}, {3.768907580214357*^9, 3.768907593253162*^9}, { 3.768908778980467*^9, 3.76890878122758*^9}, {3.769199377335225*^9, 3.769199380803771*^9}, {3.7723701999048033`*^9, 3.772370205005271*^9}, { 3.772378910297813*^9, 3.7723789107264214`*^9}, {3.772412545637698*^9, 3.77241254866938*^9}},ExpressionUUID->"d775bc51-2f99-4617-a76d-\ 3055200cce0a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2n-PENDULUM MODEL", "Section", CellChangeTimes->{{3.7389576531280823`*^9, 3.738957690425064*^9}, 3.772368258426943*^9},ExpressionUUID->"c2be5a0e-03ce-441b-ae90-\ c9d4b9aae60a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckQ]", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "#"], "[", "t", "]"}], ",", " ", RowBox[{ SubscriptBox["y", "#"], "[", "t", "]"}], ",", " ", RowBox[{ SubscriptBox["\[Phi]", "#"], "[", "t", "]"}]}], "}"}], " ", "&"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"2", " ", "n"}], "]"}]}], ")"}], " ", "//", " ", "Join"}], " ", "//", " ", "Flatten"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "0"], "[", "t_", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "#"], "[", "t_", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["x", "#"], "[", "t", "]"}], ",", " ", RowBox[{ SubscriptBox["y", "#"], "[", "t", "]"}], ",", " ", "0"}], "}"}]}], ")"}], " ", "&"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"2", " ", "n"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t_", "]"}], " ", "=", " ", RowBox[{"Join", "[", "\n", "\t", RowBox[{ RowBox[{"{", "\n", "\t\t", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", "1"], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}]}], "-", " ", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "1"], "[", "t", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}]}]}], ",", " ", "\n", "\t\t", RowBox[{ RowBox[{ SubscriptBox["l", "1"], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "1"], "[", "t", "]"}], "\[Cross]", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}]}]}], "\n", "\t", "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", "\n", "\t\t", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", "#"], SubscriptBox["l", RowBox[{"#", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "#"], "[", "t", "]"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "#"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "1"}]], "[", "t", "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "1"}]], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "2"}]], "[", "t", "]"}]}], ")"}]}]}], ",", " ", "\n", "\t\t", RowBox[{ RowBox[{ SubscriptBox["l", "#"], SubscriptBox["l", RowBox[{"#", "-", "1"}]], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "#"], "[", "t", "]"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", "#"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "1"}]], "[", "t", "]"}]}], ")"}], "\[Cross]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "1"}]], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[DoubleStruckR]", RowBox[{"#", "-", "2"}]], "[", "t", "]"}]}], ")"}]}], ")"}], ".", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}]}]}], "\n", "\t", "}"}], "&"}], " ", "/@", " ", RowBox[{"Range", "[", RowBox[{"2", ",", " ", RowBox[{"2", " ", "n"}]}], "]"}]}], ")"}], " ", "//", " ", "Flatten"}]}], "\n", "\t", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t", "]"}], " ", "//", " ", "TableForm"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "t_", "]"}], " ", "=", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t", "]"}], ",", " ", "t"}], "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[DoubleStruckCapitalA]", "[", "t_", "]"}], ",", " ", RowBox[{"\[DoubleStruckB]", "[", "t_", "]"}]}], "}"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Normal", "@", RowBox[{"{", RowBox[{ RowBox[{"Last", "[", "#", "]"}], ",", RowBox[{"-", RowBox[{"First", "[", "#", "]"}]}]}], "}"}]}], "&"}], " ", "@", " ", RowBox[{"CoefficientArrays", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "2"}], "}"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"\[DoubleStruckQ]", "''"}], "[", "t", "]"}]}], "]"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[DoubleStruckCapitalA]", "[", "t", "]"}], " ", "//", " ", "MatrixForm"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckB]", "[", "t", "]"}], " ", "//", " ", "MatrixForm"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckCapitalM]", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Normal", "@", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Band", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"MM", "[", "#", "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"2", "n"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Band", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"MN", "[", RowBox[{"#", "+", "1"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}]}], ")"}]}], ",", " ", RowBox[{ RowBox[{"Band", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"MN", "[", RowBox[{"#", "+", "1"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{ RowBox[{"2", "n"}], "-", "1"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "n"}], ",", RowBox[{"2", "n"}]}], "}"}]}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"MM", "[", "j_", "]"}], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["m", "j"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[Rho]", "j"], SubscriptBox["l", "j"]], ")"}], "2"], "+", SubsuperscriptBox["\[Chi]", "j", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["m", RowBox[{"j", "+", "1"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[Rho]", RowBox[{"j", "+", "1"}]], SubscriptBox["l", RowBox[{"j", "+", "1"}]]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Chi]", RowBox[{"j", "+", "1"}]], "-", "1"}], ")"}], "2"]}], ")"}]}]}], ")"}], RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}]}], ",", " ", RowBox[{ RowBox[{"MN", "[", "j_", "]"}], "\[Rule]", " ", RowBox[{ SubscriptBox["m", "j"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Chi]", "j"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["\[Chi]", "j"]}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[Rho]", "j"], SubscriptBox["l", "j"]], ")"}], "2"]}], ")"}], RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}]}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ SubscriptBox["m", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]], "\[Rule]", "0"}], "}"}]}], ")"}], "//", "ArrayFlatten"}], ")"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckF]", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"mg", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"2", "n"}], "}"}]}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"mg", "[", "j_", "]"}], "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["m", "j"], " ", SubscriptBox["\[Chi]", "j"]}], "+", " ", RowBox[{ SubscriptBox["m", RowBox[{"j", "+", "1"}]], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["\[Chi]", "j"]}], ")"}]}]}], ")"}], " ", "g"}], ",", " ", "0"}], "}"}]}], "}"}]}], "//", "Flatten"}], ")"}], "/.", RowBox[{"{", RowBox[{ SubscriptBox["m", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]], "\[Rule]", "0"}], "}"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[DoubleStruckCapitalM]", "[", "t", "]"}], " ", "//", " ", "MatrixPlot"}]}], "Code", CellChangeTimes->{{3.7389576980532637`*^9, 3.7389577860664988`*^9}, { 3.7389578167710876`*^9, 3.738958107337634*^9}, {3.738958164309383*^9, 3.738958208194663*^9}, {3.738958279533186*^9, 3.73895841129618*^9}, { 3.738958486732791*^9, 3.738958493117483*^9}, {3.738958576325405*^9, 3.738958628494872*^9}, {3.738958731995323*^9, 3.738958753018186*^9}, { 3.7389587945497017`*^9, 3.738958801957364*^9}, {3.738958842040492*^9, 3.738958895247943*^9}, {3.738958929876376*^9, 3.7389590101741343`*^9}, { 3.738959051844101*^9, 3.7389590541969337`*^9}, {3.7389591746992693`*^9, 3.7389592281961403`*^9}, {3.7389593426994343`*^9, 3.738959439192668*^9}, { 3.738959526481279*^9, 3.7389595582775*^9}, {3.738959673895013*^9, 3.7389596741162043`*^9}, {3.7389610774890614`*^9, 3.7389610776456842`*^9}, {3.7389613273106413`*^9, 3.738961327492675*^9}, { 3.772368261939026*^9, 3.7723682774581003`*^9}, {3.772369528961899*^9, 3.7723695808789*^9}, {3.772369624650551*^9, 3.77236964852102*^9}, 3.772370197602916*^9, {3.77237052939995*^9, 3.7723705496183443`*^9}, { 3.772412517639326*^9, 3.7724125360455923`*^9}, 3.772412617459346*^9},ExpressionUUID->"c5307560-fb81-49df-b38d-\ f94d24e6bc39"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"]}], "-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"]}], "-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.7389582034011583`*^9, 3.7389582101668053`*^9}, { 3.73895829112352*^9, 3.7389583275862513`*^9}, 3.738958900185498*^9, { 3.738958969477621*^9, 3.738958996939023*^9}, 3.7389590545384197`*^9, { 3.738959182986147*^9, 3.738959228544485*^9}, 3.7389593776810217`*^9, { 3.738959423764462*^9, 3.738959439755392*^9}, {3.738959529005062*^9, 3.738959558555397*^9}, 3.738959674381528*^9, 3.738961077906*^9, 3.738961327676906*^9, 3.7723682860937233`*^9, 3.7723695848223867`*^9, { 3.772369625200437*^9, 3.772369649115479*^9}, 3.772370238741824*^9, { 3.772370543253213*^9, 3.772370550242125*^9}, 3.772371573962839*^9, 3.7723789169684668`*^9, 3.772412556931953*^9, {3.7724126190132236`*^9, 3.772412641873479*^9}},ExpressionUUID->"c06f6370-3963-44e8-8082-\ 1913fa9ebb88"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "1"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{"-", "1"}], "0", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], RowBox[{ RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}], RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, { RowBox[{ RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "2"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "2"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "3"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "3"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "4"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "4"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "5"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "5"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "6"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "6"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "7"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "7"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "8"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "8"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "9"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "9"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "10"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "10"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "11"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "11"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"]}], "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"]}], "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "12"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "12"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"]}], "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"]}], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "13"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "13"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"]}], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], "-", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}]}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"]}]}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["y", "16"], "[", "t", "]"}]}], RowBox[{ RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["x", "16"], "[", "t", "]"}]}], "0", RowBox[{ RowBox[{ SubscriptBox["y", "14"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["y", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["x", "14"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["x", "15"], "[", "t", "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.7389582034011583`*^9, 3.7389582101668053`*^9}, { 3.73895829112352*^9, 3.7389583275862513`*^9}, 3.738958900185498*^9, { 3.738958969477621*^9, 3.738958996939023*^9}, 3.7389590545384197`*^9, { 3.738959182986147*^9, 3.738959228544485*^9}, 3.7389593776810217`*^9, { 3.738959423764462*^9, 3.738959439755392*^9}, {3.738959529005062*^9, 3.738959558555397*^9}, 3.738959674381528*^9, 3.738961077906*^9, 3.738961327676906*^9, 3.7723682860937233`*^9, 3.7723695848223867`*^9, { 3.772369625200437*^9, 3.772369649115479*^9}, 3.772370238741824*^9, { 3.772370543253213*^9, 3.772370550242125*^9}, 3.772371573962839*^9, 3.7723789169684668`*^9, 3.772412556931953*^9, {3.7724126190132236`*^9, 3.772412641974162*^9}},ExpressionUUID->"a25ac371-8cf3-4612-adf6-\ ce2ea52cc2ed"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "1"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "1"], " ", SubscriptBox["l", "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "1"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "3"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "2"], " ", SubscriptBox["l", "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "2"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "4"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "3"], " ", SubscriptBox["l", "4"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "3"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "4"], " ", SubscriptBox["l", "5"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "4"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "6"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "5"], " ", SubscriptBox["l", "6"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "5"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "7"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "6"], " ", SubscriptBox["l", "7"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "6"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "7"], " ", SubscriptBox["l", "8"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "7"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "9"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "8"], " ", SubscriptBox["l", "9"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "8"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "10"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "9"], " ", SubscriptBox["l", "10"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "9"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "11"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "10"], " ", SubscriptBox["l", "11"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "10"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "12"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "11"], " ", SubscriptBox["l", "12"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "11"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "13"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "12"], " ", SubscriptBox["l", "13"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "12"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "14"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "13"], " ", SubscriptBox["l", "14"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "13"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "15"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "14"], " ", SubscriptBox["l", "15"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["x", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ SubscriptBox["y", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "14"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ SubscriptBox["x", "15"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox[ SubscriptBox["y", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "16"], "[", "t", "]"}], "]"}], " ", SubscriptBox["l", "15"], " ", SubscriptBox["l", "16"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Phi]", "16"], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "2"]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.7389582034011583`*^9, 3.7389582101668053`*^9}, { 3.73895829112352*^9, 3.7389583275862513`*^9}, 3.738958900185498*^9, { 3.738958969477621*^9, 3.738958996939023*^9}, 3.7389590545384197`*^9, { 3.738959182986147*^9, 3.738959228544485*^9}, 3.7389593776810217`*^9, { 3.738959423764462*^9, 3.738959439755392*^9}, {3.738959529005062*^9, 3.738959558555397*^9}, 3.738959674381528*^9, 3.738961077906*^9, 3.738961327676906*^9, 3.7723682860937233`*^9, 3.7723695848223867`*^9, { 3.772369625200437*^9, 3.772369649115479*^9}, 3.772370238741824*^9, { 3.772370543253213*^9, 3.772370550242125*^9}, 3.772371573962839*^9, 3.7723789169684668`*^9, 3.772412556931953*^9, {3.7724126190132236`*^9, 3.772412642004798*^9}},ExpressionUUID->"e5c983b9-c4d4-43c1-aeba-\ 4175640b4e92"], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt1rEJAkEYhNEDK7EDO7AHSxCMbdkSLEHEiy77A71xeAvL22jDjzle75fb YVmW03rf7895nkmSJPfxsbo9e/1Dsk+dIUmS/27anrGLyD7T+qAzJElyatoO sWfIPtP6oDMkSXJq2g6xZ8g+0/qgMyRJcmraDrFnyD7T+qAzJElyatoOsWfI PtP6oDMkSXJq2g6xZ8g+0/qgMyRJcmraDrFnyD7T+qAzJElyatoOsWfIPtP6 oDMkSXJq2g6xZ8g+0/qgMyRJcmraDrFnyD7T+qAzJElyatoOsWfIPtP6oDMk SXJq2g6xZ8g+0/qgMyRJcmraDrFnyD7T+qAzJElyatoOsWfIPtP6oDMkSXIv 7RmS31ZnSP7eF0PAGVk= "], {{0, 0}, {48, 48}}, {0, 1}], Frame->True, FrameLabel->{None, None}, FrameTicks->{{{{47.5, FormBox["1", TraditionalForm]}, {38.5, FormBox["10", TraditionalForm]}, {28.5, FormBox["20", TraditionalForm]}, {18.5, FormBox["30", TraditionalForm]}, {8.5, FormBox["40", TraditionalForm]}, {0.5, FormBox["48", TraditionalForm]}}, {{47.5, FormBox["1", TraditionalForm]}, {38.5, FormBox["10", TraditionalForm]}, {28.5, FormBox["20", TraditionalForm]}, {18.5, FormBox["30", TraditionalForm]}, {8.5, FormBox["40", TraditionalForm]}, {0.5, FormBox["48", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}, {9.5, FormBox["10", TraditionalForm]}, {19.5, FormBox["20", TraditionalForm]}, {29.5, FormBox["30", TraditionalForm]}, {39.5, FormBox["40", TraditionalForm]}, {47.5, FormBox["48", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}, {9.5, FormBox["10", TraditionalForm]}, {19.5, FormBox["20", TraditionalForm]}, {29.5, FormBox["30", TraditionalForm]}, {39.5, FormBox["40", TraditionalForm]}, {47.5, FormBox["48", TraditionalForm]}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}]], "Output", CellChangeTimes->{{3.7389582034011583`*^9, 3.7389582101668053`*^9}, { 3.73895829112352*^9, 3.7389583275862513`*^9}, 3.738958900185498*^9, { 3.738958969477621*^9, 3.738958996939023*^9}, 3.7389590545384197`*^9, { 3.738959182986147*^9, 3.738959228544485*^9}, 3.7389593776810217`*^9, { 3.738959423764462*^9, 3.738959439755392*^9}, {3.738959529005062*^9, 3.738959558555397*^9}, 3.738959674381528*^9, 3.738961077906*^9, 3.738961327676906*^9, 3.7723682860937233`*^9, 3.7723695848223867`*^9, { 3.772369625200437*^9, 3.772369649115479*^9}, 3.772370238741824*^9, { 3.772370543253213*^9, 3.772370550242125*^9}, 3.772371573962839*^9, 3.7723789169684668`*^9, 3.772412556931953*^9, {3.7724126190132236`*^9, 3.772412642471232*^9}},ExpressionUUID->"7fb0424e-8540-4624-ad81-\ 9faaaa50ae05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SIMULATION", "Section", CellChangeTimes->{{3.70359897369314*^9, 3.7035989752534847`*^9}},ExpressionUUID->"488ff1ac-c7c5-4600-a01c-\ 9ac13c1ca356"], Cell[CellGroupData[{ Cell["INITIAL CONDITIONS", "Subsection", CellChangeTimes->{{3.7035989802211943`*^9, 3.703598986413089*^9}},ExpressionUUID->"e97d829b-e831-4b81-86ab-\ 6a6872803121"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ICRules", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Phi]", "n"], "[", "t_", "]"}], "\[Rule]", " ", FractionBox["\[Pi]", "4."]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[Phi]", RowBox[{"n", "+", "1"}]], "[", "t_", "]"}], "\[Rule]", " ", FractionBox["\[Pi]", "2."]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[Phi]", RowBox[{"n", "+", "2"}]], "[", "t_", "]"}], "\[Rule]", " ", FractionBox["\[Pi]", "4."]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[Phi]", "j_"], "[", "t_", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["x", "n"], "[", "t_", "]"}], "\[Rule]", FractionBox["1.", RowBox[{"2", SqrtBox["2"], "n"}]]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["x", RowBox[{"j_", "/;", RowBox[{"j", "<", "n"}]}]], "[", "t_", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["x", RowBox[{"j_", "/;", RowBox[{"j", ">", "n"}]}]], "[", "t_", "]"}], "\[Rule]", FractionBox["1.", RowBox[{ SqrtBox["2"], "n"}]]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["y", "n"], "[", "t_", "]"}], "\[Rule]", RowBox[{ FractionBox["1.", "2"], "-", FractionBox["1", RowBox[{"2", " ", "n"}]], "+", FractionBox["1", RowBox[{"2", SqrtBox["2"], "n"}]]}]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["y", RowBox[{"j_", "/;", RowBox[{"j", "<", "n"}]}]], "[", "t_", "]"}], "\[Rule]", FractionBox["j", RowBox[{"2.", " ", "n"}]]}], ",", " ", RowBox[{ RowBox[{ SubscriptBox["y", RowBox[{"j_", "/;", RowBox[{"j", ">", "n"}]}]], "[", "t_", "]"}], "\[Rule]", RowBox[{"1", "-", FractionBox["j", RowBox[{"2.", " ", "n"}]]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"v_", "'"}], "[", "t_", "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\n", RowBox[{"ICState", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"\[DoubleStruckQ]", "[", "\[Tau]", "]"}], ",", " ", RowBox[{ RowBox[{"\[DoubleStruckQ]", "'"}], "[", "\[Tau]", "]"}]}], "]"}], " ", "//.", " ", "ICRules"}], ")"}]}]}], "Code", InitializationCell->True, CellChangeTimes->{{3.728072734737775*^9, 3.728072738365467*^9}, { 3.728073175035781*^9, 3.7280731771481752`*^9}, {3.728073490810521*^9, 3.7280735869857883`*^9}, {3.728073635921855*^9, 3.728073760577389*^9}, 3.7280738670736513`*^9, {3.728073930217762*^9, 3.7280739423454027`*^9}, { 3.728074218047174*^9, 3.728074280751874*^9}, {3.728074329913321*^9, 3.7280743498567247`*^9}, {3.7280747196308947`*^9, 3.728074721719961*^9}, { 3.728074755102305*^9, 3.728074776797987*^9}, {3.728074855541821*^9, 3.7280748635416*^9}, {3.72807492970895*^9, 3.728074952556347*^9}, { 3.749573108196445*^9, 3.749573153185918*^9}, 3.7495745272406197`*^9, 3.768143535154313*^9, {3.7691900396347723`*^9, 3.7691900687834044`*^9}, { 3.772370574988121*^9, 3.77237058577839*^9}, {3.772370730021418*^9, 3.772370737020368*^9}, {3.772370767677875*^9, 3.7723707681739063`*^9}, { 3.7723709675353117`*^9, 3.772371140722574*^9}, {3.772371182444766*^9, 3.772371217500387*^9}, {3.772371269999981*^9, 3.7723713225705137`*^9}, { 3.7723713579293013`*^9, 3.7723714076788597`*^9}},ExpressionUUID->"f392a17f-13e8-495f-bee9-\ 913b78180a3b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0.0625`", ",", "0", ",", "0", ",", "0.125`", ",", "0", ",", "0", ",", "0.1875`", ",", "0", ",", "0", ",", "0.25`", ",", "0", ",", "0", ",", "0.3125`", ",", "0", ",", "0", ",", "0.375`", ",", "0", ",", "0", ",", "0.4375`", ",", "0", ",", "0.044194173824159216`", ",", "0.48169417382415924`", ",", "0.7853981633974483`", ",", "0.08838834764831843`", ",", "0.4375`", ",", "1.5707963267948966`", ",", "0.08838834764831843`", ",", "0.375`", ",", "0.7853981633974483`", ",", "0.08838834764831843`", ",", "0.3125`", ",", "0", ",", "0.08838834764831843`", ",", "0.25`", ",", "0", ",", "0.08838834764831843`", ",", "0.1875`", ",", "0", ",", "0.08838834764831843`", ",", "0.125`", ",", "0", ",", "0.08838834764831843`", ",", "0.0625`", ",", "0", ",", "0.08838834764831843`", ",", "0.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.7723712842500143`*^9, {3.7723713155362263`*^9, 3.772371413421774*^9}, 3.77237157434794*^9, 3.772378918230008*^9, 3.77241255768711*^9, 3.7724126425233803`*^9},ExpressionUUID->"d317619c-ee08-431f-b90f-\ 84fa9d15eea3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["EQUATIONS OF MOTION", "Subsection", CellChangeTimes->{{3.7153712415305357`*^9, 3.7153712550259438`*^9}, { 3.715458534287568*^9, 3.7154585419809513`*^9}, 3.749574568007374*^9},ExpressionUUID->"020147a8-4e40-482a-9cba-\ 1baebd6ad72a"], Cell[BoxData[ RowBox[{ RowBox[{"SIMPar", " ", "=", " ", RowBox[{"<|", RowBox[{ RowBox[{"g", "\[Rule]", " ", "1"}], ",", " ", RowBox[{ SubscriptBox["m", "j_"], " ", "\[Rule]", " ", FractionBox["1", RowBox[{"2", " ", "n"}]]}], ",", " ", RowBox[{ SubscriptBox["l", "j_"], "\[Rule]", " ", FractionBox["1", RowBox[{"2", " ", "n"}]]}], ",", " ", RowBox[{ SubscriptBox["\[Chi]", "j_"], "\[Rule]", " ", FractionBox["1", "2"]}], ",", " ", RowBox[{ SubscriptBox["\[Rho]", "j_"], "\[Rule]", " ", FractionBox[ SubscriptBox["l", "j"], SqrtBox["12"]]}]}], "|>"}]}], ";"}]], "Code", CellChangeTimes->{{3.76919072202341*^9, 3.7691908239289513`*^9}, { 3.769200546721314*^9, 3.769200547398621*^9}, {3.769200639058331*^9, 3.769200660647596*^9}, {3.76920072201997*^9, 3.769200723057778*^9}, 3.769200765701274*^9, {3.769202806714354*^9, 3.76920281007271*^9}, { 3.772370131213955*^9, 3.772370138803751*^9}, {3.772370248042398*^9, 3.772370250754506*^9}, {3.772370310569771*^9, 3.7723704223832397`*^9}, { 3.772370454077937*^9, 3.772370461189863*^9}, 3.7723706103870983`*^9},ExpressionUUID->"83e6a710-6154-4ef4-a13c-\ 00a743ceb535"], Cell[BoxData[ RowBox[{ RowBox[{"SIMULATOR", "[", RowBox[{"time_", ",", " ", "state_"}], "]"}], ":=", " ", RowBox[{"Module", "[", "\n", "\t", RowBox[{ RowBox[{"{", RowBox[{ "r", ",", " ", "A", ",", " ", "b", ",", " ", "M", ",", " ", "f", ",", " ", "S", ",", " ", "n0", ",", " ", "n1", ",", " ", "\[Zeta]", ",", " ", "\[Omega]"}], "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"r", " ", "=", " ", RowBox[{"Normal", " ", "@", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"<|", RowBox[{"\[Tau]", "\[Rule]", "time"}], "|>"}], ",", " ", "SIMPar", ",", " ", RowBox[{"Inner", "[", RowBox[{ RowBox[{ RowBox[{"#1", "\[Rule]", "#2"}], "&"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"\[DoubleStruckQ]", "[", "\[Tau]", "]"}], ",", " ", RowBox[{ RowBox[{"\[DoubleStruckQ]", "'"}], "[", "\[Tau]", "]"}]}], "]"}], ",", " ", "state", ",", " ", "Association"}], "]"}]}], "]"}]}]}], ";", "\n", "\t", RowBox[{"A", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckCapitalA]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}], ";", "\n", "\t", RowBox[{"b", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckB]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}], ";", "\n", "\t", RowBox[{"M", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckCapitalM]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}], ";", "\n", "\t", RowBox[{"f", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckF]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}], ";", "\n", "\t", RowBox[{"nn0", " ", "=", " ", RowBox[{"n0", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckH]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}]}], ";", "\n", "\t", RowBox[{"nn1", " ", "=", " ", RowBox[{"n1", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckN]", "[", "\[Tau]", "]"}], " ", "//.", " ", "r"}], ")"}]}]}], ";", "\n", "\t", RowBox[{"\[Zeta]", " ", "=", " ", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2."}]}], ";", "\n", "\t", RowBox[{"\[Omega]", " ", "=", " ", "10."}], ";", " ", "\n", "\t", RowBox[{"S", " ", "=", " ", RowBox[{"NullSpace", "[", "A", "]"}]}], ";", "\n", "\t", RowBox[{"nrA", " ", "=", " ", RowBox[{ RowBox[{"MatrixRank", "[", "A", "]"}], " ", "-", " ", "n\[DoubleStruckC]"}]}], ";", "\n", "\t", RowBox[{"nrS", " ", "=", " ", RowBox[{ RowBox[{"MatrixRank", "[", "S", "]"}], " ", "-", " ", RowBox[{"(", RowBox[{"n\[DoubleStruckQ]", " ", "-", " ", "n\[DoubleStruckC]"}], ")"}]}]}], ";", "\n", "\t", RowBox[{"n\[Alpha]", " ", "=", " ", RowBox[{"LinearSolve", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"S", ".", "M"}], ",", " ", "A"}], "]"}], ",", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"S", ".", "f"}], ",", " ", RowBox[{"b", " ", "-", " ", RowBox[{"2", " ", "\[Zeta]", " ", "\[Omega]", " ", "n1"}], " ", "-", " ", RowBox[{ SuperscriptBox["\[Omega]", "2"], " ", "n0"}]}]}], "]"}]}], "]"}]}], ";", "\n", "\t", RowBox[{"nn2", " ", "=", " ", RowBox[{ RowBox[{"A", ".", "n\[Alpha]"}], " ", "-", " ", "b"}]}], ";", "\n", "\t", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"time", ",", " ", "ta"}], "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"WriteString", "[", RowBox[{"fileL", ",", " ", RowBox[{"ExportString", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"time", "//", "N"}], ",", " ", "nrA", ",", " ", "nrS"}], "}"}], ",", " ", "n\[Alpha]", ",", " ", "nn0", ",", " ", "nn1", ",", " ", "nn2"}], "]"}], "}"}], ",", "\"\\""}], "]"}]}], "]"}]}], "]"}], ";"}], "*)"}], "\t", "\n", "\t", RowBox[{"Join", "[", "\n", "\t\t", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[DoubleStruckQ]", "'"}], "[", "\[Tau]", "]"}], " ", "/.", " ", "r"}], ")"}], ",", "\n", "\t\t", "n\[Alpha]"}], "\n", "\t\t", "]"}]}]}], "\n", "\t", "]"}]}]], "Code", CellChangeTimes->{ 3.749574562881592*^9, 3.7495747709086723`*^9, {3.753460411516182*^9, 3.753460419275299*^9}, {3.7534604613728323`*^9, 3.753460462266033*^9}, 3.7534605762120047`*^9, {3.753460632717107*^9, 3.753460637004037*^9}, 3.75346067191676*^9, 3.76814353868512*^9, 3.7691900483813257`*^9, { 3.7691900973145313`*^9, 3.7691901196811333`*^9}, {3.7691901532854977`*^9, 3.769190200160037*^9}, {3.769190256235772*^9, 3.769190344693799*^9}, { 3.769190394907632*^9, 3.769190429055986*^9}, {3.76919047881071*^9, 3.7691904791285677`*^9}, {3.7691906986996593`*^9, 3.7691907004910583`*^9}, {3.769190759747208*^9, 3.769190763148059*^9}, 3.769190856731385*^9, {3.769191143902053*^9, 3.769191165692771*^9}, 3.7723703887805862`*^9, 3.772370445014804*^9, {3.772370484224012*^9, 3.7723705119922132`*^9}, {3.772371428223675*^9, 3.772371438790901*^9}, { 3.7723719647153597`*^9, 3.772371965792712*^9}},ExpressionUUID->"91ff1b35-7546-446b-add2-\ a5b57125f305"] }, Open ]], Cell[CellGroupData[{ Cell["INTEGRATOR SETUP", "Subsection", CellChangeTimes->{{3.703598996845825*^9, 3.703599000469185*^9}, { 3.715372834816581*^9, 3.7153728366314363`*^9}},ExpressionUUID->"d5e31d69-199e-4620-b6b7-\ 0f88a16fc24e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ti", " ", "=", " ", "0"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"th", " ", "=", " ", RowBox[{"1", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], ";"}], "\n", RowBox[{ RowBox[{"ta", " ", "=", " ", RowBox[{"4", " ", "th"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"tf", " ", "=", " ", "2.5"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"tR", " ", "=", " ", RowBox[{ RowBox[{"Range", "[", RowBox[{"ti", ",", " ", "tf", ",", " ", "th"}], "]"}], " ", "//", " ", "Rationalize"}]}], ";"}], "\n", RowBox[{ RowBox[{"tA", " ", "=", " ", RowBox[{ RowBox[{"Range", "[", RowBox[{"ti", ",", " ", "tf", ",", " ", "ta"}], "]"}], " ", "//", " ", "Rationalize"}]}], ";"}]}], "Code", CellChangeTimes->{ 3.703599514361122*^9, 3.703599581255706*^9, {3.703599662599761*^9, 3.7035997011839046`*^9}, {3.703599793256618*^9, 3.703599801863875*^9}, { 3.703709479022036*^9, 3.703709514366062*^9}, 3.703865493085565*^9, { 3.7070694740573187`*^9, 3.707069474135913*^9}, {3.715372857608429*^9, 3.715372861920334*^9}, {3.715374027045047*^9, 3.71537405870263*^9}, { 3.7153741034482737`*^9, 3.715374107905034*^9}, {3.715374184378023*^9, 3.7153741846465597`*^9}, {3.715374227775289*^9, 3.715374228052294*^9}, 3.715375366247086*^9, {3.715422812641959*^9, 3.715422815105714*^9}, { 3.7154512354539127`*^9, 3.715451248902504*^9}, {3.715451292918508*^9, 3.715451294950053*^9}, {3.7154522908650713`*^9, 3.715452291216762*^9}, { 3.71545289935502*^9, 3.7154529040508127`*^9}, {3.7154531200922728`*^9, 3.715453122706571*^9}, {3.715458480989642*^9, 3.7154584812699127`*^9}, { 3.715458869343431*^9, 3.715458888487639*^9}, 3.7155071519765863`*^9, { 3.7155088488934298`*^9, 3.715508849069881*^9}, {3.715509385400313*^9, 3.7155093865202208`*^9}, {3.7271835232147293`*^9, 3.727183544934095*^9}, 3.7271849561995497`*^9, {3.727185141045331*^9, 3.727185143827366*^9}, { 3.727185201306719*^9, 3.7271852163675747`*^9}, 3.7271853016478357`*^9, 3.727185502513762*^9, {3.727185688222672*^9, 3.7271856883399363`*^9}, { 3.7272228868258038`*^9, 3.727222947047936*^9}, {3.7272229863469763`*^9, 3.727222987624876*^9}, {3.72744140757927*^9, 3.7274414108915863`*^9}, { 3.7274416467046432`*^9, 3.727441657792547*^9}, {3.727441818758829*^9, 3.727441818932177*^9}, {3.7274750621053963`*^9, 3.7274750977436647`*^9}, { 3.727480473017905*^9, 3.727480476654114*^9}, {3.7274814360638227`*^9, 3.7274814363499603`*^9}, {3.727482841207694*^9, 3.7274829070587387`*^9}, { 3.7274830166596746`*^9, 3.7274830167489777`*^9}, {3.7274830540187387`*^9, 3.727483067982642*^9}, {3.728074999683467*^9, 3.7280750178994226`*^9}, { 3.72812958379733*^9, 3.72812959226978*^9}, {3.728129627061892*^9, 3.7281296431739283`*^9}, 3.728129707885132*^9, {3.749573420561069*^9, 3.7495734837466908`*^9}, {3.7495747997462587`*^9, 3.749574879935968*^9}, { 3.7495749467954073`*^9, 3.749574947714746*^9}, {3.7495750156997128`*^9, 3.749575030895588*^9}, 3.750017967296254*^9, {3.7500180198560467`*^9, 3.7500180298242702`*^9}, {3.750018266535671*^9, 3.7500182773359137`*^9}, 3.7500643231503067`*^9, {3.750065402780376*^9, 3.75006540297163*^9}, { 3.750092058671425*^9, 3.750092065086351*^9}, {3.7500921229428873`*^9, 3.750092124454667*^9}, {3.750092195039083*^9, 3.75009219893509*^9}, { 3.7500960592836123`*^9, 3.7500960595470133`*^9}, 3.750101485065999*^9, { 3.7501018513660603`*^9, 3.750101905996531*^9}, 3.750102216215032*^9, { 3.7503982846189957`*^9, 3.750398293466877*^9}, {3.75044814206258*^9, 3.750448147933854*^9}, {3.753460099909206*^9, 3.753460104335981*^9}, { 3.7534601392400723`*^9, 3.753460149504613*^9}, {3.753460706492539*^9, 3.753460726603269*^9}, {3.753460765620612*^9, 3.753460765683773*^9}, { 3.7537244847799587`*^9, 3.7537244912121773`*^9}, 3.768143543003281*^9, { 3.76918984044236*^9, 3.7691898465049334`*^9}, 3.7691902103804502`*^9, { 3.7691908995575123`*^9, 3.769190909147664*^9}, {3.7691913521831913`*^9, 3.769191352323987*^9}, {3.769192451865703*^9, 3.76919246956811*^9}, 3.772371446181877*^9},ExpressionUUID->"f0ab0ef0-96ec-4601-b70b-\ 6c5c43b9f32d"] }, Open ]], Cell[CellGroupData[{ Cell["INTEGRATION", "Subsection", CellChangeTimes->{{3.749574574911427*^9, 3.749574577415188*^9}},ExpressionUUID->"98d61cea-218f-4060-b248-\ c7f8a7774093"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Ny", " ", "=", " ", RowBox[{"ICState", " ", "//.", " ", "SIMPar"}]}], ";"}], "\n", RowBox[{ RowBox[{"fileS", " ", "=", " ", RowBox[{"OpenWrite", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"2", " ", "n"}], "]"}], "<>", "\"\<-chain.csv\>\""}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\t", "\n", "\t", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", " ", RowBox[{"tf", "/", "100"}]}], "]"}], " ", "==", " ", "0"}], ",", " ", RowBox[{"Print", "[", RowBox[{"N", " ", "@", " ", "#"}], "]"}]}], "]"}], ";", "\n", "\t", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"#", ",", " ", "ta"}], "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{ RowBox[{"WriteString", "[", RowBox[{"fileS", ",", " ", RowBox[{"ExportString", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"#", "//", "N"}], "}"}], ",", " ", "Ny"}], "]"}], "}"}], ",", "\"\\""}], "]"}]}], "]"}], ";"}]}], "]"}], ";", "\n", "\t", RowBox[{"Ny", " ", "=", " ", RowBox[{"Trapezoidal", "[", RowBox[{"SIMULATOR", ",", " ", "#", ",", " ", "Ny", ",", " ", "th"}], "]"}]}], ";"}], "\n", "\t", ")"}], "&"}], " ", "/@", " ", "tR"}], ";"}], "\t"}], "\n", RowBox[{"Close", "[", "fileS", "]"}]}], "Code", CellChangeTimes->{ 3.749574724155582*^9, {3.749574989837152*^9, 3.749574991179057*^9}, { 3.7534604904457693`*^9, 3.75346049171437*^9}, {3.753460738909114*^9, 3.7534607536441727`*^9}, {3.753724530240996*^9, 3.7537245389248466`*^9}, 3.768143548105891*^9, 3.769190495425622*^9, {3.7691909287488527`*^9, 3.769190938764957*^9}, {3.769190990851281*^9, 3.769191050035075*^9}, { 3.7692095493486633`*^9, 3.76920955511934*^9}, {3.772371498948105*^9, 3.772371557205241*^9}, {3.7723719738820477`*^9, 3.7723719759518137`*^9}, { 3.772373035879122*^9, 3.7723730611101837`*^9}},ExpressionUUID->"993f672c-6829-417a-aab4-\ 0689492f7ad5"], Cell[CellGroupData[{ Cell[BoxData["0.`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412642670299*^9},ExpressionUUID->"63afc96e-97af-41b3-b4fe-\ 089323abf69e"], Cell[BoxData["0.025`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241265189859*^9},ExpressionUUID->"6b88d248-5abb-4192-b4ed-\ 07f2133be6bb"], Cell[BoxData["0.05`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412658380966*^9},ExpressionUUID->"8374da72-907d-48d9-8db7-\ 82756e6c71a6"], Cell[BoxData["0.1`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241267134622*^9},ExpressionUUID->"685965b7-a035-4a87-8b5e-\ ff3b404387f4"], Cell[BoxData["0.125`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412679175741*^9},ExpressionUUID->"07706473-2c63-432d-8bb8-\ 0a3e923de35d"], Cell[BoxData["0.2`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412696407881*^9},ExpressionUUID->"3c78e104-0ec0-4fde-b1c4-\ f514e9572d53"], Cell[BoxData["0.225`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412702923025*^9},ExpressionUUID->"8a073d79-4709-4942-abaa-\ ce1307c5d180"], Cell[BoxData["0.25`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724127098623133`*^9},ExpressionUUID->"02985a32-442e-4b77-96e7-\ a31df2e1e365"], Cell[BoxData["0.275`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412716223413*^9},ExpressionUUID->"7f89c157-c158-4345-b5d1-\ ecd4518d8f10"], Cell[BoxData["0.325`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241272872276*^9},ExpressionUUID->"8dff1b4c-e8e1-457b-abab-\ 33052600c1de"], Cell[BoxData["0.375`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412740414866*^9},ExpressionUUID->"faee1bd1-6376-4691-9740-\ 3791f0ed1459"], Cell[BoxData["0.4`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412747242505*^9},ExpressionUUID->"a348589d-35ad-4f8b-bf2b-\ 0c2958f055cf"], Cell[BoxData["0.45`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412758737528*^9},ExpressionUUID->"fbbd37eb-7337-4d12-b7ab-\ 2c53583486b2"], Cell[BoxData["0.5`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724127703936462`*^9},ExpressionUUID->"261cb7ac-9bcf-4302-827f-\ 02c8c417b37a"], Cell[BoxData["0.525`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241277609344*^9},ExpressionUUID->"8144265a-c6cb-4f50-a33f-\ 73c955a1db56"], Cell[BoxData["0.55`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724127817497473`*^9},ExpressionUUID->"71eda72a-482d-4b2e-b774-\ 4cba8ddeacae"], Cell[BoxData["0.625`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412800055524*^9},ExpressionUUID->"3390b3d4-3983-4cb6-a296-\ cab73e00ebfe"], Cell[BoxData["0.65`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724128059702597`*^9},ExpressionUUID->"5b4ff7d9-be5a-4f00-89f0-\ 835ae4695a26"], Cell[BoxData["0.675`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412811489726*^9},ExpressionUUID->"680a3395-a6cc-4d2a-989f-\ 23b6b443d43a"], Cell[BoxData["0.75`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724128279761763`*^9},ExpressionUUID->"d957850e-208b-4a50-a0fa-\ 1529737b9b2e"], Cell[BoxData["0.775`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724128334858227`*^9},ExpressionUUID->"02d56937-66ea-4f96-bb36-\ 7fe35ef34662"], Cell[BoxData["0.8`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724128389801283`*^9},ExpressionUUID->"64c84d4e-8907-4f2d-b64a-\ 615a16798a1f"], Cell[BoxData["0.875`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241285534831*^9},ExpressionUUID->"333a723f-7ec1-4628-b6db-\ afbf3b7ac287"], Cell[BoxData["0.9`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412860821557*^9},ExpressionUUID->"0b05e344-4023-463a-83e4-\ 5b97cc93694d"], Cell[BoxData["0.925`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724128662587967`*^9},ExpressionUUID->"e8844f2f-3e3a-40b2-a85a-\ 3c542de9cd07"], Cell[BoxData["1.05`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412893705851*^9},ExpressionUUID->"c20d4ed3-c05a-45ac-a27f-\ 0e10f96a3a6b"], Cell[BoxData["1.1`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412904725027*^9},ExpressionUUID->"af3d851d-ce28-4729-b5ea-\ 3c5c19bdb19b"], Cell[BoxData["1.125`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412910198084*^9},ExpressionUUID->"2c0945d4-b346-43bf-9b7d-\ d3b555bd86f2"], Cell[BoxData["1.175`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724129211063967`*^9},ExpressionUUID->"8ae39684-092f-4b7f-973a-\ d6d4b0303ca4"], Cell[BoxData["1.225`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412932080645*^9},ExpressionUUID->"703e52ad-cf28-474b-b6c9-\ ab5e44ca4a48"], Cell[BoxData["1.25`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724129375913353`*^9},ExpressionUUID->"945ad0aa-c457-47b9-bf51-\ bf6e4a6e22fa"], Cell[BoxData["1.3`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724129485691833`*^9},ExpressionUUID->"f5ac4a67-7770-4523-9ca7-\ 89e4f31c3a2f"], Cell[BoxData["1.35`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412959546506*^9},ExpressionUUID->"99a5c021-3397-4d16-92cb-\ b10acefda6d2"], Cell[BoxData["1.375`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412965095207*^9},ExpressionUUID->"043dba36-f8cf-43cb-bb5a-\ 9e46030c3566"], Cell[BoxData["1.425`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412977017558*^9},ExpressionUUID->"aea2a6a7-8de0-4f70-a09d-\ 21dd3fa4d93c"], Cell[BoxData["1.475`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412988187318*^9},ExpressionUUID->"202f0f5f-e2e2-4163-bcf6-\ adc94bf4e80c"], Cell[BoxData["1.5`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772412993697665*^9},ExpressionUUID->"22aaa970-a9eb-41f2-a021-\ 5d6845e8be76"], Cell[BoxData["1.55`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724130046822567`*^9},ExpressionUUID->"d613b542-6c2b-4a5f-b857-\ f671193cbabc"], Cell[BoxData["1.6`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724130156591578`*^9},ExpressionUUID->"01c7c808-62fb-4d7e-8807-\ a0b6783a4442"], Cell[BoxData["1.625`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724130212237873`*^9},ExpressionUUID->"4a4a0c04-0557-4625-a4e9-\ cc33d01acc9b"], Cell[BoxData["1.675`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724130322835283`*^9},ExpressionUUID->"60417311-f77f-466b-b8eb-\ 0003597015fa"], Cell[BoxData["1.725`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413043290146*^9},ExpressionUUID->"9777601e-27da-4cbb-a355-\ f2708302bb45"], Cell[BoxData["1.75`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413048762208*^9},ExpressionUUID->"293d696a-0d22-4b0f-a8a0-\ 47743993cc0d"], Cell[BoxData["1.8`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413059780658*^9},ExpressionUUID->"2abe8246-e616-4bf9-916f-\ 955492bbcd9a"], Cell[BoxData["1.85`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413070752232*^9},ExpressionUUID->"2f39b917-30c3-4f97-a2a9-\ 049f24e4d96e"], Cell[BoxData["1.875`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413076217182*^9},ExpressionUUID->"8b171f01-569a-4c74-b9b3-\ b531fa8fd2df"], Cell[BoxData["1.925`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413087486837*^9},ExpressionUUID->"d7254ef9-ef3b-452b-927d-\ ef750e291b5d"], Cell[BoxData["1.975`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724130985492287`*^9},ExpressionUUID->"cc859c38-a82f-45e0-87dd-\ ea5c91408733"], Cell[BoxData["2.075`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413120472784*^9},ExpressionUUID->"35913cc5-6673-44a3-be88-\ f3159f10429e"], Cell[BoxData["2.1`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724131259824457`*^9},ExpressionUUID->"6a6a83f1-c0a2-4191-886e-\ 90a9336d312d"], Cell[BoxData["2.125`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724131314409723`*^9},ExpressionUUID->"a7f1be4a-089c-4a72-b349-\ 3a7c0537ddfb"], Cell[BoxData["2.2`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724131478526773`*^9},ExpressionUUID->"eb075fbd-0b96-4c25-8677-\ 0d4ea1d05acf"], Cell[BoxData["2.225`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724131533406897`*^9},ExpressionUUID->"c497bb99-4941-45a7-8dfe-\ 42d72644d568"], Cell[BoxData["2.25`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724131587824574`*^9},ExpressionUUID->"a4638906-7507-4276-bd8e-\ 1ee03873143d"], Cell[BoxData["2.325`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413175278841*^9},ExpressionUUID->"f1fa957a-0831-43e1-9c69-\ c9ad8d612266"], Cell[BoxData["2.35`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413180758946*^9},ExpressionUUID->"330f0c57-144f-4c3a-8531-\ 64289c6533d9"], Cell[BoxData["2.375`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.77241318625659*^9},ExpressionUUID->"d38c2f47-5641-4fe9-9939-\ c829935a58ae"], Cell[BoxData["2.45`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.7724132026110773`*^9},ExpressionUUID->"8a0b5d20-fa30-4a68-ad0a-\ 7ed41079835f"], Cell[BoxData["2.475`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413208079424*^9},ExpressionUUID->"95580ecb-d643-4e2d-b38a-\ 070f361333cc"], Cell[BoxData["2.5`"], "Print", CellChangeTimes->{ 3.769191257173856*^9, 3.7691913541000643`*^9, 3.769192498527883*^9, 3.76920060193932*^9, {3.769200646212665*^9, 3.769200664224098*^9}, 3.769200726710916*^9, 3.7692007697635403`*^9, 3.7692028800439577`*^9, { 3.772371507556265*^9, 3.7723715288825893`*^9}, 3.772371574443439*^9, 3.7723789183255873`*^9, 3.7724125578588247`*^9, 3.772413213537629*^9},ExpressionUUID->"55a983f6-1ec7-408b-9a5d-\ 0e560f17d515"] }, Open ]], Cell[BoxData["\<\"export/simulations/16-chain.csv\"\>"], "Output", CellChangeTimes->{3.772371696816204*^9, 3.7723821619899178`*^9, 3.7724125712517757`*^9, 3.772413213761222*^9},ExpressionUUID->"4c8ab512-1e81-4082-8ffe-\ 108187042e6b"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1280, 751}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 205, 4, 67, "Section",ExpressionUUID->"94a2de94-20d9-4757-8d29-a43055c3ac3f"], Cell[CellGroupData[{ Cell[810, 30, 153, 3, 54, "Subsection",ExpressionUUID->"1745f436-701f-475e-a73b-60fcb9c3b5bf"], Cell[CellGroupData[{ Cell[988, 37, 1514, 23, 72, "Code",ExpressionUUID->"99b01883-1b89-435a-a10c-5430fbe9e63a"], Cell[2505, 62, 1361, 20, 34, "Output",ExpressionUUID->"67782251-1836-4629-8286-b89c1d37ad27"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3915, 88, 166, 3, 54, "Subsection",ExpressionUUID->"ff5535f0-8c31-4fb2-b4bf-ba752ec88ebd"], Cell[4084, 93, 830, 25, 91, "Code",ExpressionUUID->"ef68e171-70a1-42c9-9c3c-12d773488d4e"] }, Open ]], Cell[CellGroupData[{ Cell[4951, 123, 164, 3, 54, "Subsection",ExpressionUUID->"5006b78e-3a78-413c-9d51-d210d2fec4c8"], Cell[5118, 128, 1692, 25, 52, "Code",ExpressionUUID->"d775bc51-2f99-4617-a76d-3055200cce0a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6859, 159, 187, 3, 67, "Section",ExpressionUUID->"c2be5a0e-03ce-441b-ae90-c9d4b9aae60a"], Cell[CellGroupData[{ Cell[7071, 166, 14540, 398, 528, "Code",ExpressionUUID->"c5307560-fb81-49df-b38d-f94d24e6bc39"], Cell[21614, 566, 37085, 1156, 602, "Output",ExpressionUUID->"c06f6370-3963-44e8-8082-1913fa9ebb88"], Cell[58702, 1724, 47676, 1389, 602, "Output",ExpressionUUID->"a25ac371-8cf3-4612-adf6-ce2ea52cc2ed"], Cell[106381, 3115, 67466, 1877, 666, "Output",ExpressionUUID->"e5c983b9-c4d4-43c1-aeba-4175640b4e92"], Cell[173850, 4994, 2757, 54, 380, "Output",ExpressionUUID->"7fb0424e-8540-4624-ad81-9faaaa50ae05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[176656, 5054, 156, 3, 67, "Section",ExpressionUUID->"488ff1ac-c7c5-4600-a01c-9ac13c1ca356"], Cell[CellGroupData[{ Cell[176837, 5061, 168, 3, 54, "Subsection",ExpressionUUID->"e97d829b-e831-4b81-86ab-6a6872803121"], Cell[CellGroupData[{ Cell[177030, 5068, 3678, 98, 94, "Code",ExpressionUUID->"f392a17f-13e8-495f-bee9-913b78180a3b", InitializationCell->True], Cell[180711, 5168, 1663, 27, 77, "Output",ExpressionUUID->"d317619c-ee08-431f-b90f-84fa9d15eea3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[182423, 5201, 246, 4, 54, "Subsection",ExpressionUUID->"020147a8-4e40-482a-9cba-1baebd6ad72a"], Cell[182672, 5207, 1257, 30, 75, "Code",ExpressionUUID->"83e6a710-6154-4ef4-a13c-00a743ceb535"], Cell[183932, 5239, 5907, 142, 460, "Code",ExpressionUUID->"91ff1b35-7546-446b-add2-a5b57125f305"] }, Open ]], Cell[CellGroupData[{ Cell[189876, 5386, 215, 4, 54, "Subsection",ExpressionUUID->"d5e31d69-199e-4620-b6b7-0f88a16fc24e"], Cell[190094, 5392, 4256, 74, 149, "Code",ExpressionUUID->"f0ab0ef0-96ec-4601-b70b-6c5c43b9f32d"] }, Open ]], Cell[CellGroupData[{ Cell[194387, 5471, 159, 3, 54, "Subsection",ExpressionUUID->"98d61cea-218f-4060-b248-c7f8a7774093"], Cell[CellGroupData[{ Cell[194571, 5478, 2419, 61, 186, "Code",ExpressionUUID->"993f672c-6829-417a-aab4-0689492f7ad5"], Cell[CellGroupData[{ Cell[197015, 5543, 474, 8, 24, "Print",ExpressionUUID->"63afc96e-97af-41b3-b4fe-089323abf69e"], Cell[197492, 5553, 476, 8, 24, "Print",ExpressionUUID->"6b88d248-5abb-4192-b4ed-07f2133be6bb"], Cell[197971, 5563, 476, 8, 24, "Print",ExpressionUUID->"8374da72-907d-48d9-8db7-82756e6c71a6"], Cell[198450, 5573, 474, 8, 24, "Print",ExpressionUUID->"685965b7-a035-4a87-8b5e-ff3b404387f4"], Cell[198927, 5583, 477, 8, 24, "Print",ExpressionUUID->"07706473-2c63-432d-8bb8-0a3e923de35d"], Cell[199407, 5593, 475, 8, 24, "Print",ExpressionUUID->"3c78e104-0ec0-4fde-b1c4-f514e9572d53"], Cell[199885, 5603, 477, 8, 24, "Print",ExpressionUUID->"8a073d79-4709-4942-abaa-ce1307c5d180"], Cell[200365, 5613, 478, 8, 24, "Print",ExpressionUUID->"02985a32-442e-4b77-96e7-a31df2e1e365"], Cell[200846, 5623, 477, 8, 24, "Print",ExpressionUUID->"7f89c157-c158-4345-b5d1-ecd4518d8f10"], Cell[201326, 5633, 476, 8, 24, "Print",ExpressionUUID->"8dff1b4c-e8e1-457b-abab-33052600c1de"], Cell[201805, 5643, 477, 8, 24, "Print",ExpressionUUID->"faee1bd1-6376-4691-9740-3791f0ed1459"], Cell[202285, 5653, 475, 8, 24, "Print",ExpressionUUID->"a348589d-35ad-4f8b-bf2b-0c2958f055cf"], Cell[202763, 5663, 476, 8, 24, "Print",ExpressionUUID->"fbbd37eb-7337-4d12-b7ab-2c53583486b2"], Cell[203242, 5673, 477, 8, 24, "Print",ExpressionUUID->"261cb7ac-9bcf-4302-827f-02c8c417b37a"], Cell[203722, 5683, 476, 8, 24, "Print",ExpressionUUID->"8144265a-c6cb-4f50-a33f-73c955a1db56"], Cell[204201, 5693, 478, 8, 24, "Print",ExpressionUUID->"71eda72a-482d-4b2e-b774-4cba8ddeacae"], Cell[204682, 5703, 477, 8, 24, "Print",ExpressionUUID->"3390b3d4-3983-4cb6-a296-cab73e00ebfe"], Cell[205162, 5713, 478, 8, 24, "Print",ExpressionUUID->"5b4ff7d9-be5a-4f00-89f0-835ae4695a26"], Cell[205643, 5723, 477, 8, 24, "Print",ExpressionUUID->"680a3395-a6cc-4d2a-989f-23b6b443d43a"], Cell[206123, 5733, 478, 8, 24, "Print",ExpressionUUID->"d957850e-208b-4a50-a0fa-1529737b9b2e"], Cell[206604, 5743, 479, 8, 24, "Print",ExpressionUUID->"02d56937-66ea-4f96-bb36-7fe35ef34662"], Cell[207086, 5753, 477, 8, 24, "Print",ExpressionUUID->"64c84d4e-8907-4f2d-b64a-615a16798a1f"], Cell[207566, 5763, 476, 8, 24, "Print",ExpressionUUID->"333a723f-7ec1-4628-b6db-afbf3b7ac287"], Cell[208045, 5773, 475, 8, 24, "Print",ExpressionUUID->"0b05e344-4023-463a-83e4-5b97cc93694d"], Cell[208523, 5783, 479, 8, 24, "Print",ExpressionUUID->"e8844f2f-3e3a-40b2-a85a-3c542de9cd07"], Cell[209005, 5793, 476, 8, 24, "Print",ExpressionUUID->"c20d4ed3-c05a-45ac-a27f-0e10f96a3a6b"], Cell[209484, 5803, 475, 8, 24, "Print",ExpressionUUID->"af3d851d-ce28-4729-b5ea-3c5c19bdb19b"], Cell[209962, 5813, 477, 8, 24, "Print",ExpressionUUID->"2c0945d4-b346-43bf-9b7d-d3b555bd86f2"], Cell[210442, 5823, 479, 8, 24, "Print",ExpressionUUID->"8ae39684-092f-4b7f-973a-d6d4b0303ca4"], Cell[210924, 5833, 477, 8, 24, "Print",ExpressionUUID->"703e52ad-cf28-474b-b6c9-ab5e44ca4a48"], Cell[211404, 5843, 478, 8, 24, "Print",ExpressionUUID->"945ad0aa-c457-47b9-bf51-bf6e4a6e22fa"], Cell[211885, 5853, 477, 8, 24, "Print",ExpressionUUID->"f5ac4a67-7770-4523-9ca7-89e4f31c3a2f"], Cell[212365, 5863, 476, 8, 24, "Print",ExpressionUUID->"99a5c021-3397-4d16-92cb-b10acefda6d2"], Cell[212844, 5873, 477, 8, 24, "Print",ExpressionUUID->"043dba36-f8cf-43cb-bb5a-9e46030c3566"], Cell[213324, 5883, 477, 8, 24, "Print",ExpressionUUID->"aea2a6a7-8de0-4f70-a09d-21dd3fa4d93c"], Cell[213804, 5893, 477, 8, 24, "Print",ExpressionUUID->"202f0f5f-e2e2-4163-bcf6-adc94bf4e80c"], Cell[214284, 5903, 475, 8, 24, "Print",ExpressionUUID->"22aaa970-a9eb-41f2-a021-5d6845e8be76"], Cell[214762, 5913, 478, 8, 24, "Print",ExpressionUUID->"d613b542-6c2b-4a5f-b857-f671193cbabc"], Cell[215243, 5923, 477, 8, 24, "Print",ExpressionUUID->"01c7c808-62fb-4d7e-8807-a0b6783a4442"], Cell[215723, 5933, 479, 8, 24, "Print",ExpressionUUID->"4a4a0c04-0557-4625-a4e9-cc33d01acc9b"], Cell[216205, 5943, 479, 8, 24, "Print",ExpressionUUID->"60417311-f77f-466b-b8eb-0003597015fa"], Cell[216687, 5953, 477, 8, 24, "Print",ExpressionUUID->"9777601e-27da-4cbb-a355-f2708302bb45"], Cell[217167, 5963, 476, 8, 24, "Print",ExpressionUUID->"293d696a-0d22-4b0f-a8a0-47743993cc0d"], Cell[217646, 5973, 475, 8, 24, "Print",ExpressionUUID->"2abe8246-e616-4bf9-916f-955492bbcd9a"], Cell[218124, 5983, 476, 8, 24, "Print",ExpressionUUID->"2f39b917-30c3-4f97-a2a9-049f24e4d96e"], Cell[218603, 5993, 477, 8, 24, "Print",ExpressionUUID->"8b171f01-569a-4c74-b9b3-b531fa8fd2df"], Cell[219083, 6003, 477, 8, 24, "Print",ExpressionUUID->"d7254ef9-ef3b-452b-927d-ef750e291b5d"], Cell[219563, 6013, 479, 8, 24, "Print",ExpressionUUID->"cc859c38-a82f-45e0-87dd-ea5c91408733"], Cell[220045, 6023, 477, 8, 24, "Print",ExpressionUUID->"35913cc5-6673-44a3-be88-f3159f10429e"], Cell[220525, 6033, 477, 8, 24, "Print",ExpressionUUID->"6a6a83f1-c0a2-4191-886e-90a9336d312d"], Cell[221005, 6043, 479, 8, 24, "Print",ExpressionUUID->"a7f1be4a-089c-4a72-b349-3a7c0537ddfb"], Cell[221487, 6053, 477, 8, 24, "Print",ExpressionUUID->"eb075fbd-0b96-4c25-8677-0d4ea1d05acf"], Cell[221967, 6063, 479, 8, 24, "Print",ExpressionUUID->"c497bb99-4941-45a7-8dfe-42d72644d568"], Cell[222449, 6073, 478, 8, 24, "Print",ExpressionUUID->"a4638906-7507-4276-bd8e-1ee03873143d"], Cell[222930, 6083, 477, 8, 24, "Print",ExpressionUUID->"f1fa957a-0831-43e1-9c69-c9ad8d612266"], Cell[223410, 6093, 476, 8, 24, "Print",ExpressionUUID->"330f0c57-144f-4c3a-8531-64289c6533d9"], Cell[223889, 6103, 476, 8, 24, "Print",ExpressionUUID->"d38c2f47-5641-4fe9-9939-c829935a58ae"], Cell[224368, 6113, 478, 8, 24, "Print",ExpressionUUID->"8a0b5d20-fa30-4a68-ad0a-7ed41079835f"], Cell[224849, 6123, 477, 8, 24, "Print",ExpressionUUID->"95580ecb-d643-4e2d-b38a-070f361333cc"], Cell[225329, 6133, 475, 8, 24, "Print",ExpressionUUID->"55a983f6-1ec7-408b-9a5d-0e560f17d515"] }, Open ]], Cell[225819, 6144, 241, 4, 34, "Output",ExpressionUUID->"4c8ab512-1e81-4082-8ffe-108187042e6b"] }, Open ]] }, Open ]] }, Open ]] } ] *)