(* 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[ 476956, 12047] NotebookOptionsPosition[ 437924, 11441] NotebookOutlinePosition[ 438272, 11456] CellTagsIndexPosition[ 438229, 11453] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Piastra quadrata", "Title", CellFrame->1, CellFrameColor->RGBColor[1, 0, 0], CellChangeTimes->{{3.759042338349144*^9, 3.759042349772447*^9}, { 3.7641354922642126`*^9, 3.764135495215582*^9}}, TextAlignment->Center, TextJustification->1, LineSpacing->{2, 3}, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"788cd088-1e51-4064-8779-1ca74dad0660"], Cell[CellGroupData[{ Cell["\<\ Primo elemento \ \>", "Section", CellFrame->{{0, 0}, {0.5, 0.5}}, CellFrameColor->RGBColor[0, 0, 1], CellChangeTimes->{{3.759042511629591*^9, 3.7590426571327305`*^9}, { 3.7590428298532133`*^9, 3.7590429009498835`*^9}, {3.7590429363527265`*^9, 3.75904295943932*^9}, {3.7590429949961543`*^9, 3.7590430018917346`*^9}, { 3.764135522864072*^9, 3.764135529279684*^9}}, TextAlignment->Left,ExpressionUUID->"af15dcdd-b365-4233-a52a-c1c5eba2862c"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640519612086596`*^9, 3.764051965505329*^9}},ExpressionUUID->"43f6bd7c-b016-4777-aab6-\ 5c45a9e05d26"], Cell[BoxData["\<\"Funzioni di forma\"\>"], "Output", CellChangeTimes->{3.7640519705595274`*^9, 3.764154245405111*^9, 3.7641558933930187`*^9, 3.764156910184559*^9, 3.7642480994907937`*^9, 3.764495478445528*^9, 3.764496442281275*^9, 3.7647679268729715`*^9, 3.764909591543091*^9, 3.765025199560215*^9},ExpressionUUID->"18dd653e-e59a-482f-878c-\ 33d61cd409b0"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["N", "1"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "2"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "3"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "4"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640519721450853`*^9, 3.764052090917095*^9}, { 3.7640525225008235`*^9, 3.7640525268392587`*^9}},ExpressionUUID->"e2e6bcc2-aa9e-409e-87f3-\ 06523cb4a978"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640521238561935`*^9, 3.7640521264847145`*^9}},ExpressionUUID->"83b20638-cbd1-449e-b8d7-\ 04808ba96127"], Cell[BoxData["\<\"Calcolo Jacobiano\"\>"], "Output", CellChangeTimes->{3.7640521272480097`*^9, 3.7640836169330626`*^9, 3.7641300054618535`*^9, 3.764135239389906*^9, 3.764135301337264*^9, 3.7641542455098295`*^9, 3.7641558934708433`*^9, 3.7641569102463937`*^9, 3.7642480995945063`*^9, 3.7644954787576647`*^9, 3.764496442520182*^9, 3.764767926988633*^9, 3.7649095916423597`*^9, 3.7650252000132523`*^9},ExpressionUUID->"c2964923-50af-40b8-985b-\ afa5b037d83e"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"X1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X3", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X4", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y3", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y4", "=", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.764053052326024*^9, 3.7640530937903967`*^9}, { 3.764767885154031*^9, 3.7647678883014965`*^9}},ExpressionUUID->"6c6c2b42-8dec-4cdd-84a5-\ 5f773a118cd9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J1", "11"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, 3.7641351116814137`*^9},ExpressionUUID->"4215048c-7f8c-4db2-81a4-\ a3ae6f78b715"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{3.7640525455766735`*^9, 3.7640531291210055`*^9, 3.764053174317822*^9, 3.764055812364915*^9, 3.764083616951014*^9, 3.7641300055178504`*^9, 3.7641352396234264`*^9, 3.7641353019536524`*^9, 3.7641542455517187`*^9, 3.7641558934937835`*^9, 3.7641569102723465`*^9, 3.764248099611288*^9, 3.764495478840441*^9, 3.764496442596489*^9, 3.7647679270115733`*^9, 3.764909591661334*^9, 3.765025200081681*^9},ExpressionUUID->"68149ef0-e8e5-4b65-954f-\ 150a9e819920"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J1", "12"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, 3.764135113057331*^9},ExpressionUUID->"5e7cf1d1-67be-44ba-937c-\ 7b3afe79fb9f"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640558131742644`*^9, 3.7640836169619846`*^9, 3.764130005543848*^9, 3.7641352398274775`*^9, 3.764135302147916*^9, 3.7641542455676756`*^9, 3.7641558935107045`*^9, 3.7641569102922993`*^9, 3.764248099620362*^9, 3.7644954788942976`*^9, 3.764496442641883*^9, 3.764767927024537*^9, 3.764909591671281*^9, 3.7650252001206417`*^9},ExpressionUUID->"90f0c990-ff82-4a6d-98ed-\ b4e206bdc577"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J1", "21"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, {3.7640531801895866`*^9, 3.7640531803301835`*^9}, { 3.764053380020773*^9, 3.764053386765437*^9}, {3.7641351141692624`*^9, 3.7641351160651484`*^9}},ExpressionUUID->"2d0119ea-6ccc-41de-82c0-\ b6d38c85356f"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{3.7640533870778627`*^9, 3.764055813952297*^9, 3.7640836169739523`*^9, 3.764130005572847*^9, 3.7641352400035334`*^9, 3.764135302180938*^9, 3.764154245577649*^9, 3.764155893524667*^9, 3.764156910311221*^9, 3.764248099620362*^9, 3.76449547893818*^9, 3.764496442679781*^9, 3.7647679270355077`*^9, 3.764909591682255*^9, 3.7650252001670933`*^9},ExpressionUUID->"b8e92bc8-abef-4646-92be-\ 878399f50228"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J1", "22"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, {3.764053396121353*^9, 3.764053406016117*^9}, 3.7641351185615053`*^9},ExpressionUUID->"b2dcef05-b24e-43d6-bc13-\ c5ef3759752f"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640534069221573`*^9, 3.7640558151686163`*^9, 3.7640836169859204`*^9, 3.764130005602844*^9, 3.7641352401565247`*^9, 3.7641353022130175`*^9, 3.764154245588619*^9, 3.7641558935376315`*^9, 3.764156910325184*^9, 3.764248099641135*^9, 3.7644954789661045`*^9, 3.7644964427226644`*^9, 3.764767927055171*^9, 3.7649095916912303`*^9, 3.7650252002140455`*^9},ExpressionUUID->"04f94ede-b040-4723-ba90-\ a2a44f930d77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J1", "11"], ",", SubscriptBox["J1", "12"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J1", "21"], ",", SubscriptBox["J1", "22"]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.764053883896584*^9, 3.7640539110881987`*^9}, 3.7641351251791224`*^9, {3.7641352696347075`*^9, 3.764135275920855*^9}},ExpressionUUID->"e0ba12c0-53da-4fe0-811e-\ a37fda99a0a7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640539214461937`*^9, 3.764055816892096*^9, 3.764083616996891*^9, 3.7641300056318426`*^9, 3.7641352403805113`*^9, {3.7641352769602995`*^9, 3.764135302402294*^9}, 3.764154245600587*^9, 3.764155893553589*^9, 3.7641569103411407`*^9, 3.76424809964624*^9, 3.764495479022953*^9, 3.7644964427705364`*^9, 3.7647679270661144`*^9, 3.764909591704194*^9, 3.765025200255004*^9},ExpressionUUID->"58879cb1-fa07-4fc5-8d51-\ 7eb9eebc3be6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", "J1", "]"}]], "Input", CellChangeTimes->{{3.764053926562662*^9, 3.7640539291101713`*^9}, 3.764135126785537*^9},ExpressionUUID->"b584874a-a956-4321-a4f7-\ 50350d193d40"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7640539296837945`*^9, 3.764055818802743*^9, 3.7640836170098567`*^9, 3.7641300057418365`*^9, 3.7641352405175033`*^9, 3.7641353105632925`*^9, 3.7641542456325026`*^9, 3.7641558935695467`*^9, 3.7641569103590927`*^9, 3.7642480996898994`*^9, 3.764495479172554*^9, 3.7644964428134236`*^9, 3.7647679271129875`*^9, 3.764909591737133*^9, 3.765025200596154*^9},ExpressionUUID->"872f1b46-eb37-4292-abfe-\ fba95e6b51fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J1I", "=", RowBox[{"Inverse", "[", "J1", "]"}]}]], "Input", CellChangeTimes->{{3.7640540665969844`*^9, 3.7640540742107306`*^9}, { 3.764135129521372*^9, 3.7641351307922945`*^9}},ExpressionUUID->"71abb7b0-5e0d-41aa-b4cb-\ 8d46f5055909"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640540747188454`*^9, 3.764055819652989*^9, 3.7640836170248165`*^9, 3.7641300057698355`*^9, 3.764135240663496*^9, 3.7641353120572033`*^9, 3.764154245647462*^9, 3.7641558935875196`*^9, 3.764156910376047*^9, 3.7642480997238626`*^9, 3.7644954793052006`*^9, 3.764496442865283*^9, 3.764767927127948*^9, 3.7649095917481036`*^9, 3.7650252009063373`*^9},ExpressionUUID->"3c75e832-5b8a-4af9-99d9-\ 89ecb0f6c6f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "J1I", "]"}]], "Input", CellChangeTimes->{{3.7640540864462175`*^9, 3.764054101747073*^9}, 3.7641351331531515`*^9},ExpressionUUID->"11e273d2-081d-422b-9451-\ fa9d39410a3b"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]} }, 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.7640540926784525`*^9, 3.764054102382371*^9}, 3.764055820533405*^9, 3.7640836170387793`*^9, 3.7641300058878274`*^9, 3.764135240822486*^9, 3.7641353143323145`*^9, 3.7641542456654143`*^9, 3.7641558936054506`*^9, 3.764156910396994*^9, 3.764248099741625*^9, 3.764495479364041*^9, 3.7644964429151497`*^9, 3.764767927140913*^9, 3.764909591763064*^9, 3.7650252012165184`*^9},ExpressionUUID->"3c31f00c-44df-4116-9868-\ 193eea4a448e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["B", "11"]], "Input", CellChangeTimes->{{3.764135135145047*^9, 3.7641351366564646`*^9}},ExpressionUUID->"a5d9b984-895b-4efe-8db4-\ adfb4a8be7a9"], Cell[BoxData[ SubscriptBox["B", "11"]], "Output", CellChangeTimes->{3.764055825477598*^9, 3.764083617050747*^9, 3.764130005920827*^9, 3.764135316299576*^9, 3.7641542457417183`*^9, 3.764155893619414*^9, 3.7641569104199734`*^9, 3.7642480997497087`*^9, 3.764495479415903*^9, 3.7644964429580364`*^9, 3.764767927151884*^9, 3.7649095917760024`*^9, 3.765025201264969*^9},ExpressionUUID->"8c6ab631-3a6e-48b4-b0df-\ 9de06f48be28"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "11"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764135230552132*^9, 3.7641352327765446`*^9}},ExpressionUUID->"e943f6f3-df2f-4f94-8081-\ f579523114f0"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "12"], "=", RowBox[{ SubscriptBox["B", "14"], "=", RowBox[{ SubscriptBox["B", "16"], "=", RowBox[{ SubscriptBox["B", "18"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055376479505*^9}},ExpressionUUID->"c7a1c5ea-c47b-4437-8d97-\ 8e8c3bcee3c1"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "13"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055354120462*^9}, {3.764135237073306*^9, 3.7641352506409073`*^9}},ExpressionUUID->"9f08300a-9f57-482c-ac72-\ 38448590d7fb"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "15"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, {3.7640553607972417`*^9, 3.7640553891314125`*^9}, {3.7641352376332717`*^9, 3.7641352528481755`*^9}},ExpressionUUID->"62bf1cb7-8267-4661-a894-\ 0e10829cdeb4"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "17"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640553954181614`*^9, 3.764055401321685*^9}, { 3.7641352386492105`*^9, 3.764135259296824*^9}},ExpressionUUID->"f04798bb-7700-4501-9376-\ 2397971c3d79"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "21"], "=", RowBox[{ SubscriptBox["B", "23"], "=", RowBox[{ SubscriptBox["B", "25"], "=", RowBox[{ SubscriptBox["B", "27"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055407003626*^9, 3.7640554171339436`*^9}, {3.7640554680533924`*^9, 3.7640554832691565`*^9}},ExpressionUUID->"c6b442e3-69b1-4633-a246-\ ce983c62a7bd"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "22"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055421348941*^9, 3.764055448710491*^9}, {3.76413524104298*^9, 3.7641352497843027`*^9}},ExpressionUUID->"2c6136b4-ab7e-45bc-bbc4-\ 2208a8aeb9dc"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "24"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640554898717813`*^9, 3.7640555076565886`*^9}, { 3.7641352445452766`*^9, 3.764135253736122*^9}},ExpressionUUID->"3d176a87-2b76-46d8-b4de-\ e99f4ea6c170"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "26"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055493600891*^9, 3.7640555042727685`*^9}, { 3.7641352468736677`*^9, 3.764135251904233*^9}},ExpressionUUID->"b57133a2-1a89-4e97-b3b3-\ b5cb286de0f2"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "28"], "=", RowBox[{ RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J1I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055496516323*^9, 3.764055500978362*^9}, { 3.7641352490486174`*^9, 3.7641352604087563`*^9}},ExpressionUUID->"098d6ecb-f6eb-4f53-8ea7-\ 4c0b2dadbc65"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "31"], "=", SubscriptBox["B", "22"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556001063485`*^9, 3.764055607542718*^9}},ExpressionUUID->"23291c49-2cb6-4061-9007-\ 1b1f94886e61"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "32"], "=", SubscriptBox["B", "11"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556131807594`*^9, 3.764055615067233*^9}},ExpressionUUID->"5d0e7a7e-fe84-477c-b048-\ ff8de8171afb"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "33"], "=", SubscriptBox["B", "24"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556185237885`*^9, 3.764055623846227*^9}},ExpressionUUID->"bab8abdb-a1d0-4dbf-8868-\ 7240c5843370"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "34"], "=", SubscriptBox["B", "13"]}], ";"}]], "Input", CellChangeTimes->{{3.76405562786751*^9, 3.7640556346021867`*^9}},ExpressionUUID->"ccb14fd5-c8cd-405c-a7df-\ 9ca13dc36422"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "35"], "=", SubscriptBox["B", "26"]}], ";"}]], "Input", CellChangeTimes->{{3.764055638997919*^9, 3.7640556413861*^9}},ExpressionUUID->"a22e6fd1-a91f-4483-af4f-dfa815a79f70"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "36"], "=", SubscriptBox["B", "15"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556452112074`*^9, 3.7640556474638987`*^9}},ExpressionUUID->"04e0b5d1-645a-4e86-a643-\ 6c52241fdee2"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "37"], "=", SubscriptBox["B", "28"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556504999266`*^9, 3.764055652446862*^9}},ExpressionUUID->"d2d61ffd-e09d-4e4a-83b9-\ 74bb0597c5f1"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "38"], "=", SubscriptBox["B", "17"]}], ";"}]], "Input", CellChangeTimes->{{3.764055657558312*^9, 3.764055665836204*^9}},ExpressionUUID->"9e82ae63-afdc-4fdf-80cc-\ 32bff28f78fb"], Cell[BoxData[ RowBox[{ RowBox[{"B1", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "11"], ",", SubscriptBox["B", "12"], ",", SubscriptBox["B", "13"], ",", SubscriptBox["B", "14"], ",", SubscriptBox["B", "15"], ",", SubscriptBox["B", "16"], ",", SubscriptBox["B", "17"], ",", SubscriptBox["B", "18"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "21"], ",", SubscriptBox["B", "22"], ",", SubscriptBox["B", "23"], ",", SubscriptBox["B", "24"], ",", SubscriptBox["B", "25"], ",", SubscriptBox["B", "26"], ",", SubscriptBox["B", "27"], ",", SubscriptBox["B", "28"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "31"], ",", SubscriptBox["B", "32"], ",", SubscriptBox["B", "33"], ",", SubscriptBox["B", "34"], ",", SubscriptBox["B", "35"], ",", SubscriptBox["B", "36"], ",", SubscriptBox["B", "37"], ",", SubscriptBox["B", "38"]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764053968318405*^9, 3.7640539793665886`*^9}, { 3.7640556743401675`*^9, 3.7640557437660074`*^9}, 3.764135141296691*^9},ExpressionUUID->"1f294c27-987f-4691-9a41-\ 4cb37870dbdd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "B1", "]"}]], "Input", CellChangeTimes->{{3.7640557454118495`*^9, 3.7640557487700086`*^9}, 3.7641351507926416`*^9},ExpressionUUID->"b2f73f4a-7fed-4edb-9feb-\ ded7fcdd0078"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]} }, 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.764055749573391*^9, 3.764055843542247*^9, 3.7640836172127686`*^9, 3.7641300064727917`*^9, 3.7641353477495766`*^9, 3.764154245919244*^9, 3.7641558938717384`*^9, 3.764156910651351*^9, 3.764248099922926*^9, 3.764495479869717*^9, 3.764496443678114*^9, 3.764767927334396*^9, 3.764909591946578*^9, 3.7650252022579527`*^9},ExpressionUUID->"5039a05a-78d2-4059-b8c3-\ ca0fddcba339"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Nu]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Em", "=", "30000000000"}], ";"}]}], "Input", CellChangeTimes->{{3.76405600567418*^9, 3.764056016640541*^9}},ExpressionUUID->"77f66e06-3e91-4f76-9a60-\ 10aff546aaf4"], Cell[BoxData[ RowBox[{ RowBox[{"DD", "=", RowBox[{ FractionBox["Em", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], "*", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640558926581006`*^9, 3.764056001131669*^9}},ExpressionUUID->"5d7da37a-aced-4c46-9c88-\ 28ead4beab04"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", "0.1"}], ";"}]], "Input", CellChangeTimes->{{3.764056028801811*^9, 3.7640560331810207`*^9}, 3.7650251693856134`*^9},ExpressionUUID->"aa372afd-0417-43ba-9aa8-\ f51ffaa605d2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K1", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"t", "*", RowBox[{ RowBox[{"Transpose", "[", "B1", "]"}], ".", "DD", ".", "B1"}], "*", RowBox[{"Det", "[", "J1", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Zeta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7640558755380754`*^9, 3.764055884872034*^9}, { 3.764056047778992*^9, 3.76405612274431*^9}, 3.764135157994223*^9, { 3.764135355369114*^9, 3.7641353585049243`*^9}},ExpressionUUID->"e78f91a2-76fe-489f-b20b-\ 930d0b3faf48"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640561458338795`*^9, 3.764084952928542*^9, 3.7641300376991816`*^9, 3.76413539191192*^9, 3.764154258432908*^9, 3.764155907761061*^9, 3.7641569236876364`*^9, 3.764248110418792*^9, 3.7644954992000017`*^9, 3.76449646796063*^9, 3.764767939000534*^9, 3.7649096035241237`*^9, 3.7650252505519996`*^9},ExpressionUUID->"20fa5fb8-365a-44c5-9c8e-\ 106ed2f56314"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K1", "]"}]], "Input", CellChangeTimes->{{3.7640561509580083`*^9, 3.764056155461671*^9}, 3.7641351587766867`*^9},ExpressionUUID->"1b50c2bc-ac66-4a3b-9156-\ b0d4b3eed1d5"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7"}, {"5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}]}, { RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8"}, { RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9", "4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}]}, { RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7", "1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}]}, { RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8"}, {"1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}]}, {"4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9"} }, 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.764056155936875*^9, 3.7641300379121685`*^9, 3.764135395053241*^9, 3.764154258519683*^9, 3.764155907843812*^9, 3.7641569237594447`*^9, 3.7642481104947605`*^9, 3.764495499306715*^9, 3.7644964681054335`*^9, 3.764767939083311*^9, 3.764909603617871*^9, 3.7650252508931503`*^9},ExpressionUUID->"ea70e0ce-b1b8-41d9-bfa0-\ 8e7e1c76ea3d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"K", "=", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5.934065934065933`*^9", "2.1428571428571427`*^9", RowBox[{"-", "3.626373626373626`*^9"}], RowBox[{"-", "1.6483516483516484`*^8"}], RowBox[{"-", "2.9670329670329666`*^9"}], RowBox[{"-", "2.1428571428571427`*^9"}], "6.593406593406594`*^8", "1.6483516483516484`*^8"}, {"2.1428571428571427`*^9", "5.934065934065933`*^9", "1.6483516483516484`*^8", "6.593406593406594`*^8", RowBox[{"-", "2.1428571428571427`*^9"}], RowBox[{"-", "2.9670329670329666`*^9"}], RowBox[{"-", "1.6483516483516484`*^8"}], RowBox[{"-", "3.626373626373626`*^9"}]}, { RowBox[{"-", "3.626373626373626`*^9"}], "1.6483516483516484`*^8", "5.934065934065933`*^9", RowBox[{"-", "2.1428571428571427`*^9"}], "6.593406593406594`*^8", RowBox[{"-", "1.6483516483516484`*^8"}], RowBox[{"-", "2.9670329670329666`*^9"}], "2.1428571428571427`*^9"}, { RowBox[{"-", "1.6483516483516484`*^8"}], "6.593406593406594`*^8", RowBox[{"-", "2.1428571428571427`*^9"}], "5.934065934065933`*^9", "1.6483516483516484`*^8", RowBox[{"-", "3.626373626373626`*^9"}], "2.1428571428571427`*^9", RowBox[{"-", "2.9670329670329666`*^9"}]}, { RowBox[{"-", "2.9670329670329666`*^9"}], RowBox[{"-", "2.1428571428571427`*^9"}], "6.593406593406594`*^8", "1.6483516483516484`*^8", "5.934065934065933`*^9", "2.1428571428571427`*^9", RowBox[{"-", "3.626373626373626`*^9"}], RowBox[{"-", "1.6483516483516484`*^8"}]}, { RowBox[{"-", "2.1428571428571427`*^9"}], RowBox[{"-", "2.9670329670329666`*^9"}], RowBox[{"-", "1.6483516483516484`*^8"}], RowBox[{"-", "3.626373626373626`*^9"}], "2.1428571428571427`*^9", "5.934065934065933`*^9", "1.6483516483516484`*^8", "6.593406593406594`*^8"}, {"6.593406593406594`*^8", RowBox[{"-", "1.6483516483516484`*^8"}], RowBox[{"-", "2.9670329670329666`*^9"}], "2.1428571428571427`*^9", RowBox[{"-", "3.626373626373626`*^9"}], "1.6483516483516484`*^8", "5.934065934065933`*^9", RowBox[{"-", "2.1428571428571427`*^9"}]}, {"1.6483516483516484`*^8", RowBox[{"-", "3.626373626373626`*^9"}], "2.1428571428571427`*^9", RowBox[{"-", "2.9670329670329666`*^9"}], RowBox[{"-", "1.6483516483516484`*^8"}], "6.593406593406594`*^8", RowBox[{"-", "2.1428571428571427`*^9"}], "5.934065934065933`*^9"} }, 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$]]]}], ";"}]], "Input", CellChangeTimes->{{3.7640849609073935`*^9, 3.764084963105278*^9}, { 3.7641351604655857`*^9, 3.7641351620479984`*^9}},ExpressionUUID->"31c88b27-016a-4a2d-87c1-\ 94c639aedea7"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}},ExpressionUUID->"a7c68250-0c1b-482b-aef9-\ 91c2a7befc8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K1K1", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J1", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B1", "]"}], ".", "DD", ".", "B1"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7641345508512383`*^9, {3.764135170146033*^9, 3.7641351849761715`*^9}},ExpressionUUID->"16dcd7a6-9a1a-4e99-b958-\ 4a8c352e476b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.7641345601402707`*^9, 3.7641354039183373`*^9, 3.764154258578518*^9, 3.7641559078886905`*^9, 3.7641569237993383`*^9, 3.764248110552653*^9, 3.764495499416452*^9, 3.76449646820716*^9, 3.764767939137171*^9, 3.7649096036876726`*^9, 3.765025251005036*^9},ExpressionUUID->"d92a163b-c5a5-452b-9919-\ 32f4a9a912cb"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.764085053737568*^9},ExpressionUUID->"6fd7b871-6fd3-493f-a3b7-\ 94bd7593b291"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K1K2", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J1", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B1", "]"}], ".", "DD", ".", "B1"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085052193915*^9, {3.7641345650639915`*^9, 3.7641345734159946`*^9}, {3.7641351713609586`*^9, 3.764135189527401*^9}},ExpressionUUID->"ab88f43f-ba85-455e-a104-\ 10c2fae994fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7", ",", "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, { 3.7640850270206704`*^9, 3.764085055865826*^9}, 3.7641345746969166`*^9, 3.7641354054403024`*^9, 3.7641542586094356`*^9, 3.764155907927616*^9, 3.764156923829258*^9, 3.7642481105798283`*^9, 3.764495499466287*^9, 3.7644964682784357`*^9, 3.7647679391621037`*^9, 3.7649096037235594`*^9, 3.7650252510924463`*^9},ExpressionUUID->"a5822133-39cd-44e3-bf8a-\ 4ad280a06bec"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, { 3.7640850595209875`*^9, 3.764085060209149*^9}},ExpressionUUID->"35c873a2-3b09-4a6e-a467-\ 38909d357423"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K1K3", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J1", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B1", "]"}], ".", "DD", ".", "B1"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085061825568*^9, {3.7641345777047358`*^9, 3.764134581456509*^9}, {3.7641351727048783`*^9, 3.7641351911523037`*^9}},ExpressionUUID->"5427f81b-062e-4c7e-b22f-\ e75141d19b5c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8", ",", "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7", ",", "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7", ",", "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8", ",", "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085063233661*^9, 3.7641345829089265`*^9, 3.764135406965717*^9, 3.7641542586393557`*^9, 3.7641559079625063`*^9, 3.76415692385818*^9, 3.7642481106057806`*^9, 3.764495499514161*^9, 3.7644964683444805`*^9, 3.7647679391840453`*^9, 3.764909603779441*^9, 3.765025251178358*^9},ExpressionUUID->"b57b8b9d-7848-4596-a8a8-\ 99b44084e2f3"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.7640850696895638`*^9},ExpressionUUID->"f028c271-fc4b-4560-8774-\ 5961932d2d06"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K1K4", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J1", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B1", "]"}], ".", "DD", ".", "B1"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7640850678735356`*^9, {3.7641345876081514`*^9, 3.764134589249052*^9}, {3.7641351751767273`*^9, 3.7641351922967415`*^9}},ExpressionUUID->"b8141489-9f04-4717-ac86-\ c4735234365d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8", ",", "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7", ",", "1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085072923015*^9, 3.7641345917014136`*^9, 3.764135408857602*^9, 3.7641542586662836`*^9, 3.7641559080044203`*^9, 3.764156923889098*^9, 3.76424811063174*^9, 3.7644954995779896`*^9, 3.7644964684163795`*^9, 3.764767939212968*^9, 3.7649096038452654`*^9, 3.7650252516239014`*^9},ExpressionUUID->"b71c40e7-fc86-4612-aaff-\ 5bdcc010b6b9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K16", "=", RowBox[{"K1K1", "+", "K1K3", "+", "K1K4", "+", "K1K2"}]}]], "Input", CellChangeTimes->{{3.7640850745394583`*^9, 3.764085112856887*^9}, 3.76413459748857*^9, {3.7641351961930137`*^9, 3.7641352020476727`*^9}},ExpressionUUID->"8ec89353-922b-4e71-8613-\ 5ad53f898c1e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7640850911478534`*^9, 3.7640851138011613`*^9}, 3.7641345987985144`*^9, 3.764135410249518*^9, 3.7641542586842356`*^9, 3.7641559080323343`*^9, 3.764156923908047*^9, 3.7642481106576834`*^9, 3.7644954996148925`*^9, 3.76449646846212*^9, 3.764767939228925*^9, 3.7649096038771553`*^9, 3.765025252114899*^9},ExpressionUUID->"a4cea0c0-4f76-46a9-babd-\ ec68bd180429"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K16", "]"}]], "Input", CellChangeTimes->{{3.764134610940317*^9, 3.7641346154885473`*^9}, 3.76413520419305*^9},ExpressionUUID->"814ef431-0026-40cd-974d-\ ed4eb2bf1222"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}]}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}]}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "1.483516483529812`*^9", "5.357142857142858`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}]}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "5.357142857142858`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}]}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9"} }, 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.7641346160665135`*^9, 3.7641354111554627`*^9, 3.7641542587041826`*^9, 3.764155908063261*^9, 3.764156923925007*^9, 3.7642481106744843`*^9, 3.7644954996607666`*^9, 3.7644964685124764`*^9, 3.76476793924588*^9, 3.764909603912086*^9, 3.7650252521723404`*^9},ExpressionUUID->"98cb9ce5-784f-4555-8c8b-\ b269347ec77c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K17", "=", RowBox[{"K1", "-", "K16"}]}]], "Input", CellChangeTimes->{{3.7641346208447485`*^9, 3.7641346243605356`*^9}, { 3.764135415793183*^9, 3.7641354282324286`*^9}},ExpressionUUID->"94b2a860-7d56-4cdc-a655-\ c975d748db68"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.0133284330368042`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0133284330368042`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", "2.9802322387695312`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328194618225098`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", "0.0133284330368042`", ",", "5.960464477539063`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.0133284330368042`", ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.013328462839126587`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", "1.1920928955078125`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "1.1920928955078125`*^-7", ",", RowBox[{"-", "0.01332855224609375`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.764134624829507*^9, {3.7641354135353203`*^9, 3.764135429255368*^9}, 3.7641542587271214`*^9, 3.7641559080891695`*^9, 3.764156923942397*^9, 3.764248110683593*^9, 3.764495499695673*^9, 3.764496468552375*^9, 3.7647679392628345`*^9, 3.7649096039489555`*^9, 3.765025252235276*^9},ExpressionUUID->"3dd1db24-e328-4771-8a32-\ 46365d8a3656"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K17", "]"}]], "Input", CellChangeTimes->{{3.7641354330836425`*^9, 3.7641354370249147`*^9}},ExpressionUUID->"5fb3bc83-d0f7-4c36-a54d-\ 80f6d60e584f"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328313827514648`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}]}, { RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.0133284330368042`"}, {"0.0133284330368042`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], "5.960464477539063`*^-8", "0.013328462839126587`", "2.9802322387695312`*^-8", RowBox[{"-", "0.013328313827514648`"}], RowBox[{"-", "5.960464477539063`*^-8"}]}, {"4.470348358154297`*^-8", "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.21540641784668`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328194618225098`"}]}, { RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], RowBox[{"-", "1.1920928955078125`*^-7"}], "0.0133284330368042`", "5.960464477539063`*^-8"}, {"5.960464477539063`*^-8", RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.0133284330368042`", RowBox[{"-", "1.1920928955078125`*^-7"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`"}, {"0.013328462839126587`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328194618225098`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.21540641784668`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], "1.1920928955078125`*^-7"}, { RowBox[{"-", "4.470348358154297`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.013328462839126587`", "1.1920928955078125`*^-7", RowBox[{"-", "0.01332855224609375`"}]} }, 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.764135437577882*^9, 3.7641542587450733`*^9, 3.7641559081310754`*^9, 3.7641569239593477`*^9, 3.764248110705365*^9, 3.764495499737561*^9, 3.764496468590269*^9, 3.764767939287776*^9, 3.764909603986878*^9, 3.7650252522877226`*^9},ExpressionUUID->"e2cecae0-d9c8-42eb-ab2d-\ db39699cd812"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"L1", "=", RowBox[{"(", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156022422739*^9, 3.7641561085859804`*^9}, 3.7641561740051484`*^9, {3.7644999232039013`*^9, 3.764499931954013*^9}, { 3.7647679041740837`*^9, 3.7647679224453783`*^9}},ExpressionUUID->"46aab75a-bf4c-4b44-b67f-\ d41640b3ca5f"], Cell[BoxData[ RowBox[{ RowBox[{"L1T", "=", RowBox[{"Transpose", "[", "L1", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156181627759*^9, 3.764156191753677*^9}},ExpressionUUID->"90e33afa-d707-4e8f-a926-\ f5a19f7c3908"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KT1", "=", RowBox[{"L1T", ".", "K16", ".", "L1"}]}]], "Input", CellChangeTimes->{{3.7641562038600893`*^9, 3.7641562733942194`*^9}},ExpressionUUID->"b1b7417d-d504-4a18-9214-\ d507d921009f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", "0.`", ",", "0.`", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.76415627521754*^9, 3.7641569240082164`*^9, 3.764248110735421*^9, 3.7644954998233314`*^9, 3.7644964687089524`*^9, 3.764499934628502*^9, 3.764767939319682*^9, 3.7649096040577035`*^9, 3.765025252448558*^9},ExpressionUUID->"37a32ca9-07f7-4071-9a0c-\ 1e6ebab06686"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "KT1", "]"}]], "Input", CellChangeTimes->{{3.764156278194994*^9, 3.7641562829779353`*^9}},ExpressionUUID->"82af216f-fcfa-4ef0-9db6-\ ba488a3fdb35"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^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.`", "0.`", "0.`", "1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}], RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "1.483516483529812`*^9", "5.357142857142858`*^8"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.357142857142858`*^8", "1.4835164835298119`*^9"} }, 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.7641562836606216`*^9, 3.764156924035145*^9, 3.7642481107873096`*^9, 3.764495499926057*^9, 3.7644964687610025`*^9, 3.764499936409306*^9, 3.764767939337181*^9, 3.764909604097559*^9, 3.7650252529465475`*^9},ExpressionUUID->"e57f97c4-fc33-4ee8-a21a-\ e18e24fc335b"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"F", "=", "1000"}], ";"}]], "Input", CellChangeTimes->{{3.7642483699187374`*^9, 3.764248373325842*^9}, { 3.7645001593038745`*^9, 3.7645001611938915`*^9}, {3.764503421215786*^9, 3.764503430000054*^9}},ExpressionUUID->"5d085dfe-bc80-4cdb-a944-\ e9f61314f577"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F1", "=", RowBox[{"(", GridBox[{ {"0"}, {"0"}, {"0"}, {"0"}, {"F"}, {"0"}, {"0"}, {"0"} }], ")"}]}]], "Input", CellChangeTimes->{{3.7642483359749823`*^9, 3.7642483667328515`*^9}, 3.7644964159329295`*^9},ExpressionUUID->"e1614c8c-c0dc-451b-846d-\ ab595f0adcf4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764500171296221*^9, 3.76476793936108*^9, 3.7649096041364546`*^9, 3.765025253352132*^9},ExpressionUUID->"1c7129cb-90fc-43d0-a1f7-\ 978d87a52efd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F11", "=", RowBox[{"L1T", ".", "F1"}]}]], "Input", CellChangeTimes->{{3.764248378870702*^9, 3.76424840785464*^9}},ExpressionUUID->"40d56327-fb22-4d03-87fc-\ 53a03b21099e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7642484094378605`*^9, 3.764495499990885*^9, 3.7644964688593793`*^9, 3.7644999434745445`*^9, {3.764500151913794*^9, 3.7645001754515233`*^9}, 3.7647679393760376`*^9, 3.7649096041753716`*^9, 3.765025253420062*^9},ExpressionUUID->"90ac8904-7d9e-43f2-a074-\ 5b67cad5dd49"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "X1", ",", "X2", ",", "X3", ",", "X4", ",", "Y1", ",", "Y2", ",", "Y3", ",", "Y4", ",", "\[Zeta]", ",", "\[Eta]"}], "]"}]], "Input", CellChangeTimes->{{3.764135058995936*^9, 3.7641350952078876`*^9}, { 3.7641358424890327`*^9, 3.7641358496975985`*^9}},ExpressionUUID->"e858621f-0481-4a43-8880-\ 6f4dae4e9aa1"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Secondo elemento \ \>", "Section", CellFrame->{{0, 0}, {0.5, 0.5}}, CellFrameColor->RGBColor[0, 0, 1], CellChangeTimes->{{3.759042511629591*^9, 3.7590426571327305`*^9}, { 3.7590428298532133`*^9, 3.7590429009498835`*^9}, {3.7590429363527265`*^9, 3.75904295943932*^9}, {3.7590429949961543`*^9, 3.7590430018917346`*^9}, { 3.764135522864072*^9, 3.764135552080039*^9}}, TextAlignment->Left,ExpressionUUID->"87326713-8d73-4b92-80fa-218705d2b314"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640519612086596`*^9, 3.764051965505329*^9}},ExpressionUUID->"69cf7385-b7c4-4bdb-872e-\ 04e7c576db9c"], Cell[BoxData["\<\"Funzioni di forma\"\>"], "Output", CellChangeTimes->{3.7640519705595274`*^9, 3.7642481108090897`*^9, 3.7644955000277853`*^9, 3.764496860568675*^9, 3.764767974406769*^9, 3.764909604230239*^9, 3.765025253503977*^9},ExpressionUUID->"e7d96f0b-c1e2-44cf-aff4-\ e67b8d0e0dd2"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["N", "1"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "2"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "3"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "4"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640519721450853`*^9, 3.764052090917095*^9}, { 3.7640525225008235`*^9, 3.7640525268392587`*^9}},ExpressionUUID->"e7586764-4490-4490-a582-\ 56dfcc2a8afd"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640521238561935`*^9, 3.7640521264847145`*^9}},ExpressionUUID->"a518d947-e45a-4fd3-a5ac-\ 6ee2bbc911b0"], Cell[BoxData["\<\"Calcolo Jacobiano\"\>"], "Output", CellChangeTimes->{3.7640521272480097`*^9, 3.7640836169330626`*^9, 3.7641300054618535`*^9, 3.764135239389906*^9, 3.764135301337264*^9, 3.764248110813218*^9, 3.7644955000716677`*^9, 3.76449686075613*^9, 3.764767974497525*^9, 3.764909604263116*^9, 3.765025253587392*^9},ExpressionUUID->"56bd1334-d801-49d2-9b0a-\ 1228dec9d5d5"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"X1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X3", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X4", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y1", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y2", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y4", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.764053052326024*^9, 3.7640530937903967`*^9}, { 3.764135757664504*^9, 3.764135764040118*^9}, {3.7647679317570615`*^9, 3.7647679343406887`*^9}},ExpressionUUID->"48a31393-3ce6-460c-a13a-\ f5b6acbe3340"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J2", "11"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, 3.7641351116814137`*^9, 3.7641359818177958`*^9},ExpressionUUID->"2d67da97-0373-4ad3-9d2c-\ b115047d7f1f"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{ 3.7640525455766735`*^9, 3.7640531291210055`*^9, 3.764053174317822*^9, 3.764055812364915*^9, 3.764083616951014*^9, 3.7641300055178504`*^9, 3.7641352396234264`*^9, 3.7641353019536524`*^9, {3.7641358359544287`*^9, 3.76413585723814*^9}, 3.764156939167771*^9, 3.7642481108391547`*^9, 3.764495500113556*^9, 3.764496860818617*^9, 3.764767974522459*^9, 3.764909604313017*^9, 3.765025253702773*^9},ExpressionUUID->"aea54ea4-820f-4143-bc0f-\ 927c9588f1f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J2", "12"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, 3.764135113057331*^9, 3.7641359837611866`*^9},ExpressionUUID->"ab00310f-0be8-4775-b053-\ 641cd81c3867"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640558131742644`*^9, 3.7640836169619846`*^9, 3.764130005543848*^9, 3.7641352398274775`*^9, 3.764135302147916*^9, 3.7641358587520475`*^9, 3.764156940067664*^9, 3.7642481108391547`*^9, 3.764495500137491*^9, 3.76449686084986*^9, 3.764767974536422*^9, 3.7649096043399425`*^9, 3.765025254101865*^9},ExpressionUUID->"f4839996-7d56-4c0d-93dd-\ 72bcdc60bfbe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J2", "21"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, {3.7640531801895866`*^9, 3.7640531803301835`*^9}, {3.764053380020773*^9, 3.764053386765437*^9}, { 3.7641351141692624`*^9, 3.7641351160651484`*^9}, 3.764135986713011*^9},ExpressionUUID->"cc7c158a-5347-4eaf-b460-\ 02d3ffd92c5f"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{3.7640533870778627`*^9, 3.764055813952297*^9, 3.7640836169739523`*^9, 3.764130005572847*^9, 3.7641352400035334`*^9, 3.764135302180938*^9, 3.7641358605739384`*^9, 3.764156940670054*^9, 3.7642481108650026`*^9, 3.7644955001604304`*^9, 3.764496860896724*^9, 3.764767974557366*^9, 3.7649096043748446`*^9, 3.7650252545219345`*^9},ExpressionUUID->"6891ceee-d457-428d-82fe-\ 68af1d41605a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J2", "22"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, {3.764053396121353*^9, 3.764053406016117*^9}, 3.7641351185615053`*^9, 3.7641359900573153`*^9},ExpressionUUID->"f72791f8-d1d4-4381-ac2a-\ b07364672147"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640534069221573`*^9, 3.7640558151686163`*^9, 3.7640836169859204`*^9, 3.764130005602844*^9, 3.7641352401565247`*^9, 3.7641353022130175`*^9, 3.7641358618298635`*^9, 3.764156941263424*^9, 3.764248110865157*^9, 3.7644955001843667`*^9, 3.7644968609435897`*^9, 3.764767974573323*^9, 3.764909604400256*^9, 3.7650252548580904`*^9},ExpressionUUID->"f7fade05-ed59-490e-a51e-\ c4fe6de1c13d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J2", "11"], ",", SubscriptBox["J2", "12"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J2", "21"], ",", SubscriptBox["J2", "22"]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.764053883896584*^9, 3.7640539110881987`*^9}, 3.7641351251791224`*^9, {3.7641352696347075`*^9, 3.764135275920855*^9}, { 3.764135991617221*^9, 3.7641360232488327`*^9}},ExpressionUUID->"a53892cd-bde4-4f36-bd2f-\ d9baeeff8d9d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640539214461937`*^9, 3.764055816892096*^9, 3.764083616996891*^9, 3.7641300056318426`*^9, 3.7641352403805113`*^9, {3.7641352769602995`*^9, 3.764135302402294*^9}, 3.764135862798804*^9, 3.7641569439708886`*^9, 3.764248110888007*^9, 3.764495500207306*^9, 3.764496860986579*^9, 3.764767974595264*^9, 3.7649096044321756`*^9, 3.765025254908538*^9},ExpressionUUID->"b07e8aa8-aeda-4a98-9095-\ e3c174877b7c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", "J2", "]"}]], "Input", CellChangeTimes->{{3.764053926562662*^9, 3.7640539291101713`*^9}, 3.764135126785537*^9, 3.764136025392702*^9},ExpressionUUID->"80ce5428-6998-4391-aff0-\ 134e103ffcb7"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7640539296837945`*^9, 3.764055818802743*^9, 3.7640836170098567`*^9, 3.7641300057418365`*^9, 3.7641352405175033`*^9, 3.7641353105632925`*^9, 3.764135864460702*^9, 3.7641569503299313`*^9, 3.7642481108911533`*^9, 3.764495500254181*^9, 3.7644968610397825`*^9, 3.7647679746102247`*^9, 3.7649096044600773`*^9, 3.765025254962484*^9},ExpressionUUID->"0ca8bfe6-d115-48ea-b040-\ 7fc872e92701"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J2I", "=", RowBox[{"Inverse", "[", "J2", "]"}]}]], "Input", CellChangeTimes->{{3.7640540665969844`*^9, 3.7640540742107306`*^9}, { 3.764135129521372*^9, 3.7641351307922945`*^9}, {3.764136026863613*^9, 3.7641360291599865`*^9}},ExpressionUUID->"36f0dc8e-5619-440b-8924-\ e25f1da09a48"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640540747188454`*^9, 3.764055819652989*^9, 3.7640836170248165`*^9, 3.7641300057698355`*^9, 3.764135240663496*^9, 3.7641353120572033`*^9, 3.7641358654536448`*^9, 3.7641569503907676`*^9, 3.764248110911006*^9, 3.7644955002791133`*^9, 3.7644968610781612`*^9, 3.764767974630171*^9, 3.7649096044950037`*^9, 3.7650252550089355`*^9},ExpressionUUID->"75c9e25a-cac4-4be5-9d06-\ 5191affcb862"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "J2I", "]"}]], "Input", CellChangeTimes->{{3.7640540864462175`*^9, 3.764054101747073*^9}, 3.7641351331531515`*^9, 3.7641360304339075`*^9},ExpressionUUID->"54fc109a-566c-4ee4-8412-\ 3f175ca35cea"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]} }, 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.7640540926784525`*^9, 3.764054102382371*^9}, 3.764055820533405*^9, 3.7640836170387793`*^9, 3.7641300058878274`*^9, 3.764135240822486*^9, 3.7641353143323145`*^9, 3.7641358665905733`*^9, 3.7641569504077234`*^9, 3.7642481109171424`*^9, 3.7644955003070393`*^9, 3.7644968611250267`*^9, 3.7647679746441345`*^9, 3.7649096045308743`*^9, 3.7650252553111267`*^9},ExpressionUUID->"d1ba1d18-85f8-4278-bc66-\ ebb18c8b9aaa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["B", "11"]], "Input", CellChangeTimes->{{3.764135135145047*^9, 3.7641351366564646`*^9}},ExpressionUUID->"85f48722-eb99-43e8-a883-\ e3a34aa52910"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.764055825477598*^9, 3.764083617050747*^9, 3.764130005920827*^9, 3.764135316299576*^9, {3.764135872122239*^9, 3.7641358774229174`*^9}, 3.764156950426673*^9, 3.7642481109359536`*^9, 3.764495500336987*^9, 3.7644968611718893`*^9, 3.764767974663083*^9, 3.7649096045787787`*^9, 3.765025255617812*^9},ExpressionUUID->"d6f55584-293c-4516-b7f3-\ 4dd2c70262ff"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "11"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764135230552132*^9, 3.7641352327765446`*^9}, {3.7641360371135025`*^9, 3.7641360399123335`*^9}},ExpressionUUID->"cdc72e4b-c1d8-4729-8f4b-\ ece0c7928739"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "12"], "=", RowBox[{ SubscriptBox["B", "14"], "=", RowBox[{ SubscriptBox["B", "16"], "=", RowBox[{ SubscriptBox["B", "18"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055376479505*^9}},ExpressionUUID->"67b74dc8-79f6-498e-8594-\ 5a93d5e5bab5"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "13"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055354120462*^9}, {3.764135237073306*^9, 3.7641352506409073`*^9}, {3.7641360419452114`*^9, 3.764136047047921*^9}},ExpressionUUID->"da6fcfc4-37c4-4593-8953-\ cc757654d663"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "15"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, {3.7640553607972417`*^9, 3.7640553891314125`*^9}, {3.7641352376332717`*^9, 3.7641352528481755`*^9}, {3.7641360432076435`*^9, 3.764136048023861*^9}},ExpressionUUID->"58371ebf-6fc1-4eea-bcbc-\ 5202ad067f1e"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "17"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640553954181614`*^9, 3.764055401321685*^9}, { 3.7641352386492105`*^9, 3.764135259296824*^9}, {3.7641360453765125`*^9, 3.7641360492237883`*^9}},ExpressionUUID->"03b8be16-bcb4-463c-975c-\ 3d8ac5376f13"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "21"], "=", RowBox[{ SubscriptBox["B", "23"], "=", RowBox[{ SubscriptBox["B", "25"], "=", RowBox[{ SubscriptBox["B", "27"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055407003626*^9, 3.7640554171339436`*^9}, {3.7640554680533924`*^9, 3.7640554832691565`*^9}},ExpressionUUID->"f5e4b05d-65f2-4076-8904-\ 0a2a5b48fb3c"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "22"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055421348941*^9, 3.764055448710491*^9}, {3.76413524104298*^9, 3.7641352497843027`*^9}, {3.764136050504712*^9, 3.764136057671788*^9}},ExpressionUUID->"55889c8a-850b-40cb-acee-\ 14e06841688f"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "24"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640554898717813`*^9, 3.7640555076565886`*^9}, { 3.7641352445452766`*^9, 3.764135253736122*^9}, {3.76413605200862*^9, 3.7641360586327295`*^9}},ExpressionUUID->"ad798ad3-8361-4b17-baa5-\ a2c09f149855"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "26"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055493600891*^9, 3.7640555042727685`*^9}, { 3.7641352468736677`*^9, 3.764135251904233*^9}, {3.7641360536090336`*^9, 3.7641360595926714`*^9}},ExpressionUUID->"14cb460c-fe3c-42e3-a479-\ 9a8cbbb91a5e"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "28"], "=", RowBox[{ RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J2I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055496516323*^9, 3.764055500978362*^9}, { 3.7641352490486174`*^9, 3.7641352604087563`*^9}, {3.764136055495919*^9, 3.764136060808598*^9}},ExpressionUUID->"f83c3ae3-600c-468a-8ff4-\ a0d6725041ed"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "31"], "=", SubscriptBox["B", "22"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556001063485`*^9, 3.764055607542718*^9}},ExpressionUUID->"d7044ad8-529a-49a7-b60e-\ 688fa6030431"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "32"], "=", SubscriptBox["B", "11"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556131807594`*^9, 3.764055615067233*^9}},ExpressionUUID->"2c866efc-0942-4a79-b95b-\ f937a75c25b3"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "33"], "=", SubscriptBox["B", "24"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556185237885`*^9, 3.764055623846227*^9}},ExpressionUUID->"259a5509-2407-4deb-a605-\ aac846b3d8f8"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "34"], "=", SubscriptBox["B", "13"]}], ";"}]], "Input", CellChangeTimes->{{3.76405562786751*^9, 3.7640556346021867`*^9}},ExpressionUUID->"36489ce5-8868-436e-b69a-\ a4f6466ab2d6"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "35"], "=", SubscriptBox["B", "26"]}], ";"}]], "Input", CellChangeTimes->{{3.764055638997919*^9, 3.7640556413861*^9}},ExpressionUUID->"3515b5aa-35aa-459f-8309-a9368fef6fbe"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "36"], "=", SubscriptBox["B", "15"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556452112074`*^9, 3.7640556474638987`*^9}},ExpressionUUID->"337b6b85-fd59-48dd-b603-\ a2ac3d1b4aba"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "37"], "=", SubscriptBox["B", "28"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556504999266`*^9, 3.764055652446862*^9}},ExpressionUUID->"4338be33-5d30-4cc6-b959-\ 81fe18ef0c36"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "38"], "=", SubscriptBox["B", "17"]}], ";"}]], "Input", CellChangeTimes->{{3.764055657558312*^9, 3.764055665836204*^9}},ExpressionUUID->"45740664-471d-4ca0-9cc4-\ 100f4205e6c7"], Cell[BoxData[ RowBox[{ RowBox[{"B2", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "11"], ",", SubscriptBox["B", "12"], ",", SubscriptBox["B", "13"], ",", SubscriptBox["B", "14"], ",", SubscriptBox["B", "15"], ",", SubscriptBox["B", "16"], ",", SubscriptBox["B", "17"], ",", SubscriptBox["B", "18"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "21"], ",", SubscriptBox["B", "22"], ",", SubscriptBox["B", "23"], ",", SubscriptBox["B", "24"], ",", SubscriptBox["B", "25"], ",", SubscriptBox["B", "26"], ",", SubscriptBox["B", "27"], ",", SubscriptBox["B", "28"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "31"], ",", SubscriptBox["B", "32"], ",", SubscriptBox["B", "33"], ",", SubscriptBox["B", "34"], ",", SubscriptBox["B", "35"], ",", SubscriptBox["B", "36"], ",", SubscriptBox["B", "37"], ",", SubscriptBox["B", "38"]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764053968318405*^9, 3.7640539793665886`*^9}, { 3.7640556743401675`*^9, 3.7640557437660074`*^9}, 3.764135141296691*^9, 3.7641360748729997`*^9},ExpressionUUID->"91b9f314-634d-435e-a75b-\ b434ff136858"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "B2", "]"}]], "Input", CellChangeTimes->{{3.7640557454118495`*^9, 3.7640557487700086`*^9}, 3.7641351507926416`*^9, 3.764136075888939*^9},ExpressionUUID->"a7407ebd-8152-4b4d-819d-\ 4fe404b0736e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}]}]} }, 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.764055749573391*^9, 3.764055843542247*^9, 3.7640836172127686`*^9, 3.7641300064727917`*^9, 3.7641353477495766`*^9, 3.764135886303477*^9, 3.7641569506431212`*^9, 3.7642481110988345`*^9, 3.764495500762849*^9, 3.7644968616315117`*^9, 3.764767974841606*^9, 3.764909604797162*^9, 3.7650252562876263`*^9},ExpressionUUID->"88b8b62b-81bf-47eb-ba73-\ 3f7c1edfb0ef"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Nu]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Em", "=", "30000000000"}], ";"}]}], "Input", CellChangeTimes->{{3.76405600567418*^9, 3.764056016640541*^9}},ExpressionUUID->"378e3b69-1382-4d69-9408-\ 04e3db37a435"], Cell[BoxData[ RowBox[{ RowBox[{"DD", "=", RowBox[{ FractionBox["Em", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], "*", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640558926581006`*^9, 3.764056001131669*^9}},ExpressionUUID->"1e0402ac-404a-41cb-b51a-\ 286513202b00"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", "0.1"}], ";"}]], "Input", CellChangeTimes->{{3.764056028801811*^9, 3.7640560331810207`*^9}, 3.765025175070792*^9},ExpressionUUID->"e37e6292-f7f9-43d4-b0eb-\ 1a38781806b8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"t", "*", RowBox[{ RowBox[{"Transpose", "[", "B2", "]"}], ".", "DD", ".", "B2"}], "*", RowBox[{"Det", "[", "J2", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Zeta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7640558755380754`*^9, 3.764055884872034*^9}, { 3.764056047778992*^9, 3.76405612274431*^9}, 3.764135157994223*^9, { 3.764135355369114*^9, 3.7641353585049243`*^9}, {3.7641361132727985`*^9, 3.7641361218237896`*^9}},ExpressionUUID->"d9142d4f-5b1f-4b01-919c-\ 94c92b0a96ec"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640561458338795`*^9, 3.764084952928542*^9, 3.7641300376991816`*^9, 3.76413539191192*^9, 3.7641359505196753`*^9, 3.764156971509265*^9, 3.7642481322107844`*^9, 3.764495536790481*^9, 3.7644968963570623`*^9, 3.7647679963623323`*^9, 3.7649096264088383`*^9, 3.765025354533023*^9},ExpressionUUID->"5345ac50-d261-4f41-ab71-\ a8647952d718"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K2", "]"}]], "Input", CellChangeTimes->{{3.7640561509580083`*^9, 3.764056155461671*^9}, 3.7641351587766867`*^9, 3.7641361238806653`*^9},ExpressionUUID->"e22580cd-bf67-4c92-b8d5-\ 712ad31f9006"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7"}, {"5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}]}, { RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8"}, { RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9", "4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}]}, { RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7", "1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}]}, { RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8"}, {"1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}]}, {"4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9"} }, 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.764056155936875*^9, 3.7641300379121685`*^9, 3.764135395053241*^9, 3.764135954108967*^9, 3.7641569715691032`*^9, 3.764248132269627*^9, 3.764495536870268*^9, 3.7644968964351635`*^9, 3.7647679964171576`*^9, 3.764909626455745*^9, 3.765025354715836*^9},ExpressionUUID->"7747f91a-a22d-4f13-8b3a-\ 6614e445cf0e"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}},ExpressionUUID->"16a774de-9c82-4cd5-8ba5-\ 2194bc8b4da3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2K1", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J2", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B2", "]"}], ".", "DD", ".", "B2"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7641345508512383`*^9, {3.764135170146033*^9, 3.7641351849761715`*^9}, {3.7641361285843973`*^9, 3.764136133959583*^9}},ExpressionUUID->"e1722b3a-8c38-41b4-8aa0-\ d19787ce2bff"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.7641345601402707`*^9, 3.7641354039183373`*^9, 3.764135957591756*^9, 3.764156971638919*^9, 3.7642481322945614`*^9, 3.76449553692813*^9, 3.7644968964976535`*^9, 3.7647679964481106`*^9, 3.764909626489622*^9, 3.765025354779272*^9},ExpressionUUID->"9e959922-dbd8-4ddb-87ff-\ 1ab7201079b1"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.764085053737568*^9},ExpressionUUID->"61ddb29c-d5a2-4170-a369-\ a51b4fedef9f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2K2", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J2", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B2", "]"}], ".", "DD", ".", "B2"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085052193915*^9, {3.7641345650639915`*^9, 3.7641345734159946`*^9}, {3.7641351713609586`*^9, 3.764135189527401*^9}, { 3.764136137728354*^9, 3.7641361434395313`*^9}},ExpressionUUID->"54bde432-c3e7-47d6-8a5e-\ 228f0a8a2e55"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7", ",", "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, { 3.7640850270206704`*^9, 3.764085055865826*^9}, 3.7641345746969166`*^9, 3.7641354054403024`*^9, 3.7641359600541153`*^9, 3.764156971669804*^9, 3.7642481323155046`*^9, 3.7644955369869537`*^9, 3.764496896575756*^9, 3.764767996470052*^9, 3.764909626521538*^9, 3.7650253548581896`*^9},ExpressionUUID->"feeae661-5fda-4765-8631-\ f0dbed0fefa0"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, { 3.7640850595209875`*^9, 3.764085060209149*^9}},ExpressionUUID->"4bd80e1f-1259-4c02-aba2-\ 4afb2fb864d4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2K3", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J2", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B2", "]"}], ".", "DD", ".", "B2"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085061825568*^9, {3.7641345777047358`*^9, 3.764134581456509*^9}, {3.7641351727048783`*^9, 3.7641351911523037`*^9}, { 3.7641361557128305`*^9, 3.764136159503108*^9}},ExpressionUUID->"46a00b7d-9fc3-4dd1-a4fe-\ a9eec7fb5d63"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8", ",", "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7", ",", "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7", ",", "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8", ",", "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085063233661*^9, 3.7641345829089265`*^9, 3.764135406965717*^9, 3.7641359621699886`*^9, 3.7641569717027435`*^9, 3.764248132339441*^9, 3.764495537047792*^9, 3.764496896638242*^9, 3.76476799650097*^9, 3.764909626558438*^9, 3.7650253549206266`*^9},ExpressionUUID->"91b07f6c-7a7b-4a1b-9a0e-\ baa38a2dd666"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.7640850696895638`*^9},ExpressionUUID->"e1b63bfb-3e84-4fae-b176-\ 525c9c3766c6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2K4", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J2", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B2", "]"}], ".", "DD", ".", "B2"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7640850678735356`*^9, {3.7641345876081514`*^9, 3.764134589249052*^9}, {3.7641351751767273`*^9, 3.7641351922967415`*^9}, { 3.7641361615369844`*^9, 3.7641361749837084`*^9}},ExpressionUUID->"3b57ff05-1827-4fe2-a83f-\ b53ea0215f7a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8", ",", "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7", ",", "1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085072923015*^9, 3.7641345917014136`*^9, 3.764135408857602*^9, 3.7641359643258553`*^9, 3.764156971732663*^9, 3.764248132364373*^9, 3.7644955371056356`*^9, 3.7644968967163477`*^9, 3.764767996531886*^9, 3.7649096266003265`*^9, 3.765025354983062*^9},ExpressionUUID->"69059dc7-f417-4eb3-b4c0-\ 12b72cfcbff6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K26", "=", RowBox[{"K2K1", "+", "K2K3", "+", "K2K4", "+", "K2K2"}]}]], "Input", CellChangeTimes->{{3.7640850745394583`*^9, 3.764085112856887*^9}, 3.76413459748857*^9, {3.7641351961930137`*^9, 3.7641352020476727`*^9}, { 3.764136162768417*^9, 3.7641361686795683`*^9}},ExpressionUUID->"68578682-e223-4cd8-83b7-\ 49189e177f98"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7640850911478534`*^9, 3.7640851138011613`*^9}, 3.7641345987985144`*^9, 3.764135410249518*^9, 3.7641359659147587`*^9, 3.7641569717515855`*^9, 3.764248132380331*^9, 3.764495537143536*^9, 3.764496896765785*^9, 3.764767996555822*^9, 3.7649096266302705`*^9, 3.7650253550225215`*^9},ExpressionUUID->"81448f7f-5ae7-436c-8b09-\ 004b594df10f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K26", "]"}]], "Input", CellChangeTimes->{{3.764134610940317*^9, 3.7641346154885473`*^9}, 3.76413520419305*^9, 3.7641361769041014`*^9},ExpressionUUID->"80c7e495-1469-49b7-9cde-\ f3f0b0f468b1"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}]}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}]}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "1.483516483529812`*^9", "5.357142857142858`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}]}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "5.357142857142858`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}]}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9"} }, 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.7641346160665135`*^9, 3.7641354111554627`*^9, 3.7641359680146337`*^9, 3.764156971769538*^9, 3.7642481323952913`*^9, 3.7644955371794395`*^9, 3.764496896806603*^9, 3.7647679965707827`*^9, 3.764909626651471*^9, 3.7650253550674753`*^9},ExpressionUUID->"0c418d11-41c8-41e4-b1e1-\ ea7fc6bf5697"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K27", "=", RowBox[{"K2", "-", "K26"}]}]], "Input", CellChangeTimes->{{3.7641346208447485`*^9, 3.7641346243605356`*^9}, { 3.764135415793183*^9, 3.7641354282324286`*^9}, {3.764136178848002*^9, 3.7641361814718423`*^9}},ExpressionUUID->"ee2d735a-b16f-456f-a686-\ 4cf5a0e8afec"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.0133284330368042`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0133284330368042`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", "2.9802322387695312`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328194618225098`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", "0.0133284330368042`", ",", "5.960464477539063`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.0133284330368042`", ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.013328462839126587`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", "1.1920928955078125`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "1.1920928955078125`*^-7", ",", RowBox[{"-", "0.01332855224609375`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.764134624829507*^9, {3.7641354135353203`*^9, 3.764135429255368*^9}, 3.7641359693455505`*^9, 3.7641569717885103`*^9, 3.7642481324122458`*^9, 3.764495537222327*^9, 3.764496896853468*^9, 3.764767996599705*^9, 3.7649096266724157`*^9, 3.765025355115426*^9},ExpressionUUID->"ea956b62-5344-424e-ac4f-\ 4110b1140ccd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K27", "]"}]], "Input", CellChangeTimes->{{3.7641354330836425`*^9, 3.7641354370249147`*^9}, 3.7641361865765505`*^9},ExpressionUUID->"08109d6b-438f-4b07-895b-\ 824e787c4c5e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328313827514648`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}]}, { RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.0133284330368042`"}, {"0.0133284330368042`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], "5.960464477539063`*^-8", "0.013328462839126587`", "2.9802322387695312`*^-8", RowBox[{"-", "0.013328313827514648`"}], RowBox[{"-", "5.960464477539063`*^-8"}]}, {"4.470348358154297`*^-8", "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.21540641784668`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328194618225098`"}]}, { RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], RowBox[{"-", "1.1920928955078125`*^-7"}], "0.0133284330368042`", "5.960464477539063`*^-8"}, {"5.960464477539063`*^-8", RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.0133284330368042`", RowBox[{"-", "1.1920928955078125`*^-7"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`"}, {"0.013328462839126587`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328194618225098`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.21540641784668`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], "1.1920928955078125`*^-7"}, { RowBox[{"-", "4.470348358154297`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.013328462839126587`", "1.1920928955078125`*^-7", RowBox[{"-", "0.01332855224609375`"}]} }, 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.764135437577882*^9, 3.7641569718044734`*^9, 3.7642481324262085`*^9, 3.764495537263219*^9, 3.7644968969003305`*^9, 3.7647679966186543`*^9, 3.7649096266973495`*^9, 3.765025355158882*^9},ExpressionUUID->"58f0be13-c9d8-4528-bf1b-\ 5b5ff7fc8e46"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"L2", "=", RowBox[{"(", GridBox[{ {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156022422739*^9, 3.7641561085859804`*^9}, 3.7641561740051484`*^9, 3.7641566749309535`*^9, {3.7641567212747307`*^9, 3.7641567581002283`*^9}, {3.764499900490797*^9, 3.764499912426115*^9}, { 3.7647679463098416`*^9, 3.764767971413709*^9}},ExpressionUUID->"b65e9ba0-7898-49d2-a7a6-\ 6daac020fc04"], Cell[BoxData[ RowBox[{ RowBox[{"L2T", "=", RowBox[{"Transpose", "[", "L2", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156181627759*^9, 3.764156191753677*^9}, { 3.764156763802535*^9, 3.764156765289719*^9}},ExpressionUUID->"3997c6f4-8780-4676-8a12-\ 09cb8a0f50b1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KT2", "=", RowBox[{"L2T", ".", "K26", ".", "L2"}]}]], "Input", CellChangeTimes->{{3.7641562038600893`*^9, 3.7641562733942194`*^9}, { 3.764156767018224*^9, 3.7641567694507837`*^9}},ExpressionUUID->"21fefb4c-8b75-46b3-be44-\ 10dbaba50423"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", "0.`", ",", "0.`", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.76415627521754*^9, 3.764156985953842*^9, 3.764248132465104*^9, 3.76449553736298*^9, 3.7644968970253005`*^9, {3.7644999543534307`*^9, 3.764499958778184*^9}, 3.7647679966625366`*^9, 3.7649096267302327`*^9, 3.765025355261777*^9},ExpressionUUID->"913abd3c-c956-4edf-bbf8-\ 6d7c0b6a7dd0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "KT2", "]"}]], "Input", CellChangeTimes->{{3.764156278194994*^9, 3.7641562829779353`*^9}, 3.764156771386448*^9},ExpressionUUID->"edf43227-eaf6-4361-b4f1-\ afe42adeb148"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^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.`"}, {"0.`", "0.`", "1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}], RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "1.483516483529812`*^9", "5.357142857142858`*^8", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.357142857142858`*^8", "1.4835164835298119`*^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.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "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" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7641562836606216`*^9, 3.7641569929968777`*^9, 3.7642481324860487`*^9, 3.7644955374128156`*^9, 3.7644968970877895`*^9, 3.7644999606371517`*^9, 3.764767996683488*^9, 3.764909626751191*^9, 3.765025355449085*^9},ExpressionUUID->"ed863c7f-bf87-4470-ae48-\ 9a9789f80ee2"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"F", "=", "1000"}], ";"}]], "Input", CellChangeTimes->{{3.7642483699187374`*^9, 3.764248373325842*^9}},ExpressionUUID->"79f6e7ac-0354-4fe9-9af0-\ af7bc25f524a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F2", "=", RowBox[{"(", GridBox[{ {"0"}, {"0"}, {"F"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"} }], ")"}]}]], "Input",ExpressionUUID->"4c636173-8a45-407f-9bf6-\ 28d34dd08f22"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7644958505793924`*^9, 3.7644968971443167`*^9, 3.7647679967104087`*^9, 3.7649096267801003`*^9, 3.765025355514018*^9},ExpressionUUID->"4bace851-12a9-49a3-91c7-\ 405d055d9e9e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F22", "=", RowBox[{"L2T", ".", "F2"}]}]], "Input", CellChangeTimes->{{3.764248457280222*^9, 3.7642484678120785`*^9}},ExpressionUUID->"bd9c4598-c6de-4233-8ff1-\ 40fcfff12135"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764248477860865*^9, 3.7644955374985867`*^9, 3.7644958001901445`*^9, 3.7644968972068033`*^9, 3.7645001824015093`*^9, 3.7647679967253685`*^9, 3.7649096268030386`*^9, 3.765025355546485*^9},ExpressionUUID->"1f88e3e0-aaab-4260-8a71-\ eaea1f9060df"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "X1", ",", "X2", ",", "X3", ",", "X4", ",", "Y1", ",", "Y2", ",", "Y3", ",", "Y4", ",", "\[Zeta]", ",", "\[Eta]"}], "]"}]], "Input", CellChangeTimes->{{3.764135058995936*^9, 3.7641350952078876`*^9}, { 3.7641358424890327`*^9, 3.7641358496975985`*^9}},ExpressionUUID->"e97a849e-9a4a-4d95-8c8f-\ f2236b79c572"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Terzo elemento \ \>", "Section", CellFrame->{{0, 0}, {0.5, 0.5}}, CellFrameColor->RGBColor[0, 0, 1], CellChangeTimes->{{3.759042511629591*^9, 3.7590426571327305`*^9}, { 3.7590428298532133`*^9, 3.7590429009498835`*^9}, {3.7590429363527265`*^9, 3.75904295943932*^9}, {3.7590429949961543`*^9, 3.7590430018917346`*^9}, { 3.764135522864072*^9, 3.764135552080039*^9}, {3.7641563453461447`*^9, 3.764156349417404*^9}}, TextAlignment->Left,ExpressionUUID->"6588257e-9471-4f8f-8094-46091813f3fc"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640519612086596`*^9, 3.764051965505329*^9}},ExpressionUUID->"abd48a3c-2362-481e-95b0-\ e453c684f6d8"], Cell[BoxData["\<\"Funzioni di forma\"\>"], "Output", CellChangeTimes->{3.7640519705595274`*^9, 3.764248132510982*^9, 3.7644955375454607`*^9, 3.7644968972849092`*^9, 3.7647680259599314`*^9, 3.7649096268708577`*^9, 3.765025355749277*^9},ExpressionUUID->"c3f4123c-8409-43a1-a227-\ b78e8d0c2a06"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["N", "1"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "2"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "3"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "4"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640519721450853`*^9, 3.764052090917095*^9}, { 3.7640525225008235`*^9, 3.7640525268392587`*^9}},ExpressionUUID->"aaea9cc6-f030-4161-a30f-\ ea4f5a46bcb8"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640521238561935`*^9, 3.7640521264847145`*^9}},ExpressionUUID->"8cdb7151-c5f2-46b6-b7c0-\ 115f63b01221"], Cell[BoxData["\<\"Calcolo Jacobiano\"\>"], "Output", CellChangeTimes->{3.7640521272480097`*^9, 3.7640836169330626`*^9, 3.7641300054618535`*^9, 3.764135239389906*^9, 3.764135301337264*^9, 3.764248132531926*^9, 3.7644955375933332`*^9, 3.76449689734741*^9, 3.7647680260227637`*^9, 3.764909626901775*^9, 3.76502535580572*^9},ExpressionUUID->"cb6316fb-a1dc-40be-ba10-84476a325205"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"X1", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X4", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y1", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y2", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y4", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.764053052326024*^9, 3.7640530937903967`*^9}, { 3.764135757664504*^9, 3.764135764040118*^9}, {3.764156374642399*^9, 3.7641563877304773`*^9}, {3.7647679836621466`*^9, 3.7647679859409657`*^9}},ExpressionUUID->"6289ed7d-1814-4698-a530-\ 02d371cf9bb5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J3", "11"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, 3.7641351116814137`*^9, 3.7641359818177958`*^9, 3.7641564143936043`*^9},ExpressionUUID->"fd18409a-1fb6-41ff-b991-\ 209f21b1f33e"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{ 3.7640525455766735`*^9, 3.7640531291210055`*^9, 3.764053174317822*^9, 3.764055812364915*^9, 3.764083616951014*^9, 3.7641300055178504`*^9, 3.7641352396234264`*^9, 3.7641353019536524`*^9, {3.7641358359544287`*^9, 3.76413585723814*^9}, 3.7641570166279836`*^9, 3.7642481325518727`*^9, 3.7644955376422048`*^9, 3.7644968974229956`*^9, 3.7647680260501995`*^9, 3.764909626933689*^9, 3.765025355859665*^9},ExpressionUUID->"f42a3009-dbde-4f1c-b804-\ df48e2024b1f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J3", "12"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, 3.764135113057331*^9, 3.7641359837611866`*^9, 3.7641564158259773`*^9},ExpressionUUID->"183a7981-12ff-44d5-a0fd-\ 50ea12ecf842"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640558131742644`*^9, 3.7640836169619846`*^9, 3.764130005543848*^9, 3.7641352398274775`*^9, 3.764135302147916*^9, 3.7641358587520475`*^9, 3.7641570196071544`*^9, 3.764248132565838*^9, 3.7644955376711254`*^9, 3.7644968974586806`*^9, 3.7647680260641623`*^9, 3.76490962695566*^9, 3.765025355900623*^9},ExpressionUUID->"c768de65-1c54-43ad-a713-\ 5737f1af5380"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J3", "21"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, {3.7640531801895866`*^9, 3.7640531803301835`*^9}, {3.764053380020773*^9, 3.764053386765437*^9}, { 3.7641351141692624`*^9, 3.7641351160651484`*^9}, 3.764135986713011*^9, 3.7641564174748344`*^9},ExpressionUUID->"3a180787-0b21-4b7b-bed5-\ ab9d09a0747a"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}]], "Output", CellChangeTimes->{3.7640533870778627`*^9, 3.764055813952297*^9, 3.7640836169739523`*^9, 3.764130005572847*^9, 3.7641352400035334`*^9, 3.764135302180938*^9, 3.7641358605739384`*^9, 3.764157020835829*^9, 3.764248132577803*^9, 3.7644955377000484`*^9, 3.7644968974899235`*^9, 3.764768026078125*^9, 3.7649096269735823`*^9, 3.765025355934588*^9},ExpressionUUID->"e29201e1-c41e-41c8-bb4e-\ 814981ab1689"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J3", "22"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, {3.764053396121353*^9, 3.764053406016117*^9}, 3.7641351185615053`*^9, 3.7641359900573153`*^9, 3.7641564184175267`*^9},ExpressionUUID->"2456b73a-6314-409e-9143-\ f138b8c693e7"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640534069221573`*^9, 3.7640558151686163`*^9, 3.7640836169859204`*^9, 3.764130005602844*^9, 3.7641352401565247`*^9, 3.7641353022130175`*^9, 3.7641358618298635`*^9, 3.7641570218635845`*^9, 3.7642481325907683`*^9, 3.764495537727974*^9, 3.7644968975368166`*^9, 3.7647680260990686`*^9, 3.76490962700051*^9, 3.7650253559725494`*^9},ExpressionUUID->"7028d4c2-1e9b-464f-9338-\ f8e57dd838a1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J3", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J3", "11"], ",", SubscriptBox["J3", "12"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J3", "21"], ",", SubscriptBox["J3", "22"]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.764053883896584*^9, 3.7640539110881987`*^9}, 3.7641351251791224`*^9, {3.7641352696347075`*^9, 3.764135275920855*^9}, { 3.764135991617221*^9, 3.7641360232488327`*^9}, {3.7641564198102417`*^9, 3.7641564245543976`*^9}},ExpressionUUID->"25c126be-7ebc-4eb1-b46a-\ 441649cef426"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640539214461937`*^9, 3.764055816892096*^9, 3.764083616996891*^9, 3.7641300056318426`*^9, 3.7641352403805113`*^9, {3.7641352769602995`*^9, 3.764135302402294*^9}, 3.764135862798804*^9, 3.7641570231720843`*^9, 3.7642481326027365`*^9, 3.764495537761882*^9, 3.7644968975680313`*^9, 3.764768026111037*^9, 3.764909627027439*^9, 3.765025356008013*^9},ExpressionUUID->"bbaff7d7-4644-4276-8975-\ 97b3714dc53c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", "J3", "]"}]], "Input", CellChangeTimes->{{3.764053926562662*^9, 3.7640539291101713`*^9}, 3.764135126785537*^9, 3.764136025392702*^9, 3.7641564262654104`*^9},ExpressionUUID->"2809bf5d-3f8a-43ad-beae-\ 04309535e960"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7640539296837945`*^9, 3.764055818802743*^9, 3.7640836170098567`*^9, 3.7641300057418365`*^9, 3.7641352405175033`*^9, 3.7641353105632925`*^9, 3.764135864460702*^9, 3.7641570246083965`*^9, 3.7642481326166997`*^9, 3.764495537791803*^9, 3.764496897614894*^9, 3.7647680261289887`*^9, 3.764909627061348*^9, 3.765025356041479*^9},ExpressionUUID->"6d0d8c70-09e6-4312-98be-\ c11ba5a280ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J3I", "=", RowBox[{"Inverse", "[", "J3", "]"}]}]], "Input", CellChangeTimes->{{3.7640540665969844`*^9, 3.7640540742107306`*^9}, { 3.764135129521372*^9, 3.7641351307922945`*^9}, {3.764136026863613*^9, 3.7641360291599865`*^9}, {3.7641564278107724`*^9, 3.764156429146367*^9}},ExpressionUUID->"737da96b-e1cf-4ab3-aa49-\ 424793088b6b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640540747188454`*^9, 3.764055819652989*^9, 3.7640836170248165`*^9, 3.7641300057698355`*^9, 3.764135240663496*^9, 3.7641353120572033`*^9, 3.7641358654536448`*^9, 3.764157025252142*^9, 3.764248132630662*^9, 3.764495537821723*^9, 3.764496897661759*^9, 3.764768026144946*^9, 3.7649096270862803`*^9, 3.7650253560764427`*^9},ExpressionUUID->"aa7131f7-414d-4bd4-94ec-\ a1549e540275"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "J3I", "]"}]], "Input", CellChangeTimes->{{3.7640540864462175`*^9, 3.764054101747073*^9}, 3.7641351331531515`*^9, 3.7641360304339075`*^9, 3.7641564302747693`*^9},ExpressionUUID->"9ede9149-d9a9-4ba4-bf6a-\ d7a8e6302990"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]}, { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]} }, 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.7640540926784525`*^9, 3.764054102382371*^9}, 3.764055820533405*^9, 3.7640836170387793`*^9, 3.7641300058878274`*^9, 3.764135240822486*^9, 3.7641353143323145`*^9, 3.7641358665905733`*^9, 3.76415702649921*^9, 3.7642481326446247`*^9, 3.7644955378855524`*^9, 3.7644968977086234`*^9, 3.7647680261664085`*^9, 3.764909627120208*^9, 3.765025356112406*^9},ExpressionUUID->"5b52c5d3-41d8-42e1-8a4d-\ ad7ebfa4336e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["B", "11"]], "Input", CellChangeTimes->{{3.764135135145047*^9, 3.7641351366564646`*^9}},ExpressionUUID->"4df431b9-71d8-4ec2-acdb-\ cf0eb9a05b74"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.764055825477598*^9, 3.764083617050747*^9, 3.764130005920827*^9, 3.764135316299576*^9, {3.764135872122239*^9, 3.7641358774229174`*^9}, 3.7641570276582794`*^9, 3.7642481326595845`*^9, 3.764495537914474*^9, 3.7644968977554865`*^9, 3.764768026186343*^9, 3.764909627144126*^9, 3.7650253561588583`*^9},ExpressionUUID->"4ad7d783-769f-4a42-a77d-\ 1c64de93a640"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "11"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764135230552132*^9, 3.7641352327765446`*^9}, {3.7641360371135025`*^9, 3.7641360399123335`*^9}, {3.764156433034278*^9, 3.7641564343540926`*^9}},ExpressionUUID->"403d9812-ca62-47e2-ad78-\ 36a35b6f368a"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "12"], "=", RowBox[{ SubscriptBox["B", "14"], "=", RowBox[{ SubscriptBox["B", "16"], "=", RowBox[{ SubscriptBox["B", "18"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055376479505*^9}},ExpressionUUID->"0a2463dd-2823-485e-afcf-\ fee82d02bcab"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "13"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055354120462*^9}, {3.764135237073306*^9, 3.7641352506409073`*^9}, {3.7641360419452114`*^9, 3.764136047047921*^9}, { 3.764156435546549*^9, 3.7641564419695835`*^9}},ExpressionUUID->"976d7832-2dc9-44d0-9e33-\ c1ae49965fea"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "15"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, {3.7640553607972417`*^9, 3.7640553891314125`*^9}, {3.7641352376332717`*^9, 3.7641352528481755`*^9}, {3.7641360432076435`*^9, 3.764136048023861*^9}, { 3.764156436722068*^9, 3.7641564469376125`*^9}},ExpressionUUID->"8182c3d2-5a91-4d69-9de2-\ b61a69ab7a33"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "17"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640553954181614`*^9, 3.764055401321685*^9}, { 3.7641352386492105`*^9, 3.764135259296824*^9}, {3.7641360453765125`*^9, 3.7641360492237883`*^9}, {3.764156437986417*^9, 3.7641564478339376`*^9}},ExpressionUUID->"13ee83df-f886-4615-9c08-\ 0a008c4c857a"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "21"], "=", RowBox[{ SubscriptBox["B", "23"], "=", RowBox[{ SubscriptBox["B", "25"], "=", RowBox[{ SubscriptBox["B", "27"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055407003626*^9, 3.7640554171339436`*^9}, {3.7640554680533924`*^9, 3.7640554832691565`*^9}},ExpressionUUID->"1c086b29-fb7f-429c-9450-\ 3311b7434390"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "22"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055421348941*^9, 3.764055448710491*^9}, {3.76413524104298*^9, 3.7641352497843027`*^9}, {3.764136050504712*^9, 3.764136057671788*^9}, { 3.764156449449724*^9, 3.7641564567134132`*^9}},ExpressionUUID->"9ac3461a-658e-40de-89e8-\ e6e2710293ab"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "24"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640554898717813`*^9, 3.7640555076565886`*^9}, { 3.7641352445452766`*^9, 3.764135253736122*^9}, {3.76413605200862*^9, 3.7641360586327295`*^9}, {3.7641564502180033`*^9, 3.764156455514073*^9}},ExpressionUUID->"19fae991-94e2-4f81-b909-\ a358e8601612"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "26"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055493600891*^9, 3.7640555042727685`*^9}, { 3.7641352468736677`*^9, 3.764135251904233*^9}, {3.7641360536090336`*^9, 3.7641360595926714`*^9}, {3.764156451618284*^9, 3.7641564547706113`*^9}},ExpressionUUID->"b29339a0-7077-47d3-9479-\ 84847d0f264a"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "28"], "=", RowBox[{ RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J3I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055496516323*^9, 3.764055500978362*^9}, { 3.7641352490486174`*^9, 3.7641352604087563`*^9}, {3.764136055495919*^9, 3.764136060808598*^9}, {3.7641564526502075`*^9, 3.7641564538738585`*^9}},ExpressionUUID->"068f9c76-ae0a-4c7a-b557-\ c77cf002fdc7"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "31"], "=", SubscriptBox["B", "22"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556001063485`*^9, 3.764055607542718*^9}},ExpressionUUID->"6ed646c4-4bd6-4ab1-ad3b-\ ffc47af9c434"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "32"], "=", SubscriptBox["B", "11"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556131807594`*^9, 3.764055615067233*^9}},ExpressionUUID->"783c25d2-a0c0-4050-a359-\ bb2446969a6d"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "33"], "=", SubscriptBox["B", "24"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556185237885`*^9, 3.764055623846227*^9}},ExpressionUUID->"e5b6a7de-a53b-4e22-b872-\ 0569a5f5046f"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "34"], "=", SubscriptBox["B", "13"]}], ";"}]], "Input", CellChangeTimes->{{3.76405562786751*^9, 3.7640556346021867`*^9}},ExpressionUUID->"ad8e3b0b-8596-4179-ade7-\ 287004060749"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "35"], "=", SubscriptBox["B", "26"]}], ";"}]], "Input", CellChangeTimes->{{3.764055638997919*^9, 3.7640556413861*^9}},ExpressionUUID->"ee25320c-167d-4787-8c90-3626650a5d99"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "36"], "=", SubscriptBox["B", "15"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556452112074`*^9, 3.7640556474638987`*^9}},ExpressionUUID->"df51f95a-22bd-42d1-92bd-\ 807772d4d3ed"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "37"], "=", SubscriptBox["B", "28"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556504999266`*^9, 3.764055652446862*^9}},ExpressionUUID->"3b6c6feb-150f-4472-be2a-\ 79b25e54fe48"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "38"], "=", SubscriptBox["B", "17"]}], ";"}]], "Input", CellChangeTimes->{{3.764055657558312*^9, 3.764055665836204*^9}},ExpressionUUID->"8432ba4f-ec40-4f72-9dff-\ bb8e9d96b456"], Cell[BoxData[ RowBox[{ RowBox[{"B3", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "11"], ",", SubscriptBox["B", "12"], ",", SubscriptBox["B", "13"], ",", SubscriptBox["B", "14"], ",", SubscriptBox["B", "15"], ",", SubscriptBox["B", "16"], ",", SubscriptBox["B", "17"], ",", SubscriptBox["B", "18"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "21"], ",", SubscriptBox["B", "22"], ",", SubscriptBox["B", "23"], ",", SubscriptBox["B", "24"], ",", SubscriptBox["B", "25"], ",", SubscriptBox["B", "26"], ",", SubscriptBox["B", "27"], ",", SubscriptBox["B", "28"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "31"], ",", SubscriptBox["B", "32"], ",", SubscriptBox["B", "33"], ",", SubscriptBox["B", "34"], ",", SubscriptBox["B", "35"], ",", SubscriptBox["B", "36"], ",", SubscriptBox["B", "37"], ",", SubscriptBox["B", "38"]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764053968318405*^9, 3.7640539793665886`*^9}, { 3.7640556743401675`*^9, 3.7640557437660074`*^9}, 3.764135141296691*^9, 3.7641360748729997`*^9, 3.7641564601544085`*^9},ExpressionUUID->"e133b3e9-f21e-447f-8c85-\ 1d2c5339157e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "B3", "]"}]], "Input", CellChangeTimes->{{3.7640557454118495`*^9, 3.7640557487700086`*^9}, 3.7641351507926416`*^9, 3.764136075888939*^9, 3.7641564612185664`*^9},ExpressionUUID->"1077544c-532c-49d5-97b8-\ ced7319c1289"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}]}]} }, 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.764055749573391*^9, 3.764055843542247*^9, 3.7640836172127686`*^9, 3.7641300064727917`*^9, 3.7641353477495766`*^9, 3.764135886303477*^9, 3.764157037762164*^9, 3.764248132858054*^9, 3.7644955383652697`*^9, 3.7644968982135344`*^9, 3.764768026351901*^9, 3.7649096273735514`*^9, 3.765025356698306*^9},ExpressionUUID->"32f6aee6-a9c0-44ee-9269-\ 358d30574dd4"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Nu]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Em", "=", "30000000000"}], ";"}]}], "Input", CellChangeTimes->{{3.76405600567418*^9, 3.764056016640541*^9}},ExpressionUUID->"b6c4f213-645f-432d-b115-\ 48dd651da323"], Cell[BoxData[ RowBox[{ RowBox[{"DD", "=", RowBox[{ FractionBox["Em", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], "*", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640558926581006`*^9, 3.764056001131669*^9}},ExpressionUUID->"34b62cee-d66c-4e18-8948-\ 2519b928d2c5"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", "0.1"}], ";"}]], "Input", CellChangeTimes->{{3.764056028801811*^9, 3.7640560331810207`*^9}, 3.7650251885414977`*^9},ExpressionUUID->"9b10dffc-65d9-43c2-b66e-\ 2f97652e4480"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K3", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"t", "*", RowBox[{ RowBox[{"Transpose", "[", "B3", "]"}], ".", "DD", ".", "B3"}], "*", RowBox[{"Det", "[", "J3", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Zeta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7640558755380754`*^9, 3.764055884872034*^9}, { 3.764056047778992*^9, 3.76405612274431*^9}, 3.764135157994223*^9, { 3.764135355369114*^9, 3.7641353585049243`*^9}, {3.7641361132727985`*^9, 3.7641361218237896`*^9}, {3.7641564646495256`*^9, 3.7641564692821417`*^9}},ExpressionUUID->"ad4f9dc6-57f6-441a-a7ec-\ 9d81e2bc04ba"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640561458338795`*^9, 3.764084952928542*^9, 3.7641300376991816`*^9, 3.76413539191192*^9, 3.7641359505196753`*^9, 3.764157065993308*^9, 3.764248155264862*^9, 3.764495574280233*^9, 3.7644969321565194`*^9, 3.764768049319772*^9, 3.764909649254815*^9, 3.7650254395284896`*^9},ExpressionUUID->"68c4fb04-25de-48be-8c72-\ 414725a1eee8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K3", "]"}]], "Input", CellChangeTimes->{{3.7640561509580083`*^9, 3.764056155461671*^9}, 3.7641351587766867`*^9, 3.7641361238806653`*^9, 3.764156470762785*^9},ExpressionUUID->"81637a6c-2871-4946-a168-\ f90d34cf1f90"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7"}, {"5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}]}, { RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8"}, { RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9", "4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}]}, { RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7", "1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}]}, { RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8"}, {"1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}]}, {"4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9"} }, 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.764056155936875*^9, 3.7641300379121685`*^9, 3.764135395053241*^9, 3.764135954108967*^9, 3.7641570697206807`*^9, 3.764248155316753*^9, 3.7644955743530397`*^9, 3.764496932234627*^9, 3.7647680493826733`*^9, 3.764909649305679*^9, 3.7650254397068057`*^9},ExpressionUUID->"ce6313eb-9ee4-419e-a42b-\ 35a00c594d8f"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}},ExpressionUUID->"d5c45539-23ed-4ce4-a8ed-\ 75e705467364"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K3K1", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J3", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B3", "]"}], ".", "DD", ".", "B3"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7641345508512383`*^9, {3.764135170146033*^9, 3.7641351849761715`*^9}, {3.7641361285843973`*^9, 3.764136133959583*^9}, { 3.764156473026162*^9, 3.764156476242608*^9}},ExpressionUUID->"ac4e63fb-1c89-4863-a20c-\ 7417ba2bba8f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.7641345601402707`*^9, 3.7641354039183373`*^9, 3.764135957591756*^9, 3.764157076566229*^9, 3.7642481553427305`*^9, 3.7644955744667344`*^9, 3.7644969322971125`*^9, 3.7647680494086046`*^9, 3.7649096493455725`*^9, 3.7650254397667437`*^9},ExpressionUUID->"81ac8637-7bc4-4d30-99fb-\ 12edfa0c3b5a"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.764085053737568*^9},ExpressionUUID->"735993e7-64f5-4cf0-9843-\ 1ec8b96e452b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K3K2", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J3", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B3", "]"}], ".", "DD", ".", "B3"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085052193915*^9, {3.7641345650639915`*^9, 3.7641345734159946`*^9}, {3.7641351713609586`*^9, 3.764135189527401*^9}, { 3.764136137728354*^9, 3.7641361434395313`*^9}, {3.76415647832225*^9, 3.764156481425969*^9}},ExpressionUUID->"3f5a0f99-37f5-4f2b-8266-\ f41eed80a9c2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7", ",", "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, { 3.7640850270206704`*^9, 3.764085055865826*^9}, 3.7641345746969166`*^9, 3.7641354054403024`*^9, 3.7641359600541153`*^9, 3.7641570790342016`*^9, 3.764248155368554*^9, 3.764495574544526*^9, 3.764496932359597*^9, 3.7647680494335375`*^9, 3.764909649382474*^9, 3.765025439827682*^9},ExpressionUUID->"f83796a9-d599-4cd0-8266-\ 05d6e00f7197"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, { 3.7640850595209875`*^9, 3.764085060209149*^9}},ExpressionUUID->"9de9683f-8da1-484b-97d6-\ f57c3715e7d4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K3K3", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J3", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B3", "]"}], ".", "DD", ".", "B3"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085061825568*^9, {3.7641345777047358`*^9, 3.764134581456509*^9}, {3.7641351727048783`*^9, 3.7641351911523037`*^9}, { 3.7641361557128305`*^9, 3.764136159503108*^9}, {3.764156482938486*^9, 3.764156487705969*^9}},ExpressionUUID->"e249351d-0b77-45e8-8dbc-\ b12c8b85a351"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8", ",", "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7", ",", "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7", ",", "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8", ",", "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085063233661*^9, 3.7641345829089265`*^9, 3.764135406965717*^9, 3.7641359621699886`*^9, 3.7641570808433905`*^9, 3.7642481553944845`*^9, 3.764495574608354*^9, 3.764496932422082*^9, 3.7647680494653826`*^9, 3.764909649419924*^9, 3.765025439888619*^9},ExpressionUUID->"52705dd3-6ea1-4114-99b8-\ 0749f472bd71"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.7640850696895638`*^9},ExpressionUUID->"653e74c8-9f3a-4277-ae21-\ a806c9e72813"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K3K4", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J3", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B3", "]"}], ".", "DD", ".", "B3"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7640850678735356`*^9, {3.7641345876081514`*^9, 3.764134589249052*^9}, {3.7641351751767273`*^9, 3.7641351922967415`*^9}, { 3.7641361615369844`*^9, 3.7641361749837084`*^9}, {3.764156490050721*^9, 3.7641564930512333`*^9}},ExpressionUUID->"dd84a9fd-566b-426e-bc51-\ a9860ca22740"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8", ",", "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7", ",", "1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085072923015*^9, 3.7641345917014136`*^9, 3.764135408857602*^9, 3.7641359643258553`*^9, 3.764157083564047*^9, 3.764248155421413*^9, 3.764495574683153*^9, 3.7644969324845767`*^9, 3.764768049489319*^9, 3.7649096494478917`*^9, 3.765025439951056*^9},ExpressionUUID->"67a70888-8a81-4ecc-bb74-\ da73a2c7cbad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K36", "=", RowBox[{"K3K1", "+", "K3K3", "+", "K3K4", "+", "K3K2"}]}]], "Input", CellChangeTimes->{{3.7640850745394583`*^9, 3.764085112856887*^9}, 3.76413459748857*^9, {3.7641351961930137`*^9, 3.7641352020476727`*^9}, { 3.764136162768417*^9, 3.7641361686795683`*^9}, {3.7641564962496*^9, 3.764156502409506*^9}},ExpressionUUID->"0832995d-fe6a-4eab-8358-\ b9e481707ac8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7640850911478534`*^9, 3.7640851138011613`*^9}, 3.7641345987985144`*^9, 3.764135410249518*^9, 3.7641359659147587`*^9, 3.7641570850985303`*^9, 3.764248155436373*^9, 3.7644955747300277`*^9, 3.764496932531439*^9, 3.764768049513255*^9, 3.764909649479763*^9, 3.7650254399950104`*^9},ExpressionUUID->"9f856c94-b6a3-428b-8384-\ 2e1356df2b22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K36", "]"}]], "Input", CellChangeTimes->{{3.764134610940317*^9, 3.7641346154885473`*^9}, 3.76413520419305*^9, 3.7641361769041014`*^9, 3.7641565038181868`*^9},ExpressionUUID->"23bde474-cab9-4e01-abdc-\ fb90cc0a4eed"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}]}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}]}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "1.483516483529812`*^9", "5.357142857142858`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}]}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "5.357142857142858`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}]}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9"} }, 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.7641346160665135`*^9, 3.7641354111554627`*^9, 3.7641359680146337`*^9, 3.7641570861866674`*^9, 3.764248155437745*^9, 3.7644955747649355`*^9, 3.7644969325782967`*^9, 3.764768049537199*^9, 3.7649096494977427`*^9, 3.765025440146355*^9},ExpressionUUID->"cfb416c5-e547-4685-8290-\ 67c4f6ecf0b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K37", "=", RowBox[{"K3", "-", "K36"}]}]], "Input", CellChangeTimes->{{3.7641346208447485`*^9, 3.7641346243605356`*^9}, { 3.764135415793183*^9, 3.7641354282324286`*^9}, {3.764136178848002*^9, 3.7641361814718423`*^9}, {3.764156505682591*^9, 3.764156507490705*^9}},ExpressionUUID->"613c54fc-78f3-49bb-98d7-\ 7af2ad18bf19"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.0133284330368042`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0133284330368042`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", "2.9802322387695312`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328194618225098`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", "0.0133284330368042`", ",", "5.960464477539063`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.0133284330368042`", ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.013328462839126587`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", "1.1920928955078125`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "1.1920928955078125`*^-7", ",", RowBox[{"-", "0.01332855224609375`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.764134624829507*^9, {3.7641354135353203`*^9, 3.764135429255368*^9}, 3.7641359693455505`*^9, 3.764157087060604*^9, 3.764248155463678*^9, 3.76449557480882*^9, 3.764496932625161*^9, 3.7647680495586424`*^9, 3.7649096495246563`*^9, 3.7650254401863146`*^9},ExpressionUUID->"c54c4067-67b3-4e47-b0e8-\ f89df58d0b28"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K37", "]"}]], "Input", CellChangeTimes->{{3.7641354330836425`*^9, 3.7641354370249147`*^9}, 3.7641361865765505`*^9, 3.764156509074292*^9},ExpressionUUID->"b686e61b-b669-418d-91ce-\ 1ef0379db0e7"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328313827514648`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}]}, { RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.0133284330368042`"}, {"0.0133284330368042`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], "5.960464477539063`*^-8", "0.013328462839126587`", "2.9802322387695312`*^-8", RowBox[{"-", "0.013328313827514648`"}], RowBox[{"-", "5.960464477539063`*^-8"}]}, {"4.470348358154297`*^-8", "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.21540641784668`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328194618225098`"}]}, { RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], RowBox[{"-", "1.1920928955078125`*^-7"}], "0.0133284330368042`", "5.960464477539063`*^-8"}, {"5.960464477539063`*^-8", RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.0133284330368042`", RowBox[{"-", "1.1920928955078125`*^-7"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`"}, {"0.013328462839126587`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328194618225098`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.21540641784668`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], "1.1920928955078125`*^-7"}, { RowBox[{"-", "4.470348358154297`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.013328462839126587`", "1.1920928955078125`*^-7", RowBox[{"-", "0.01332855224609375`"}]} }, 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.764135437577882*^9, 3.7641570882272625`*^9, 3.7642481554820337`*^9, 3.7644955748457184`*^9, 3.7644969326564026`*^9, 3.7647680495765953`*^9, 3.7649096495535665`*^9, 3.7650254402257743`*^9},ExpressionUUID->"49616a8b-3871-49cf-90cc-\ 31f50c2d62b5"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"L3", "=", RowBox[{"(", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156022422739*^9, 3.7641561085859804`*^9}, 3.7641561740051484`*^9, 3.7641565125225706`*^9, {3.764156783850829*^9, 3.764156841155532*^9}, {3.76449875969932*^9, 3.7644987707801037`*^9}, { 3.764499972843504*^9, 3.7644999965019093`*^9}, {3.7647679970844216`*^9, 3.764768021662891*^9}},ExpressionUUID->"770dfd8a-7872-4bb2-8757-\ 8a3b17142f67"], Cell[BoxData[ RowBox[{ RowBox[{"L3T", "=", RowBox[{"Transpose", "[", "L3", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156181627759*^9, 3.764156191753677*^9}, { 3.7641565134657373`*^9, 3.764156514633953*^9}},ExpressionUUID->"d8051622-f4e5-446e-b7fe-\ a68f8f3224d9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KT3", "=", RowBox[{"L3T", ".", "K36", ".", "L3"}]}]], "Input", CellChangeTimes->{{3.7641562038600893`*^9, 3.7641562733942194`*^9}, { 3.764156517738332*^9, 3.764156521034399*^9}},ExpressionUUID->"75f7f824-349e-4a74-9b9c-\ 3de261ad1b6c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", "0.`", ",", "0.`", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.76415627521754*^9, 3.7641570917773485`*^9, 3.7642481555173197`*^9, 3.7644955749544277`*^9, 3.764496932765751*^9, 3.764498774773134*^9, 3.7645000021454835`*^9, 3.764768049617486*^9, 3.7649096496004667`*^9, 3.7650254403161817`*^9},ExpressionUUID->"6b6ae468-1e4e-41cf-b4ba-\ c4fb46967948"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "KT3", "]"}]], "Input", CellChangeTimes->{{3.764156278194994*^9, 3.7641562829779353`*^9}, 3.7641570956584325`*^9},ExpressionUUID->"06e30541-7505-436c-9427-\ e8f08127e8a6"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^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.`", "0.`", "0.`"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}], RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "1.483516483529812`*^9", "5.357142857142858`*^8", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.357142857142858`*^8", "1.4835164835298119`*^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.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "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" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7641562836606216`*^9, 3.764157097254759*^9, 3.7642481555382814`*^9, 3.764495575002328*^9, 3.7644969328126154`*^9, 3.764498776225916*^9, 3.7645000037585554`*^9, 3.7647680496364346`*^9, 3.7649096496393695`*^9, 3.7650254404895043`*^9},ExpressionUUID->"dfcaa41e-1fa3-458f-a446-\ 11c777799fae"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"F", "=", "1000"}], ";"}]], "Input", CellChangeTimes->{{3.7642483699187374`*^9, 3.764248373325842*^9}},ExpressionUUID->"b1063d1a-b7b2-4e77-a34c-\ f3a7237d1cf8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F3", "=", RowBox[{"(", GridBox[{ {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"} }], ")"}]}]], "Input", CellChangeTimes->{{3.7642483359749823`*^9, 3.7642483667328515`*^9}, { 3.7642484300340366`*^9, 3.7642484520356035`*^9}, {3.7642484893970013`*^9, 3.7642485021937637`*^9}, 3.764495779958238*^9},ExpressionUUID->"87c75d2c-3b01-4203-854a-\ 6e6093911abc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7642483773305387`*^9, 3.764248455572081*^9, 3.7642485119985437`*^9, 3.7644955750591764`*^9, 3.7644957840782223`*^9, 3.764496932875101*^9, 3.7644987790787573`*^9, 3.764768049658882*^9, 3.764909649664302*^9, 3.765025440557434*^9},ExpressionUUID->"cdf03298-d6eb-44ae-8cf7-\ 207e2ac225c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F33", "=", RowBox[{"L3T", ".", "F3"}]}]], "Input", CellChangeTimes->{{3.764248457280222*^9, 3.7642484678120785`*^9}, { 3.7642485076706543`*^9, 3.76424851023182*^9}},ExpressionUUID->"b523f869-485d-4060-883a-\ 1f81db778694"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764248513787943*^9, 3.764495575090068*^9, 3.764495784576888*^9, 3.7644969329063444`*^9, 3.764498781047016*^9, 3.7645001917102556`*^9, 3.764768049674839*^9, 3.764909649696184*^9, 3.7650254407262616`*^9},ExpressionUUID->"b2ba7c36-2725-4bb6-84da-\ 6630f9d9e53b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "X1", ",", "X2", ",", "X3", ",", "X4", ",", "Y1", ",", "Y2", ",", "Y3", ",", "Y4", ",", "\[Zeta]", ",", "\[Eta]"}], "]"}]], "Input", CellChangeTimes->{{3.764135058995936*^9, 3.7641350952078876`*^9}, { 3.7641358424890327`*^9, 3.7641358496975985`*^9}},ExpressionUUID->"3f035ff0-1b8b-4262-8d89-\ 82d08f04e27f"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Quarto elemento \ \>", "Section", CellFrame->{{0, 0}, {0.5, 0.5}}, CellFrameColor->RGBColor[0, 0, 1], CellChangeTimes->{{3.759042511629591*^9, 3.7590426571327305`*^9}, { 3.7590428298532133`*^9, 3.7590429009498835`*^9}, {3.7590429363527265`*^9, 3.75904295943932*^9}, {3.7590429949961543`*^9, 3.7590430018917346`*^9}, { 3.764135522864072*^9, 3.764135552080039*^9}, {3.764156354769516*^9, 3.7641563555542355`*^9}}, TextAlignment->Left,ExpressionUUID->"766aad87-fcac-41f9-bc27-ad50ff4f0577"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640519612086596`*^9, 3.764051965505329*^9}},ExpressionUUID->"33537147-d1b3-4dfc-972e-\ 7f64851efe31"], Cell[BoxData["\<\"Funzioni di forma\"\>"], "Output", CellChangeTimes->{3.7640519705595274`*^9, 3.7642481555641813`*^9, 3.764495575136939*^9, 3.764496932989843*^9, 3.764768087100435*^9, 3.76490974895128*^9, 3.765025440776211*^9},ExpressionUUID->"db2d8bc5-92d8-4548-a89f-\ 0a788e23ca3a"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["N", "1"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "2"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "3"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["N", "4"], "=", " ", RowBox[{ FractionBox["1", "4"], RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640519721450853`*^9, 3.764052090917095*^9}, { 3.7640525225008235`*^9, 3.7640525268392587`*^9}},ExpressionUUID->"67d92e5c-e168-489f-b5ac-\ c19db2a83281"], Cell[CellGroupData[{ Cell[BoxData["\"\\""], "Input", CellChangeTimes->{{3.7640521238561935`*^9, 3.7640521264847145`*^9}},ExpressionUUID->"e35b6b27-fc95-49ef-904c-\ 6cf9ce5f0f76"], Cell[BoxData["\<\"Calcolo Jacobiano\"\>"], "Output", CellChangeTimes->{3.7640521272480097`*^9, 3.7640836169330626`*^9, 3.7641300054618535`*^9, 3.764135239389906*^9, 3.764135301337264*^9, 3.764248155585099*^9, 3.764495575184811*^9, 3.7644969330367084`*^9, 3.7647680871587553`*^9, 3.76490974905451*^9, 3.765025440829156*^9},ExpressionUUID->"c3e810fa-ab69-4d0b-8256-\ 22829d561a42"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"X1", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X4", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y3", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y4", "=", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.764053052326024*^9, 3.7640530937903967`*^9}, { 3.764135757664504*^9, 3.764135764040118*^9}, {3.764156531593774*^9, 3.764156545026472*^9}, {3.764768030213496*^9, 3.764768034309167*^9}},ExpressionUUID->"ada77395-c958-4287-aa2f-\ 02770bfec9a5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J4", "11"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, 3.7641351116814137`*^9, 3.7641359818177958`*^9, 3.764156549474229*^9},ExpressionUUID->"3f2c8d48-95a5-460a-984a-\ 94d7c2c6be6a"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{ 3.7640525455766735`*^9, 3.7640531291210055`*^9, 3.764053174317822*^9, 3.764055812364915*^9, 3.764083616951014*^9, 3.7641300055178504`*^9, 3.7641352396234264`*^9, 3.7641353019536524`*^9, {3.7641358359544287`*^9, 3.76413585723814*^9}, 3.764157113329468*^9, 3.7642481555952525`*^9, 3.7644955752327185`*^9, 3.764496933083573*^9, 3.7647680871887145`*^9, 3.7649097490804405`*^9, 3.7650254408836*^9},ExpressionUUID->"45a74b42-65c9-406e-94f1-e76c7846f7f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J4", "12"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, 3.764135113057331*^9, 3.7641359837611866`*^9, 3.7641565506751947`*^9},ExpressionUUID->"48df4325-a364-4c5a-a1f3-\ 57262aaf6b70"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640558131742644`*^9, 3.7640836169619846`*^9, 3.764130005543848*^9, 3.7641352398274775`*^9, 3.764135302147916*^9, 3.7641358587520475`*^9, 3.764157114113055*^9, 3.76424815561707*^9, 3.7644955752636003`*^9, 3.764496933130436*^9, 3.7647680872046494`*^9, 3.764909749104379*^9, 3.7650254409185643`*^9},ExpressionUUID->"b67c190d-abf3-436e-9f28-\ c8fbcb861dce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J4", "21"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "X1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "X2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "X3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "X4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.7640531281993155`*^9}, {3.7640531801895866`*^9, 3.7640531803301835`*^9}, {3.764053380020773*^9, 3.764053386765437*^9}, { 3.7641351141692624`*^9, 3.7641351160651484`*^9}, 3.764135986713011*^9, 3.7641565516183605`*^9},ExpressionUUID->"7ce61167-e7d7-481e-bde4-\ 30022eaec6e0"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}]], "Output", CellChangeTimes->{3.7640533870778627`*^9, 3.764055813952297*^9, 3.7640836169739523`*^9, 3.764130005572847*^9, 3.7641352400035334`*^9, 3.764135302180938*^9, 3.7641358605739384`*^9, 3.7641571151767173`*^9, 3.7642481556290274`*^9, 3.76449557529352*^9, 3.7644969331616793`*^9, 3.764768087221614*^9, 3.764909749119337*^9, 3.765025440954029*^9},ExpressionUUID->"e8357014-e55f-4872-b53f-\ 00f82779c5a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J4", "22"], "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}], "*", "Y1"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}], "*", "Y2"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}], "*", "Y3"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}], "*", "Y4"}]}]}]], "Input", CellChangeTimes->{{3.764052202256646*^9, 3.7640522308103533`*^9}, { 3.7640525132327447`*^9, 3.764052544725224*^9}, {3.764053100635581*^9, 3.764053173154291*^9}, {3.764053396121353*^9, 3.764053406016117*^9}, 3.7641351185615053`*^9, 3.7641359900573153`*^9, 3.7641565533381577`*^9},ExpressionUUID->"c87601d1-d007-45d3-a295-\ 7337025c23fd"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]], "Output", CellChangeTimes->{{3.7640531645271215`*^9, 3.7640531757495656`*^9}, 3.7640534069221573`*^9, 3.7640558151686163`*^9, 3.7640836169859204`*^9, 3.764130005602844*^9, 3.7641352401565247`*^9, 3.7641353022130175`*^9, 3.7641358618298635`*^9, 3.7641571160277863`*^9, 3.76424815564299*^9, 3.7644955753553557`*^9, 3.7644969331929226`*^9, 3.7647680872345505`*^9, 3.7649097491372986`*^9, 3.7650254409859953`*^9},ExpressionUUID->"1aeea4e1-fcab-47f1-833d-\ 8d41143258bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J4", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J4", "11"], ",", SubscriptBox["J4", "12"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J4", "21"], ",", SubscriptBox["J4", "22"]}], "}"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.764053883896584*^9, 3.7640539110881987`*^9}, 3.7641351251791224`*^9, {3.7641352696347075`*^9, 3.764135275920855*^9}, { 3.764135991617221*^9, 3.7641360232488327`*^9}, {3.7641565550831375`*^9, 3.7641565623390145`*^9}},ExpressionUUID->"9c4079bd-cf51-4cfa-ba92-\ 437b0bb1d969"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640539214461937`*^9, 3.764055816892096*^9, 3.764083616996891*^9, 3.7641300056318426`*^9, 3.7641352403805113`*^9, {3.7641352769602995`*^9, 3.764135302402294*^9}, 3.764135862798804*^9, 3.764157117140679*^9, 3.764248155655701*^9, 3.7644955753942504`*^9, 3.7644969332397833`*^9, 3.7647680872505083`*^9, 3.764909749168208*^9, 3.765025441018962*^9},ExpressionUUID->"ab198f9d-91b6-4812-9bff-\ b2c9193731f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", "J4", "]"}]], "Input", CellChangeTimes->{{3.764053926562662*^9, 3.7640539291101713`*^9}, 3.764135126785537*^9, 3.764136025392702*^9, 3.764156566540243*^9},ExpressionUUID->"e697ffb4-13aa-4bae-a474-\ 7c02ce0d097f"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7640539296837945`*^9, 3.764055818802743*^9, 3.7640836170098567`*^9, 3.7641300057418365`*^9, 3.7641352405175033`*^9, 3.7641353105632925`*^9, 3.764135864460702*^9, 3.764157118313591*^9, 3.7642481556696672`*^9, 3.7644955754401283`*^9, 3.764496933271027*^9, 3.764768087263502*^9, 3.7649097491841636`*^9, 3.7650254410539265`*^9},ExpressionUUID->"37844a06-924a-4613-aa0d-\ 6b9fb29eb270"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"J4I", "=", RowBox[{"Inverse", "[", "J4", "]"}]}]], "Input", CellChangeTimes->{{3.7640540665969844`*^9, 3.7640540742107306`*^9}, { 3.764135129521372*^9, 3.7641351307922945`*^9}, {3.764136026863613*^9, 3.7641360291599865`*^9}, {3.7641565677375546`*^9, 3.7641565695304904`*^9}},ExpressionUUID->"64e0e62b-06e6-43c7-94f3-\ ccf564bfbd3d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640540747188454`*^9, 3.764055819652989*^9, 3.7640836170248165`*^9, 3.7641300057698355`*^9, 3.764135240663496*^9, 3.7641353120572033`*^9, 3.7641358654536448`*^9, 3.7641571188591332`*^9, 3.7642481556826305`*^9, 3.764495575483015*^9, 3.7644969333022704`*^9, 3.7647680872774353`*^9, 3.76490974920411*^9, 3.7650254410903883`*^9},ExpressionUUID->"359d623b-7d72-4e5b-b327-\ 53a7d82b871d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "J4I", "]"}]], "Input", CellChangeTimes->{{3.7640540864462175`*^9, 3.764054101747073*^9}, 3.7641351331531515`*^9, 3.7641360304339075`*^9, 3.7641565717936707`*^9},ExpressionUUID->"cee50919-b06a-4180-80ba-\ 295c749a07a7"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]}, { RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}]} }, 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.7640540926784525`*^9, 3.764054102382371*^9}, 3.764055820533405*^9, 3.7640836170387793`*^9, 3.7641300058878274`*^9, 3.764135240822486*^9, 3.7641353143323145`*^9, 3.7641358665905733`*^9, 3.764157119444275*^9, 3.7642481556985865`*^9, 3.764495575527894*^9, 3.7644969333335147`*^9, 3.7647680872923965`*^9, 3.764909749222062*^9, 3.7650254411263514`*^9},ExpressionUUID->"06cf0c71-95ff-44e6-968d-\ 1b254ce35795"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SubscriptBox["B", "11"]], "Input", CellChangeTimes->{{3.764135135145047*^9, 3.7641351366564646`*^9}},ExpressionUUID->"0349fb91-47a8-4666-9efd-\ 4ed056fabaa3"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.764055825477598*^9, 3.764083617050747*^9, 3.764130005920827*^9, 3.764135316299576*^9, {3.764135872122239*^9, 3.7641358774229174`*^9}, 3.7641571224033523`*^9, 3.764248155712549*^9, 3.764495575567786*^9, 3.7644969333647556`*^9, 3.7647680873093514`*^9, 3.764909749245001*^9, 3.765025441164313*^9},ExpressionUUID->"6967cbb0-a390-4ae9-acaf-\ 69f05c7cea72"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "11"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764135230552132*^9, 3.7641352327765446`*^9}, {3.7641360371135025`*^9, 3.7641360399123335`*^9}, {3.764156575681853*^9, 3.76415657751412*^9}},ExpressionUUID->"885353d0-1649-4543-bd44-\ f818841b7579"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "12"], "=", RowBox[{ SubscriptBox["B", "14"], "=", RowBox[{ SubscriptBox["B", "16"], "=", RowBox[{ SubscriptBox["B", "18"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055376479505*^9}},ExpressionUUID->"9136fc69-a3a9-4e1e-9f45-\ 16b7c5abc4a9"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "13"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055354120462*^9}, {3.764135237073306*^9, 3.7641352506409073`*^9}, {3.7641360419452114`*^9, 3.764136047047921*^9}, { 3.7641565788022566`*^9, 3.764156600017607*^9}},ExpressionUUID->"8b5d5b5f-7fd4-45d8-a51e-\ fa04a26717c3"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "15"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, {3.7640553607972417`*^9, 3.7640553891314125`*^9}, {3.7641352376332717`*^9, 3.7641352528481755`*^9}, {3.7641360432076435`*^9, 3.764136048023861*^9}, { 3.764156579762205*^9, 3.76415659838614*^9}},ExpressionUUID->"cafcb261-aaab-4659-98b4-\ 56d4de2fd118"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "17"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640553954181614`*^9, 3.764055401321685*^9}, { 3.7641352386492105`*^9, 3.764135259296824*^9}, {3.7641360453765125`*^9, 3.7641360492237883`*^9}, {3.7641565805546207`*^9, 3.7641565974819818`*^9}},ExpressionUUID->"a1472f8b-8838-40b5-8834-\ f122e0a5aed5"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "21"], "=", RowBox[{ SubscriptBox["B", "23"], "=", RowBox[{ SubscriptBox["B", "25"], "=", RowBox[{ SubscriptBox["B", "27"], "=", "0"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055407003626*^9, 3.7640554171339436`*^9}, {3.7640554680533924`*^9, 3.7640554832691565`*^9}},ExpressionUUID->"0522baf8-d7b2-4ebd-ad0b-\ b80f40a6eca0"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "22"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "1"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764054708990363*^9, 3.7640547116836867`*^9}, { 3.7640547436492205`*^9, 3.764054744757365*^9}, 3.7640547798368473`*^9, { 3.7640552992467318`*^9, 3.764055319267466*^9}, 3.7640553564220533`*^9, { 3.764055421348941*^9, 3.764055448710491*^9}, {3.76413524104298*^9, 3.7641352497843027`*^9}, {3.764136050504712*^9, 3.764136057671788*^9}, { 3.764156581578391*^9, 3.764156596282447*^9}},ExpressionUUID->"c634faab-17ff-45cb-819d-\ 9fded4316095"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "24"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "2"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640554898717813`*^9, 3.7640555076565886`*^9}, { 3.7641352445452766`*^9, 3.764135253736122*^9}, {3.76413605200862*^9, 3.7641360586327295`*^9}, {3.7641565833225365`*^9, 3.7641565952104015`*^9}},ExpressionUUID->"f28947b4-b9b1-4a94-86be-\ ca9449ae98f5"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "26"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "3"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055493600891*^9, 3.7640555042727685`*^9}, { 3.7641352468736677`*^9, 3.764135251904233*^9}, {3.7641360536090336`*^9, 3.7641360595926714`*^9}, {3.764156584490418*^9, 3.764156593698225*^9}},ExpressionUUID->"a740b924-4de7-49e2-8e97-\ 1a17abccf04b"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "28"], "=", RowBox[{ RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ RowBox[{"J4I", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"D", "[", RowBox[{ SubscriptBox["N", "4"], ",", "\[Eta]"}], "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.764055496516323*^9, 3.764055500978362*^9}, { 3.7641352490486174`*^9, 3.7641352604087563`*^9}, {3.764136055495919*^9, 3.764136060808598*^9}, {3.7641565864104276`*^9, 3.764156592355554*^9}},ExpressionUUID->"a0499815-f6e5-4c2f-ac02-\ 5d54aaf2e091"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "31"], "=", SubscriptBox["B", "22"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556001063485`*^9, 3.764055607542718*^9}},ExpressionUUID->"cbee1c79-fd19-42a2-a0c0-\ e4f1662a4494"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "32"], "=", SubscriptBox["B", "11"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556131807594`*^9, 3.764055615067233*^9}},ExpressionUUID->"c3f67bbc-4459-4bbd-9ccf-\ 735e7849ed0a"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "33"], "=", SubscriptBox["B", "24"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556185237885`*^9, 3.764055623846227*^9}},ExpressionUUID->"c46abe93-942b-43c6-8d51-\ 551bd5c4a143"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "34"], "=", SubscriptBox["B", "13"]}], ";"}]], "Input", CellChangeTimes->{{3.76405562786751*^9, 3.7640556346021867`*^9}},ExpressionUUID->"4972c563-838f-4967-85be-\ e0e1079d063b"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "35"], "=", SubscriptBox["B", "26"]}], ";"}]], "Input", CellChangeTimes->{{3.764055638997919*^9, 3.7640556413861*^9}},ExpressionUUID->"1518c73b-998b-44dc-9dbd-a885b76df2d9"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "36"], "=", SubscriptBox["B", "15"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556452112074`*^9, 3.7640556474638987`*^9}},ExpressionUUID->"e3ac6b63-bad0-4ace-88b8-\ f491fc04d620"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "37"], "=", SubscriptBox["B", "28"]}], ";"}]], "Input", CellChangeTimes->{{3.7640556504999266`*^9, 3.764055652446862*^9}},ExpressionUUID->"6ae5b770-0451-44ec-8e7d-\ d735f87c6624"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "38"], "=", SubscriptBox["B", "17"]}], ";"}]], "Input", CellChangeTimes->{{3.764055657558312*^9, 3.764055665836204*^9}},ExpressionUUID->"e0ac0912-db0d-4e14-9ddc-\ 56f65c2c42f2"], Cell[BoxData[ RowBox[{ RowBox[{"B4", "=", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "11"], ",", SubscriptBox["B", "12"], ",", SubscriptBox["B", "13"], ",", SubscriptBox["B", "14"], ",", SubscriptBox["B", "15"], ",", SubscriptBox["B", "16"], ",", SubscriptBox["B", "17"], ",", SubscriptBox["B", "18"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "21"], ",", SubscriptBox["B", "22"], ",", SubscriptBox["B", "23"], ",", SubscriptBox["B", "24"], ",", SubscriptBox["B", "25"], ",", SubscriptBox["B", "26"], ",", SubscriptBox["B", "27"], ",", SubscriptBox["B", "28"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["B", "31"], ",", SubscriptBox["B", "32"], ",", SubscriptBox["B", "33"], ",", SubscriptBox["B", "34"], ",", SubscriptBox["B", "35"], ",", SubscriptBox["B", "36"], ",", SubscriptBox["B", "37"], ",", SubscriptBox["B", "38"]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764053968318405*^9, 3.7640539793665886`*^9}, { 3.7640556743401675`*^9, 3.7640557437660074`*^9}, 3.764135141296691*^9, 3.7641360748729997`*^9, 3.7641566023945537`*^9},ExpressionUUID->"0d258f7c-d7b9-4c3f-ab75-\ 0e2c85a79798"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "B4", "]"}]], "Input", CellChangeTimes->{{3.7640557454118495`*^9, 3.7640557487700086`*^9}, 3.7641351507926416`*^9, 3.764136075888939*^9, 3.764156604178181*^9},ExpressionUUID->"36e120c7-c7fa-4375-b0d3-\ 68e826e54cb7"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], "0", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Zeta]"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Eta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Zeta]"}], "2"], "+", FractionBox[ RowBox[{"1", "+", "\[Zeta]"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Eta]"}], ")"}]}], "+", FractionBox[ RowBox[{"1", "+", "\[Eta]"}], "2"]}], ")"}]}]}]} }, 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.764055749573391*^9, 3.764055843542247*^9, 3.7640836172127686`*^9, 3.7641300064727917`*^9, 3.7641353477495766`*^9, 3.764135886303477*^9, 3.764157136535625*^9, 3.7642481558901925`*^9, 3.7644955760485034`*^9, 3.764496933833396*^9, 3.7647680874699554`*^9, 3.7649097494820027`*^9, 3.7650254416742916`*^9},ExpressionUUID->"03697dc5-1b56-47b3-8584-\ 9b3fb8955675"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Nu]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Em", "=", "30000000000"}], ";"}]}], "Input", CellChangeTimes->{{3.76405600567418*^9, 3.764056016640541*^9}},ExpressionUUID->"17dd0f1b-42cd-4acf-9fda-\ 02e757c6bf70"], Cell[BoxData[ RowBox[{ RowBox[{"DD", "=", RowBox[{ FractionBox["Em", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], "*", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7640558926581006`*^9, 3.764056001131669*^9}},ExpressionUUID->"08076f17-8d0f-4cdb-a958-\ ec373e770c3a"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", "0.1"}], ";"}]], "Input", CellChangeTimes->{{3.764056028801811*^9, 3.7640560331810207`*^9}, 3.765025194365534*^9},ExpressionUUID->"1df0eb61-a159-4778-b64f-\ 43368731d7bd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K4", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"t", "*", RowBox[{ RowBox[{"Transpose", "[", "B4", "]"}], ".", "DD", ".", "B4"}], "*", RowBox[{"Det", "[", "J4", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Zeta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7640558755380754`*^9, 3.764055884872034*^9}, { 3.764056047778992*^9, 3.76405612274431*^9}, 3.764135157994223*^9, { 3.764135355369114*^9, 3.7641353585049243`*^9}, {3.7641361132727985`*^9, 3.7641361218237896`*^9}, {3.7641566061779203`*^9, 3.7641566098016367`*^9}},ExpressionUUID->"2a3cf097-fe1b-4129-9932-\ ae8f569f2878"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.6483516483516484`*^8", ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.357142857142857`*^8"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", "1.4835164835164833`*^9", ",", "4.120879120879121`*^7", ",", "1.6483516483516484`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516483516484`*^8", ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "4.120879120879121`*^7", ",", "1.4835164835164833`*^9", ",", RowBox[{"-", "5.357142857142857`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.120879120879121`*^7", ",", RowBox[{"-", "9.065934065934066`*^8"}], ",", "5.357142857142857`*^8", ",", RowBox[{"-", "7.417582417582417`*^8"}], ",", RowBox[{"-", "4.120879120879121`*^7"}], ",", "1.6483516483516484`*^8", ",", RowBox[{"-", "5.357142857142857`*^8"}], ",", "1.4835164835164833`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640561458338795`*^9, 3.764084952928542*^9, 3.7641300376991816`*^9, 3.76413539191192*^9, 3.7641359505196753`*^9, 3.764157154181895*^9, 3.7642481672162533`*^9, 3.7644955940194473`*^9, 3.7644969517524347`*^9, 3.7647680994141827`*^9, 3.764909761143633*^9, 3.765025488570269*^9},ExpressionUUID->"05d738ff-daf0-4961-abdb-\ 152bdc8ff238"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K4", "]"}]], "Input", CellChangeTimes->{{3.7640561509580083`*^9, 3.764056155461671*^9}, 3.7641351587766867`*^9, 3.7641361238806653`*^9, 3.7641566111782255`*^9},ExpressionUUID->"2464022a-9a2b-4484-91e9-\ e0c8a67ba567"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7"}, {"5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}]}, { RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8"}, { RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9", "4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}]}, { RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "5.357142857142857`*^8"}], "1.6483516483516484`*^8", "4.120879120879121`*^7", "1.4835164835164833`*^9", "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}]}, { RowBox[{"-", "5.357142857142857`*^8"}], RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", "1.4835164835164833`*^9", "4.120879120879121`*^7", "1.6483516483516484`*^8"}, {"1.6483516483516484`*^8", RowBox[{"-", "4.120879120879121`*^7"}], RowBox[{"-", "7.417582417582417`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "9.065934065934066`*^8"}], "4.120879120879121`*^7", "1.4835164835164833`*^9", RowBox[{"-", "5.357142857142857`*^8"}]}, {"4.120879120879121`*^7", RowBox[{"-", "9.065934065934066`*^8"}], "5.357142857142857`*^8", RowBox[{"-", "7.417582417582417`*^8"}], RowBox[{"-", "4.120879120879121`*^7"}], "1.6483516483516484`*^8", RowBox[{"-", "5.357142857142857`*^8"}], "1.4835164835164833`*^9"} }, 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.764056155936875*^9, 3.7641300379121685`*^9, 3.764135395053241*^9, 3.764135954108967*^9, 3.764157154235751*^9, 3.7642481672671175`*^9, 3.764495594088267*^9, 3.7644969518305387`*^9, 3.7647680994660425`*^9, 3.764909761198992*^9, 3.765025488838495*^9},ExpressionUUID->"1633e83f-c354-4445-b78b-\ f0da79e8b7eb"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}},ExpressionUUID->"452cea4c-fe89-4dac-b25a-\ 24738b6f2c78"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K4K1", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J4", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B4", "]"}], ".", "DD", ".", "B4"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7641345508512383`*^9, {3.764135170146033*^9, 3.7641351849761715`*^9}, {3.7641361285843973`*^9, 3.764136133959583*^9}, { 3.764156620401868*^9, 3.7641566240504875`*^9}},ExpressionUUID->"ba984869-788b-4faf-9273-\ 2109824bb0f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.7641345601402707`*^9, 3.7641354039183373`*^9, 3.764135957591756*^9, 3.7641571543225193`*^9, 3.764248167289059*^9, 3.7644955941481028`*^9, 3.764496951877409*^9, 3.7647680994949756`*^9, 3.764909761224922*^9, 3.7650254890283*^9},ExpressionUUID->"f8de4183-ecc4-4185-a973-4aad14bc215f"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", "0.5773502692"}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.764085053737568*^9},ExpressionUUID->"bcf345ea-0dcd-4992-93b0-\ 819c578aba0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K4K2", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J4", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B4", "]"}], ".", "DD", ".", "B4"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085052193915*^9, {3.7641345650639915`*^9, 3.7641345734159946`*^9}, {3.7641351713609586`*^9, 3.764135189527401*^9}, { 3.764136137728354*^9, 3.7641361434395313`*^9}, {3.7641566250977163`*^9, 3.7641566282019677`*^9}},ExpressionUUID->"9bd060a3-c8fa-4407-9960-\ ccc93f82ddf3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7", ",", "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, { 3.7640850270206704`*^9, 3.764085055865826*^9}, 3.7641345746969166`*^9, 3.7641354054403024`*^9, 3.7641359600541153`*^9, 3.7641571544142733`*^9, 3.764248167312996*^9, 3.764495594211955*^9, 3.7644969519555087`*^9, 3.764768099528874*^9, 3.7649097612638187`*^9, 3.765025489131195*^9},ExpressionUUID->"e9263152-de67-44b3-be58-\ 40ebdd679772"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, { 3.7640850595209875`*^9, 3.764085060209149*^9}},ExpressionUUID->"b61cd7d0-6e8c-4118-bb44-\ 22ee81dcf0df"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K4K3", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J4", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B4", "]"}], ".", "DD", ".", "B4"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.764085061825568*^9, {3.7641345777047358`*^9, 3.764134581456509*^9}, {3.7641351727048783`*^9, 3.7641351911523037`*^9}, { 3.7641361557128305`*^9, 3.764136159503108*^9}, {3.7641566306513643`*^9, 3.7641566336418095`*^9}},ExpressionUUID->"b989a01f-2be8-42b2-bdcc-\ 617a0dff1fb0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.920698613027827`*^8", ",", "3.3321882210874724`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3321882210874724`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.6456741862970567`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.645674186297057`*^8"}], ",", RowBox[{"-", "1.0571637943567026`*^8"}], ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776678`*^8", ",", "2.83266184956484`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.6667547522413182`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "2.1623172734673873`*^8", ",", "3.703506075114291`*^7", ",", "1.1270715326338226`*^7", ",", "1.9046738192193404`*^8", ",", RowBox[{"-", "1.8543956043622836`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "1.2448046464776681`*^8", ",", "3.7035060751142904`*^7", ",", "4.968838046212331`*^7", ",", "2.3924035037318632`*^7", ",", "1.127071532633822`*^7", ",", "2.83266184956484`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.928571428410994`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "2.83266184956484`*^7", ",", "1.127071532633822`*^7", ",", "2.3924035037318632`*^7", ",", "4.968838046212331`*^7", ",", "3.7035060751142904`*^7", ",", "1.2448046464776681`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.38216728388967`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "1.9046738192193404`*^8", ",", "1.1270715326338226`*^7", ",", "3.703506075114291`*^7", ",", "2.1623172734673873`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0571637943567026`*^8"}], ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.6667547522413182`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "2.83266184956484`*^7", ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "8.928571428410994`*^7"}], ",", "5.2552651441816723`*^8"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085063233661*^9, 3.7641345829089265`*^9, 3.764135406965717*^9, 3.7641359621699886`*^9, 3.764157154517006*^9, 3.7642481673349366`*^9, 3.7644955942767887`*^9, 3.7644969520180016`*^9, 3.764768099551816*^9, 3.7649097612937384`*^9, 3.7650254892236004`*^9},ExpressionUUID->"1e3882bc-e6da-41d4-854a-\ 802fc46ce429"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Zeta]", "=", "0.5773502692"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]", "=", RowBox[{"-", "0.5773502692"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7640837250075045`*^9, 3.7640837689124966`*^9}, 3.7640850696895638`*^9},ExpressionUUID->"a45152b4-3580-4599-988b-\ 06736027d9ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K4K4", "=", RowBox[{"1", "*", RowBox[{"Det", "[", "J4", "]"}], "*", "t", "*", RowBox[{ RowBox[{"Transpose", "[", "B4", "]"}], ".", "DD", ".", "B4"}]}]}]], "Input", CellChangeTimes->{{3.764083625305912*^9, 3.764083710167832*^9}, { 3.7640837730725965`*^9, 3.7640838065044203`*^9}, 3.7640838629305477`*^9, 3.764083898866242*^9, 3.7640850678735356`*^9, {3.7641345876081514`*^9, 3.764134589249052*^9}, {3.7641351751767273`*^9, 3.7641351922967415`*^9}, { 3.7641361615369844`*^9, 3.7641361749837084`*^9}, {3.7641566353463593`*^9, 3.7641566393625307`*^9}},ExpressionUUID->"bf4edbc5-c028-4553-af4a-\ 376582b6ff4b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.2552651441816723`*^8", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", RowBox[{"-", "1.6667547522413182`*^8"}], ",", "1.2448046464776678`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "8.928571428410994`*^7", ",", "2.1623172734673873`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.703506075114291`*^7"}], ",", "1.1270715326338226`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.6456741862970567`*^8"}], ",", "1.38216728388967`*^8", ",", "6.920698613027827`*^8", ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "8.928571428410994`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0571637943567026`*^8", ",", RowBox[{"-", "4.206288223684862`*^7"}], ",", RowBox[{"-", "3.3321882210874724`*^8"}], ",", "6.920698613027827`*^8", ",", "1.38216728388967`*^8", ",", RowBox[{"-", "4.6456741862970567`*^8"}], ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622833`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "1.9046738192193404`*^8"}], ",", RowBox[{"-", "4.206288223684859`*^7"}], ",", "1.38216728388967`*^8", ",", "2.1623172734673873`*^8", ",", "8.928571428410994`*^7", ",", "1.1270715326338226`*^7", ",", RowBox[{"-", "3.703506075114291`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6667547522413182`*^8"}], ",", RowBox[{"-", "1.8543956043622833`*^8"}], ",", "1.0571637943567026`*^8", ",", RowBox[{"-", "4.645674186297057`*^8"}], ",", "8.928571428410994`*^7", ",", "5.2552651441816723`*^8", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.2448046464776678`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2448046464776681`*^8", ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", "8.928571428410994`*^7", ",", "1.127071532633822`*^7", ",", RowBox[{"-", "2.83266184956484`*^7"}], ",", "4.968838046212331`*^7", ",", RowBox[{"-", "2.3924035037318632`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.83266184956484`*^7"}], ",", "1.127071532633822`*^7", ",", "8.928571428410994`*^7", ",", RowBox[{"-", "1.8543956043622836`*^8"}], ",", RowBox[{"-", "3.7035060751142904`*^7"}], ",", "1.2448046464776681`*^8", ",", RowBox[{"-", "2.3924035037318632`*^7"}], ",", "4.968838046212331`*^7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7640838114884915`*^9, 3.764083863665554*^9, 3.764083900946635*^9, 3.7640850270206704`*^9, 3.764085072923015*^9, 3.7641345917014136`*^9, 3.764135408857602*^9, 3.7641359643258553`*^9, 3.764157154615735*^9, 3.76424816735987*^9, 3.7644955943365993`*^9, 3.76449695206489*^9, 3.764768099580244*^9, 3.7649097613446026`*^9, 3.7650254893734465`*^9},ExpressionUUID->"533ef67a-32f6-440b-989c-\ 7b68dc5c9c85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K46", "=", RowBox[{"K4K1", "+", "K4K3", "+", "K4K4", "+", "K4K2"}]}]], "Input", CellChangeTimes->{{3.7640850745394583`*^9, 3.764085112856887*^9}, 3.76413459748857*^9, {3.7641351961930137`*^9, 3.7641352020476727`*^9}, { 3.764136162768417*^9, 3.7641361686795683`*^9}, {3.7641566414495115`*^9, 3.7641566462827315`*^9}},ExpressionUUID->"a6290948-920e-4996-b51c-\ bc3b9b93a4b3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7640850911478534`*^9, 3.7640851138011613`*^9}, 3.7641345987985144`*^9, 3.764135410249518*^9, 3.7641359659147587`*^9, 3.7641571560692368`*^9, 3.764248167375828*^9, 3.7644955943755016`*^9, 3.764496952111722*^9, 3.7647680996081696`*^9, 3.7649097613625565`*^9, 3.7650254895462694`*^9},ExpressionUUID->"073f74a3-3032-462e-ac24-\ 73b95a92fe3f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K46", "]"}]], "Input", CellChangeTimes->{{3.764134610940317*^9, 3.7641346154885473`*^9}, 3.76413520419305*^9, 3.7641361769041014`*^9, 3.7641566471703587`*^9},ExpressionUUID->"c9b2e355-0ecd-4e33-bb1b-\ 649d440e5717"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}]}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}]}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "1.483516483529812`*^9", "5.357142857142858`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}]}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "5.357142857142858`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}]}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9"} }, 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.7641346160665135`*^9, 3.7641354111554627`*^9, 3.7641359680146337`*^9, 3.764157157689948*^9, 3.7642481673907876`*^9, 3.764495594413393*^9, 3.7644969521585846`*^9, 3.764768099631112*^9, 3.7649097613854933`*^9, 3.765025489602213*^9},ExpressionUUID->"86883563-869e-411c-92a6-\ 48cdb298bcb4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K47", "=", RowBox[{"K4", "-", "K46"}]}]], "Input", CellChangeTimes->{{3.7641346208447485`*^9, 3.7641346243605356`*^9}, { 3.764135415793183*^9, 3.7641354282324286`*^9}, {3.764136178848002*^9, 3.7641361814718423`*^9}, {3.764156649281861*^9, 3.7641566514096346`*^9}},ExpressionUUID->"53e658d9-3ec6-43bb-a9ef-\ 9914a115cdc4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.0133284330368042`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0133284330368042`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", "2.9802322387695312`*^-8", ",", RowBox[{"-", "0.013328313827514648`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "5.960464477539063`*^-8", ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328194618225098`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.013328462839126587`", ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", "0.0133284330368042`", ",", "5.960464477539063`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"5.960464477539063`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", "5.960464477539063`*^-8", ",", "0.0133284330368042`", ",", RowBox[{"-", "1.1920928955078125`*^-7"}], ",", RowBox[{"-", "0.01332855224609375`"}], ",", RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.013328462839126587`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.013328462839126587`", ",", "4.470348358154297`*^-8", ",", RowBox[{"-", "0.013328194618225098`"}], ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.21540641784668`*^-8"}], ",", RowBox[{"-", "0.013328790664672852`"}], ",", "1.1920928955078125`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.470348358154297`*^-8"}], ",", "0.0133284330368042`", ",", RowBox[{"-", "5.960464477539063`*^-8"}], ",", RowBox[{"-", "0.013328313827514648`"}], ",", "4.470348358154297`*^-8", ",", "0.013328462839126587`", ",", "1.1920928955078125`*^-7", ",", RowBox[{"-", "0.01332855224609375`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.764134624829507*^9, {3.7641354135353203`*^9, 3.764135429255368*^9}, 3.7641359693455505`*^9, 3.764157159314125*^9, 3.764248167407753*^9, 3.764495594454283*^9, 3.764496952189828*^9, 3.764768099651055*^9, 3.7649097614094286`*^9, 3.7650254897685423`*^9},ExpressionUUID->"ce61b09b-82b1-4eb6-8b66-\ 1d6182075a39"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "K47", "]"}]], "Input", CellChangeTimes->{{3.7641354330836425`*^9, 3.7641354370249147`*^9}, 3.7641361865765505`*^9, 3.7641566527220993`*^9},ExpressionUUID->"d483318f-c6ac-4a3c-88c1-\ 8068ab9c0f0e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328313827514648`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}]}, { RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.0133284330368042`"}, {"0.0133284330368042`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.01332855224609375`"}], "5.960464477539063`*^-8", "0.013328462839126587`", "2.9802322387695312`*^-8", RowBox[{"-", "0.013328313827514648`"}], RowBox[{"-", "5.960464477539063`*^-8"}]}, {"4.470348358154297`*^-8", "0.013328462839126587`", "5.960464477539063`*^-8", RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "5.21540641784668`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328194618225098`"}]}, { RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.013328462839126587`", RowBox[{"-", "4.470348358154297`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], RowBox[{"-", "1.1920928955078125`*^-7"}], "0.0133284330368042`", "5.960464477539063`*^-8"}, {"5.960464477539063`*^-8", RowBox[{"-", "0.013328194618225098`"}], "5.960464477539063`*^-8", "0.0133284330368042`", RowBox[{"-", "1.1920928955078125`*^-7"}], RowBox[{"-", "0.01332855224609375`"}], RowBox[{"-", "4.470348358154297`*^-8"}], "0.013328462839126587`"}, {"0.013328462839126587`", "4.470348358154297`*^-8", RowBox[{"-", "0.013328194618225098`"}], RowBox[{"-", "5.960464477539063`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.21540641784668`*^-8"}], RowBox[{"-", "0.013328790664672852`"}], "1.1920928955078125`*^-7"}, { RowBox[{"-", "4.470348358154297`*^-8"}], "0.0133284330368042`", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "0.013328313827514648`"}], "4.470348358154297`*^-8", "0.013328462839126587`", "1.1920928955078125`*^-7", RowBox[{"-", "0.01332855224609375`"}]} }, 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.764135437577882*^9, 3.7641571609449816`*^9, 3.7642481674247103`*^9, 3.7644955944921865`*^9, 3.7644969522210703`*^9, 3.7647680996650186`*^9, 3.7649097614263835`*^9, 3.765025489824485*^9},ExpressionUUID->"b60a0e2b-8af6-47d2-a200-\ 6de8a4409125"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"L4", "=", RowBox[{"(", GridBox[{ {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156022422739*^9, 3.7641561085859804`*^9}, 3.7641561740051484`*^9, 3.764156654595332*^9, {3.7641568633151855`*^9, 3.7641568912764263`*^9}, {3.764498790147859*^9, 3.764498797602193*^9}, { 3.7645000125732346`*^9, 3.7645000242642326`*^9}, {3.7647680603257933`*^9, 3.764768082709809*^9}},ExpressionUUID->"c6ac17e3-fe8c-4a86-990c-\ 72049fc03c4a"], Cell[BoxData[ RowBox[{ RowBox[{"L4T", "=", RowBox[{"Transpose", "[", "L4", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764156181627759*^9, 3.764156191753677*^9}, { 3.764156655666134*^9, 3.764156657146204*^9}},ExpressionUUID->"20577418-c133-496a-943a-\ 6ab76226ddf5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KT4", "=", RowBox[{"L4T", ".", "K46", ".", "L4"}]}]], "Input", CellChangeTimes->{{3.7641562038600893`*^9, 3.7641562733942194`*^9}, { 3.7641566588825293`*^9, 3.76415666179348*^9}},ExpressionUUID->"fb50a87c-89ee-41d6-9e8f-\ 1e3ec360a553"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.4835164835298119`*^9", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", "1.4835164835298119`*^9", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.1208791208791256`*^7", ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "5.3571428571428573`*^8", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.120879120879124`*^7"}], ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`", ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "4.120879120879126`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.6483516482183638`*^8", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", "5.3571428571428573`*^8", ",", "0.`", ",", "0.`", ",", "1.483516483529812`*^9", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "4.120879120879126`*^7", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "5.3571428571428573`*^8", ",", RowBox[{"-", "7.417582417449133`*^8"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.357142857142858`*^8"}], ",", "1.4835164835298119`*^9", ",", RowBox[{"-", "4.1208791208791256`*^7"}], ",", "1.6483516482183638`*^8", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", "1.6483516482183638`*^8", ",", "4.1208791208791256`*^7", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", "1.483516483529812`*^9", ",", "5.357142857142858`*^8", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "5.3571428571428573`*^8"}], ",", RowBox[{"-", "7.417582417449135`*^8"}], ",", RowBox[{"-", "4.120879120879127`*^7"}], ",", RowBox[{"-", "9.06593406606735`*^8"}], ",", "0.`", ",", "0.`", ",", "4.1208791208791256`*^7", ",", "1.6483516482183638`*^8", ",", "5.357142857142858`*^8", ",", "1.4835164835298119`*^9", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.76415627521754*^9, 3.764157164231855*^9, 3.7642481674655876`*^9, 3.764495594595905*^9, 3.7644969523304195`*^9, 3.764498801647169*^9, 3.7645000263262453`*^9, 3.7647680997009487`*^9, 3.7649097614702663`*^9, 3.765025489974332*^9},ExpressionUUID->"e7f84101-0989-4e58-a6aa-\ 53d98a419033"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "KT4", "]"}]], "Input", CellChangeTimes->{{3.764156278194994*^9, 3.7641562829779353`*^9}, 3.7641566645944977`*^9},ExpressionUUID->"b5514f57-1e27-4bb4-b0f3-\ eea3ccbbea88"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^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.`", "0.`", "0.`", "1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}], RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "1.483516483529812`*^9", "5.357142857142858`*^8", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.357142857142858`*^8", "1.4835164835298119`*^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.`"} }, 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.7641562836606216`*^9, 3.764157165627428*^9, 3.7642481674855347`*^9, 3.7644955946438055`*^9, 3.764496952377285*^9, 3.764498805630637*^9, 3.7645000280446243`*^9, 3.764768099722863*^9, 3.764909761490213*^9, 3.7650254900437603`*^9},ExpressionUUID->"972613d5-6373-47cc-8e96-\ 2bf3c5f5b737"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"F", "=", "1000"}], ";"}]], "Input", CellChangeTimes->{{3.7642483699187374`*^9, 3.764248373325842*^9}},ExpressionUUID->"11c6d545-aa3b-4dfe-85bf-\ a9809eacb317"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F4", "=", RowBox[{"(", GridBox[{ {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"} }], ")"}]}]], "Input", CellChangeTimes->{{3.7642483359749823`*^9, 3.7642483667328515`*^9}, { 3.7642484300340366`*^9, 3.7642484520356035`*^9}, {3.764248535330259*^9, 3.7642485430318303`*^9}, 3.7644968822861023`*^9},ExpressionUUID->"d3585a2e-4d8d-4f10-8faa-\ 66f44990506d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7642483773305387`*^9, 3.764248455572081*^9, {3.764248539383428*^9, 3.764248552133603*^9}, 3.764495594701622*^9, 3.7644969524241776`*^9, 3.764768099744805*^9, 3.764909761533098*^9, 3.7650254901446576`*^9},ExpressionUUID->"d28ec2d3-7c77-4ea8-b2a9-\ deb921721177"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F44", "=", RowBox[{"L4T", ".", "F4"}]}]], "Input", CellChangeTimes->{{3.764248457280222*^9, 3.7642484678120785`*^9}, { 3.7642485543968554`*^9, 3.76424855645544*^9}},ExpressionUUID->"52c0f43d-6199-4978-bc7e-\ 856ce0751152"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764248558404175*^9, 3.7644955947315435`*^9, 3.764496952455391*^9, 3.7644988117595453`*^9, 3.76450019981452*^9, 3.7647680997577696`*^9, 3.764909761562021*^9, 3.7650254901931076`*^9},ExpressionUUID->"bb905908-9692-4b7f-9657-\ a490fa357dd4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"KTT", "=", RowBox[{"KT1", "+", "KT2", "+", "KT3", "+", "KT4"}]}], ";"}]], "Input", CellChangeTimes->{{3.764157175063445*^9, 3.764157195874717*^9}},ExpressionUUID->"9231e8d7-9006-4ae8-bb20-\ 7b95e862bc08"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "KTT", "]"}]], "Input", CellChangeTimes->{{3.764157190054287*^9, 3.764157193898653*^9}},ExpressionUUID->"3e1de355-a302-4fc8-aac0-\ 437fae0031e5"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.4835164835298119`*^9", "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"5.3571428571428573`*^8", "1.4835164835298119`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "2.9670329670596237`*^9", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "3.2967032964367276`*^8", "1.4901161193847656`*^-8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, { RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", "0.`", "2.9670329670596237`*^9", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "7.450580596923828`*^-9", RowBox[{"-", "1.81318681321347`*^9"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], "4.1208791208791256`*^7", "1.4835164835298119`*^9", RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", RowBox[{"-", "5.3571428571428573`*^8"}], "1.4835164835298119`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"}, {"1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "2.9670329670596237`*^9", RowBox[{"-", "5.960464477539063`*^-8"}], RowBox[{"-", "1.81318681321347`*^9"}], "7.450580596923828`*^-9", "0.`", "0.`", "1.6483516482183638`*^8", "4.1208791208791256`*^7", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "0.`", "0.`"}, {"4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.960464477539063`*^-8"}], "2.9670329670596237`*^9", "0.`", "3.2967032964367276`*^8", "0.`", "0.`", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`"}, { RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "3.2967032964367276`*^8", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "1.81318681321347`*^9"}], RowBox[{"-", "1.4901161193847656`*^-8"}], "5.934065934119247`*^9", "0.`", RowBox[{"-", "1.81318681321347`*^9"}], "7.450580596923828`*^-9", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "3.2967032964367276`*^8", "1.4901161193847656`*^-8", RowBox[{"-", "7.417582417449133`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}]}, { RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "1.4901161193847656`*^-8"}], RowBox[{"-", "1.81318681321347`*^9"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "3.2967032964367276`*^8", "0.`", "5.934065934119247`*^9", "0.`", "3.2967032964367276`*^8", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "7.450580596923828`*^-9", RowBox[{"-", "1.81318681321347`*^9"}], RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449133`*^8"}]}, {"0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "1.81318681321347`*^9"}], RowBox[{"-", "1.4901161193847656`*^-8"}], "2.9670329670596237`*^9", "5.960464477539063`*^-8", "0.`", "0.`", RowBox[{"-", "7.417582417449133`*^8"}], "5.3571428571428573`*^8", "1.6483516482183638`*^8", RowBox[{"-", "4.120879120879124`*^7"}]}, {"0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "0.`", "3.2967032964367276`*^8", "5.960464477539063`*^-8", "2.9670329670596237`*^9", "0.`", "0.`", "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449135`*^8"}], "4.120879120879126`*^7", RowBox[{"-", "9.06593406606735`*^8"}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "1.6483516482183638`*^8", RowBox[{"-", "4.1208791208791256`*^7"}], RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", "0.`", "0.`", "1.483516483529812`*^9", RowBox[{"-", "5.357142857142858`*^8"}], RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "4.1208791208791256`*^7", RowBox[{"-", "9.06593406606735`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "0.`", "0.`", RowBox[{"-", "5.357142857142858`*^8"}], "1.4835164835298119`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "3.2967032964367276`*^8", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], "5.3571428571428573`*^8", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "2.967032967059624`*^9", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], "4.120879120879126`*^7"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "1.4901161193847656`*^-8"}], RowBox[{"-", "1.81318681321347`*^9"}], "5.3571428571428573`*^8", RowBox[{"-", "7.417582417449133`*^8"}], "4.1208791208791256`*^7", "1.6483516482183638`*^8", "0.`", "2.9670329670596237`*^9", RowBox[{"-", "4.1208791208791256`*^7"}], "1.6483516482183638`*^8"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "5.3571428571428573`*^8"}], "1.6483516482183638`*^8", "4.1208791208791256`*^7", "0.`", "0.`", RowBox[{"-", "9.06593406606735`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], "1.483516483529812`*^9", "5.357142857142858`*^8"}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"-", "5.3571428571428573`*^8"}], RowBox[{"-", "7.417582417449135`*^8"}], RowBox[{"-", "4.120879120879127`*^7"}], RowBox[{"-", "9.06593406606735`*^8"}], "0.`", "0.`", "4.1208791208791256`*^7", "1.6483516482183638`*^8", "5.357142857142858`*^8", "1.4835164835298119`*^9"} }, 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.764157198294918*^9, 3.7642481675503607`*^9, 3.764495594862192*^9, 3.7644969525491185`*^9, 3.764498817010743*^9, 3.76450004414987*^9, 3.7647680997916794`*^9, 3.764909761591941*^9, 3.7650254902940035`*^9},ExpressionUUID->"80ced666-21bd-4d27-8f91-\ 60e638746977"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SymmetricMatrixQ", "[", "KTT", "]"}]], "Input", CellChangeTimes->{{3.7642486401189737`*^9, 3.7642486481492624`*^9}},ExpressionUUID->"540601b8-f6aa-4eff-a238-\ e76ce4520786"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7642486494272213`*^9, 3.764495594978883*^9, 3.7644969525959845`*^9, 3.764498865423152*^9, 3.7647680998405485`*^9, 3.764909761630837*^9, 3.765025490361435*^9},ExpressionUUID->"84c8a5b8-5654-4510-a3b3-\ 906454284e7a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PositiveDefiniteMatrixQ", "[", "KTT", "]"}]], "Input", CellChangeTimes->{{3.7642486524883575`*^9, 3.764248666870903*^9}},ExpressionUUID->"88ac39e1-1300-425d-beba-\ e1abe47b2bc6"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.764248667520957*^9, 3.764495595081608*^9, 3.7644969526272573`*^9, 3.7644988663448105`*^9, 3.764768099880443*^9, 3.7649097616438036`*^9, 3.765025490410385*^9},ExpressionUUID->"ba60c2c9-64ab-4a24-97a0-\ 46070ca62e59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F", "=", RowBox[{"F11", "+", "F22", "+", "F33", "+", "F44"}]}]], "Input", CellChangeTimes->{{3.764248560594455*^9, 3.764248566573086*^9}},ExpressionUUID->"2cb49c76-6857-40c1-ae18-\ 51a0cdeb45ad"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1000", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.764248567664516*^9, 3.764495595154414*^9, 3.7644969526584682`*^9, 3.764498867538867*^9, 3.764500209905897*^9, 3.76476809989143*^9, 3.76490976167472*^9, 3.7650254904608335`*^9},ExpressionUUID->"7b95e50c-0384-4a72-b812-\ ac01bb29743f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Kfinale", "=", RowBox[{"KTT", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{ "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "10", ",", "11", ",", "12", ",", "15", ",", "16", ",", "17", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{ "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "10", ",", "11", ",", "12", ",", "15", ",", "16", ",", "17", ",", "18"}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7644970134903917`*^9, 3.764497020566904*^9}, { 3.7644970506636996`*^9, 3.764497053151023*^9}, {3.7644976764380417`*^9, 3.7644976778596067`*^9}, 3.7645000701441493`*^9, {3.7649096754154882`*^9, 3.764909706383071*^9}},ExpressionUUID->"7a0abdaa-4d44-4ece-ad41-\ 896139d6ad31"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Inverse", "[", "Kfinale", "]"}]], "Input", CellChangeTimes->{{3.7644970971683936`*^9, 3.764497102844664*^9}, { 3.7644995848670063`*^9, 3.764499585226296*^9}, {3.7645000781323123`*^9, 3.7645000791320763`*^9}},ExpressionUUID->"4b378fa5-1fb0-4fbf-adcd-\ c39f535a28fd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "6.843685559488603`*^-10", ",", "2.595949222301598`*^-10", ",", "6.184064103581751`*^-10", ",", "6.848620747672089`*^-10", ",", "5.3721876527173384`*^-11", ",", "1.9008334422823159`*^-10", ",", "1.468119829335365`*^-10", ",", "6.542481214364119`*^-10", ",", RowBox[{"-", "1.7235607035166217`*^-10"}], ",", "2.1696301561389978`*^-10", ",", RowBox[{"-", "2.5125020964916963`*^-10"}], ",", "5.897475549683568`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.5959492223015987`*^-10", ",", "8.115022043864799`*^-10", ",", "2.5853140252798955`*^-10", ",", "7.40034480216043`*^-10", ",", "3.530727686577793`*^-11", ",", "4.821875317819098`*^-10", ",", "1.0122181528149602`*^-10", ",", "8.24890354207169`*^-10", ",", RowBox[{"-", "2.1696301561389967`*^-10"}], ",", "4.34014003227094`*^-10", ",", RowBox[{"-", "2.557448502946503`*^-10"}], ",", "8.109102732137118`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.184064103581753`*^-10", ",", "2.5853140252798955`*^-10", ",", "1.43839356011761`*^-9", ",", "1.0668658387756889`*^-9", ",", "1.2017321581383163`*^-10", ",", "1.7769018359235277`*^-10", ",", "9.95449570701549`*^-11", ",", "8.448702987355871`*^-10", ",", RowBox[{"-", "2.5125020964916974`*^-10"}], ",", "2.557448502946506`*^-10", ",", RowBox[{"-", "3.2678366731072457`*^-10"}], ",", "7.478840311961621`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.848620747672089`*^-10", ",", "7.400344802160431`*^-10", ",", "1.0668658387756885`*^-9", ",", "2.5036892377639356`*^-9", ",", RowBox[{"-", "5.8188628849076204`*^-11"}], ",", "7.284991048195728`*^-10", ",", RowBox[{"-", "5.4032734704981306`*^-11"}], ",", "1.8340316835711639`*^-9", ",", RowBox[{"-", "5.897475549683566`*^-10"}], ",", "8.109102732137119`*^-10", ",", RowBox[{"-", "7.478840311961614`*^-10"}], ",", "1.658883191203385`*^-9"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.37218765271734`*^-11", ",", "3.530727686577787`*^-11", ",", "1.2017321581383166`*^-10", ",", RowBox[{"-", "5.81886288490763`*^-11"}], ",", "2.602036398658934`*^-10", ",", RowBox[{"-", "9.693522803355793`*^-27"}], ",", "1.8688789498424562`*^-10", ",", "2.5849394142282115`*^-26", ",", "5.3721876527173326`*^-11", ",", RowBox[{"-", "3.5307276865777884`*^-11"}], ",", "1.2017321581383153`*^-10", ",", "5.818862884907635`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.9008334422823153`*^-10", ",", "4.821875317819098`*^-10", ",", "1.776901835923526`*^-10", ",", "7.284991048195726`*^-10", ",", "2.5849394142282115`*^-26", ",", "5.745624791129888`*^-10", ",", RowBox[{"-", "1.2924697071141057`*^-26"}], ",", "6.960244338959099`*^-10", ",", RowBox[{"-", "1.9008334422823148`*^-10"}], ",", "4.821875317819098`*^-10", ",", RowBox[{"-", "1.776901835923525`*^-10"}], ",", "7.284991048195726`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.4681198293353655`*^-10", ",", "1.0122181528149598`*^-10", ",", "9.954495707015496`*^-11", ",", RowBox[{"-", "5.403273470498127`*^-11"}], ",", "1.8688789498424562`*^-10", ",", RowBox[{"-", "8.077935669463161`*^-27"}], ",", "5.51644978353915`*^-10", ",", "6.139231108792002`*^-26", ",", "1.4681198293353645`*^-10", ",", RowBox[{"-", "1.01221815281496`*^-10"}], ",", "9.954495707015478`*^-11", ",", "5.4032734704981396`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.542481214364119`*^-10", ",", "8.24890354207169`*^-10", ",", "8.44870298735587`*^-10", ",", "1.8340316835711639`*^-9", ",", "1.0339757656912846`*^-25", ",", "6.960244338959101`*^-10", ",", "5.169878828456423`*^-26", ",", "2.0526681913705797`*^-9", ",", RowBox[{"-", "6.542481214364115`*^-10"}], ",", "8.24890354207169`*^-10", ",", RowBox[{"-", "8.448702987355862`*^-10"}], ",", "1.8340316835711635`*^-9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.7235607035166214`*^-10"}], ",", RowBox[{"-", "2.1696301561389967`*^-10"}], ",", RowBox[{"-", "2.512502096491697`*^-10"}], ",", RowBox[{"-", "5.897475549683565`*^-10"}], ",", "5.37218765271733`*^-11", ",", RowBox[{"-", "1.9008334422823148`*^-10"}], ",", "1.4681198293353645`*^-10", ",", RowBox[{"-", "6.542481214364115`*^-10"}], ",", "6.843685559488598`*^-10", ",", RowBox[{"-", "2.5959492223015966`*^-10"}], ",", "6.184064103581744`*^-10", ",", RowBox[{"-", "6.848620747672084`*^-10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "2.1696301561389973`*^-10", ",", "4.3401400322709396`*^-10", ",", "2.5574485029465045`*^-10", ",", "8.109102732137117`*^-10", ",", RowBox[{"-", "3.5307276865777865`*^-11"}], ",", "4.821875317819098`*^-10", ",", RowBox[{"-", "1.0122181528149598`*^-10"}], ",", "8.248903542071687`*^-10", ",", RowBox[{"-", "2.5959492223015966`*^-10"}], ",", "8.1150220438648`*^-10", ",", RowBox[{"-", "2.5853140252798913`*^-10"}], ",", "7.400344802160427`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5125020964916963`*^-10"}], ",", RowBox[{"-", "2.557448502946504`*^-10"}], ",", RowBox[{"-", "3.2678366731072446`*^-10"}], ",", RowBox[{"-", "7.478840311961614`*^-10"}], ",", "1.2017321581383148`*^-10", ",", RowBox[{"-", "1.7769018359235258`*^-10"}], ",", "9.95449570701548`*^-11", ",", RowBox[{"-", "8.448702987355863`*^-10"}], ",", "6.184064103581746`*^-10", ",", RowBox[{"-", "2.5853140252798924`*^-10"}], ",", "1.4383935601176087`*^-9", ",", RowBox[{"-", "1.0668658387756878`*^-9"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "5.897475549683568`*^-10", ",", "8.109102732137117`*^-10", ",", "7.47884031196162`*^-10", ",", "1.658883191203385`*^-9", ",", "5.8188628849076385`*^-11", ",", "7.284991048195726`*^-10", ",", "5.4032734704981383`*^-11", ",", "1.8340316835711635`*^-9", ",", RowBox[{"-", "6.848620747672084`*^-10"}], ",", "7.400344802160428`*^-10", ",", RowBox[{"-", "1.0668658387756878`*^-9"}], ",", "2.503689237763935`*^-9"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.764497103438246*^9, 3.7644976814091325`*^9, 3.764499185047042*^9, { 3.764499558179989*^9, 3.7644995861322765`*^9}, 3.7645000797098694`*^9, 3.764768099942275*^9, 3.7649097617215943`*^9, 3.765025490569722*^9},ExpressionUUID->"4122406d-56da-4e25-917b-\ 66d9a00b8fc9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "F", "]"}]], "Input", CellChangeTimes->{{3.764248570233015*^9, 3.764248576726272*^9}},ExpressionUUID->"ded7f18f-3e90-434e-94af-\ 0329c3448151"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"0"}, {"0"}, {"1000"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"0"}, {"1000"}, {"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" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7642485772813215`*^9, 3.7644955951823654`*^9, 3.7644969526897163`*^9, 3.764500212037024*^9, 3.764768099965227*^9, 3.764909761750518*^9, 3.76502549065963*^9},ExpressionUUID->"3a75ec1b-ff60-4534-b064-71e286153b53"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Ffinale", "=", RowBox[{"F", "[", RowBox[{"[", RowBox[{"{", RowBox[{ "3", ",", "4", ",", "5", ",", "6", ",", "9", ",", "10", ",", "11", ",", "12", ",", "15", ",", "16", ",", "17", ",", "18"}], "}"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.764497062839243*^9, 3.7644970760647717`*^9}, { 3.764500222841668*^9, 3.7645002425666428`*^9}, {3.7649097240889716`*^9, 3.7649097439369535`*^9}},ExpressionUUID->"a47dfff2-0f49-4ad9-9873-\ 77d75933a688"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U", "=", RowBox[{ RowBox[{"Inverse", "[", "Kfinale", "]"}], ".", "Ffinale"}]}]], "Input", CellChangeTimes->{{3.7642485824359913`*^9, 3.7642486150633*^9}, { 3.7644970804074326`*^9, 3.764497087720193*^9}},ExpressionUUID->"c84cc1a0-591e-494c-98aa-\ 1f4c86b9e60c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "3.671562007090054`*^-7", "}"}], ",", RowBox[{"{", "2.7865522333392333`*^-9", "}"}], ",", RowBox[{"{", "1.1116098928068852`*^-6", "}"}], ",", RowBox[{"{", "3.1898180757952703`*^-7", "}"}], ",", RowBox[{"{", "2.403464316276632`*^-7", "}"}], ",", RowBox[{"{", "1.0587911840678754`*^-22", "}"}], ",", RowBox[{"{", "1.9908991414030973`*^-7", "}"}], ",", RowBox[{"{", "8.470329472543003`*^-22", "}"}], ",", RowBox[{"{", "3.671562007090048`*^-7", "}"}], ",", RowBox[{"{", RowBox[{"-", "2.786552233338651`*^-9"}], "}"}], ",", RowBox[{"{", "1.1116098928068842`*^-6", "}"}], ",", RowBox[{"{", RowBox[{"-", "3.1898180757952587`*^-7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7642486166221733`*^9, 3.764495595527417*^9, 3.7644969530177603`*^9, 3.7644970884543695`*^9, 3.76449770647995*^9, 3.764500246143923*^9, 3.7647680999921427`*^9, 3.7649097617824316`*^9, 3.7650254907740126`*^9},ExpressionUUID->"bd2c91ce-a01d-49b1-a412-\ 5e9d588d6ea2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "U", "]"}]], "Input", CellChangeTimes->{{3.7645002505353622`*^9, 3.7645002543368635`*^9}},ExpressionUUID->"90b4812e-1ff4-472e-ba46-\ bea660ea88eb"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3.671562007090054`*^-7"}, {"2.7865522333392333`*^-9"}, {"1.1116098928068852`*^-6"}, {"3.1898180757952703`*^-7"}, {"2.403464316276632`*^-7"}, {"1.0587911840678754`*^-22"}, {"1.9908991414030973`*^-7"}, {"8.470329472543003`*^-22"}, {"3.671562007090048`*^-7"}, { RowBox[{"-", "2.786552233338651`*^-9"}]}, {"1.1116098928068842`*^-6"}, { RowBox[{"-", "3.1898180757952587`*^-7"}]} }, 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.764500255086667*^9, 3.7647681000170765`*^9, 3.764909761801381*^9, 3.7650254908229628`*^9},ExpressionUUID->"4de2db60-9670-4ae6-b67e-\ ac2e7dcd07f8"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1920, 997}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 366, 9, 114, "Title",ExpressionUUID->"788cd088-1e51-4064-8779-1ca74dad0660"], Cell[CellGroupData[{ Cell[971, 35, 470, 10, 110, "Section",ExpressionUUID->"af15dcdd-b365-4233-a52a-c1c5eba2862c"], Cell[CellGroupData[{ Cell[1466, 49, 179, 3, 28, "Input",ExpressionUUID->"43f6bd7c-b016-4777-aab6-5c45a9e05d26"], Cell[1648, 54, 369, 6, 32, "Output",ExpressionUUID->"18dd653e-e59a-482f-878c-33d61cd409b0"] }, Open ]], Cell[2032, 63, 1206, 40, 186, "Input",ExpressionUUID->"e2e6bcc2-aa9e-409e-87f3-06523cb4a978"], Cell[CellGroupData[{ Cell[3263, 107, 181, 3, 28, "Input",ExpressionUUID->"83b20638-cbd1-449e-b8d7-04808ba96127"], Cell[3447, 112, 472, 7, 32, "Output",ExpressionUUID->"c2964923-50af-40b8-985b-afa5b037d83e"] }, Open ]], Cell[3934, 122, 732, 20, 162, "Input",ExpressionUUID->"6c6c2b42-8dec-4cdd-84a5-5f773a118cd9"], Cell[CellGroupData[{ Cell[4691, 146, 830, 25, 28, "Input",ExpressionUUID->"4215048c-7f8c-4db2-81a4-a3ae6f78b715"], Cell[5524, 173, 637, 13, 55, "Output",ExpressionUUID->"68149ef0-e8e5-4b65-954f-150a9e819920"] }, Open ]], Cell[CellGroupData[{ Cell[6198, 191, 826, 25, 28, "Input",ExpressionUUID->"5e7cf1d1-67be-44ba-937c-7b3afe79fb9f"], Cell[7027, 218, 695, 16, 55, "Output",ExpressionUUID->"90f0c990-ff82-4a6d-98ed-b4e206bdc577"] }, Open ]], Cell[CellGroupData[{ Cell[7759, 239, 948, 26, 28, "Input",ExpressionUUID->"2d0119ea-6ccc-41de-82c0-b6d38c85356f"], Cell[8710, 267, 653, 15, 55, "Output",ExpressionUUID->"b8e92bc8-abef-4646-92be-878399f50228"] }, Open ]], Cell[CellGroupData[{ Cell[9400, 287, 870, 25, 28, "Input",ExpressionUUID->"b2dcef05-b24e-43d6-bc13-c5ef3759752f"], Cell[10273, 314, 653, 13, 55, "Output",ExpressionUUID->"04f94ede-b040-4723-ba90-a2a44f930d77"] }, Open ]], Cell[CellGroupData[{ Cell[10963, 332, 565, 16, 28, "Input",ExpressionUUID->"e0ba12c0-53da-4fe0-811e-a37fda99a0a7"], Cell[11531, 350, 1374, 40, 55, "Output",ExpressionUUID->"58879cb1-fa07-4fc5-8d51-7eb9eebc3be6"] }, Open ]], Cell[CellGroupData[{ Cell[12942, 395, 208, 4, 28, "Input",ExpressionUUID->"b584874a-a956-4321-a4f7-50350d193d40"], Cell[13153, 401, 472, 7, 32, "Output",ExpressionUUID->"872f1b46-eb37-4292-abfe-fba95e6b51fb"] }, Open ]], Cell[CellGroupData[{ Cell[13662, 413, 267, 6, 28, "Input",ExpressionUUID->"71abb7b0-5e0d-41aa-b4cb-8d46f5055909"], Cell[13932, 421, 1347, 39, 55, "Output",ExpressionUUID->"3c75e832-5b8a-4af9-99d9-89ecb0f6c6f6"] }, Open ]], Cell[CellGroupData[{ Cell[15316, 465, 218, 4, 28, "Input",ExpressionUUID->"11e273d2-081d-422b-9451-fa9d39410a3b"], Cell[15537, 471, 1818, 51, 86, "Output",ExpressionUUID->"3c31f00c-44df-4116-9868-193eea4a448e"] }, Open ]], Cell[CellGroupData[{ Cell[17392, 527, 177, 4, 28, "Input",ExpressionUUID->"a5d9b984-895b-4efe-8db4-adfb4a8be7a9"], Cell[17572, 533, 438, 8, 32, "Output",ExpressionUUID->"8c6ab631-3a6e-48b4-b0df-9de06f48be28"] }, Open ]], Cell[18025, 544, 855, 24, 28, "Input",ExpressionUUID->"e943f6f3-df2f-4f94-8081-f579523114f0"], Cell[18883, 570, 501, 14, 28, "Input",ExpressionUUID->"c7a1c5ea-c47b-4437-8d97-8e8c3bcee3c1"], Cell[19387, 586, 827, 23, 28, "Input",ExpressionUUID->"9f08300a-9f57-482c-ac72-38448590d7fb"], Cell[20217, 611, 883, 24, 28, "Input",ExpressionUUID->"62bf1cb7-8267-4661-a894-0e10829cdeb4"], Cell[21103, 637, 701, 22, 28, "Input",ExpressionUUID->"f04798bb-7700-4501-9376-2397971c3d79"], Cell[21807, 661, 627, 15, 28, "Input",ExpressionUUID->"c6b442e3-69b1-4633-a246-ce983c62a7bd"], Cell[22437, 678, 900, 24, 28, "Input",ExpressionUUID->"2c6136b4-ab7e-45bc-bbc4-2208a8aeb9dc"], Cell[23340, 704, 703, 22, 28, "Input",ExpressionUUID->"3d176a87-2b76-46d8-b4de-e99f4ea6c170"], Cell[24046, 728, 701, 22, 28, "Input",ExpressionUUID->"b57133a2-1a89-4e97-b3b3-b5cb286de0f2"], Cell[24750, 752, 701, 22, 28, "Input",ExpressionUUID->"098d6ecb-f6eb-4f53-8ea7-4c0b2dadbc65"], Cell[25454, 776, 243, 7, 28, "Input",ExpressionUUID->"23291c49-2cb6-4061-9007-1b1f94886e61"], Cell[25700, 785, 243, 7, 28, "Input",ExpressionUUID->"5d0e7a7e-fe84-477c-b048-ff8de8171afb"], Cell[25946, 794, 243, 7, 28, "Input",ExpressionUUID->"bab8abdb-a1d0-4dbf-8868-7240c5843370"], Cell[26192, 803, 242, 7, 28, "Input",ExpressionUUID->"ccb14fd5-c8cd-405c-a7df-9ca13dc36422"], Cell[26437, 812, 237, 6, 28, "Input",ExpressionUUID->"a22e6fd1-a91f-4483-af4f-dfa815a79f70"], Cell[26677, 820, 245, 7, 28, "Input",ExpressionUUID->"04e0b5d1-645a-4e86-a643-6c52241fdee2"], Cell[26925, 829, 243, 7, 28, "Input",ExpressionUUID->"d2d61ffd-e09d-4e4a-83b9-74bb0597c5f1"], Cell[27171, 838, 241, 7, 28, "Input",ExpressionUUID->"9e82ae63-afdc-4fdf-80cc-32bff28f78fb"], Cell[27415, 847, 1415, 39, 28, "Input",ExpressionUUID->"1f294c27-987f-4691-9a41-4cb37870dbdd"], Cell[CellGroupData[{ Cell[28855, 890, 219, 4, 28, "Input",ExpressionUUID->"b2f73f4a-7fed-4edb-9feb-ded7fcdd0078"], Cell[29077, 896, 13742, 425, 115, "Output",ExpressionUUID->"5039a05a-78d2-4059-b8c3-ca0fddcba339"] }, Open ]], Cell[42834, 1324, 279, 7, 48, "Input",ExpressionUUID->"77f66e06-3e91-4f76-9a60-10aff546aaf4"], Cell[43116, 1333, 510, 16, 73, "Input",ExpressionUUID->"5d7da37a-aced-4c46-9c88-28ead4beab04"], Cell[43629, 1351, 222, 5, 28, "Input",ExpressionUUID->"aa372afd-0417-43ba-9aa8-f51ffaa605d2"], Cell[CellGroupData[{ Cell[43876, 1360, 697, 18, 28, "Input",ExpressionUUID->"e78f91a2-76fe-489f-b20b-930d0b3faf48"], Cell[44576, 1380, 3466, 75, 197, "Output",ExpressionUUID->"20fa5fb8-365a-44c5-9c8e-106ed2f56314"] }, Open ]], Cell[CellGroupData[{ Cell[48079, 1460, 217, 4, 28, "Input",ExpressionUUID->"1b50c2bc-ac66-4a3b-9156-b0d4b3eed1d5"], Cell[48299, 1466, 3353, 70, 180, "Output",ExpressionUUID->"ea70e0ce-b1b8-41d9-bfa0-8e7e1c76ea3d"] }, Open ]], Cell[51667, 1539, 3362, 70, 146, "Input",ExpressionUUID->"31c88b27-016a-4a2d-87c1-94c639aedea7"], Cell[55032, 1611, 300, 7, 48, "Input",ExpressionUUID->"a7c68250-0c1b-482b-aef9-91c2a7befc8b"], Cell[CellGroupData[{ Cell[55357, 1622, 510, 11, 28, "Input",ExpressionUUID->"16dcd7a6-9a1a-4e99-b958-4a8c352e476b"], Cell[55870, 1635, 3520, 75, 174, "Output",ExpressionUUID->"d92a163b-c5a5-452b-9919-32f4a9a912cb"] }, Open ]], Cell[59405, 1713, 342, 8, 48, "Input",ExpressionUUID->"6fd7b871-6fd3-493f-a3b7-94bd7593b291"], Cell[CellGroupData[{ Cell[59772, 1725, 562, 12, 28, "Input",ExpressionUUID->"ab88f43f-ba85-455e-a104-10c2fae994fa"], Cell[60337, 1739, 3578, 79, 151, "Output",ExpressionUUID->"a5822133-39cd-44e3-bf8a-4ad280a06bec"] }, Open ]], Cell[63930, 1821, 389, 10, 48, "Input",ExpressionUUID->"35c873a2-3b09-4a6e-a467-38909d357423"], Cell[CellGroupData[{ Cell[64344, 1835, 562, 12, 28, "Input",ExpressionUUID->"5427f81b-062e-4c7e-b22f-e75141d19b5c"], Cell[64909, 1849, 3539, 74, 151, "Output",ExpressionUUID->"b57b8b9d-7848-4596-a8a8-99b44084e2f3"] }, Open ]], Cell[68463, 1926, 344, 8, 48, "Input",ExpressionUUID->"f028c271-fc4b-4560-8774-5961932d2d06"], Cell[CellGroupData[{ Cell[68832, 1938, 564, 12, 28, "Input",ExpressionUUID->"b8141489-9f04-4717-ac86-c4735234365d"], Cell[69399, 1952, 3556, 77, 174, "Output",ExpressionUUID->"b71c40e7-fc86-4612-aaff-5bdcc010b6b9"] }, Open ]], Cell[CellGroupData[{ Cell[72992, 2034, 310, 6, 28, "Input",ExpressionUUID->"8ec89353-922b-4e71-8613-5ad53f898c1e"], Cell[73305, 2042, 3491, 75, 197, "Output",ExpressionUUID->"a4cea0c0-4f76-46a9-babd-ec68bd180429"] }, Open ]], Cell[CellGroupData[{ Cell[76833, 2122, 215, 4, 28, "Input",ExpressionUUID->"814ef431-0026-40cd-974d-ed4eb2bf1222"], Cell[77051, 2128, 3347, 70, 180, "Output",ExpressionUUID->"98cb9ce5-784f-4555-8c8b-b269347ec77c"] }, Open ]], Cell[CellGroupData[{ Cell[80435, 2203, 258, 6, 28, "Input",ExpressionUUID->"94b2a860-7d56-4cdc-a655-c975d748db68"], Cell[80696, 2211, 3417, 70, 105, "Output",ExpressionUUID->"3dd1db24-e328-4771-8a32-46365d8a3656"] }, Open ]], Cell[CellGroupData[{ Cell[84150, 2286, 195, 4, 28, "Input",ExpressionUUID->"5fb3bc83-d0f7-4c36-a54d-80f6d60e584f"], Cell[84348, 2292, 3311, 71, 180, "Output",ExpressionUUID->"e2cecae0-d9c8-42eb-ab2d-db39699cd812"] }, Open ]], Cell[87674, 2366, 1212, 25, 146, "Input",ExpressionUUID->"46aab75a-bf4c-4b44-b67f-d41640b3ca5f"], Cell[88889, 2393, 233, 6, 28, "Input",ExpressionUUID->"90e33afa-d707-4e8f-a926-f5a19f7c3908"], Cell[CellGroupData[{ Cell[89147, 2403, 219, 5, 28, "Input",ExpressionUUID->"b1b7417d-d504-4a18-9214-d507d921009f"], Cell[89369, 2410, 7204, 150, 259, "Output",ExpressionUUID->"37a32ca9-07f7-4071-9a0c-1e6ebab06686"] }, Open ]], Cell[CellGroupData[{ Cell[96610, 2565, 193, 4, 28, "Input",ExpressionUUID->"82af216f-fcfa-4ef0-9db6-ba488a3fdb35"], Cell[96806, 2571, 5290, 94, 350, "Output",ExpressionUUID->"e57f97c4-fc33-4ee8-a21a-e18e24fc335b"] }, Open ]], Cell[102111, 2668, 297, 6, 28, "Input",ExpressionUUID->"5d085dfe-bc80-4cdb-a944-e9f61314f577"], Cell[CellGroupData[{ Cell[102433, 2678, 336, 14, 146, "Input",ExpressionUUID->"e1614c8c-c0dc-451b-846d-ab595f0adcf4"], Cell[102772, 2694, 500, 14, 32, "Output",ExpressionUUID->"1c7129cb-90fc-43d0-a1f7-978d87a52efd"] }, Open ]], Cell[CellGroupData[{ Cell[103309, 2713, 202, 5, 28, "Input",ExpressionUUID->"40d56327-fb22-4d03-87fc-53a03b21099e"], Cell[103514, 2720, 972, 26, 32, "Output",ExpressionUUID->"90ac8904-7d9e-43f2-a074-5b67cad5dd49"] }, Open ]], Cell[104501, 2749, 368, 8, 28, "Input",ExpressionUUID->"e858621f-0481-4a43-8880-6f4dae4e9aa1"] }, Open ]], Cell[CellGroupData[{ Cell[104906, 2762, 472, 10, 110, "Section",ExpressionUUID->"87326713-8d73-4b92-80fa-218705d2b314"], Cell[CellGroupData[{ Cell[105403, 2776, 179, 3, 28, "Input",ExpressionUUID->"69cf7385-b7c4-4bdb-872e-04e7c576db9c"], Cell[105585, 2781, 298, 5, 32, "Output",ExpressionUUID->"e7d96f0b-c1e2-44cf-aff4-e67b8d0e0dd2"] }, Open ]], Cell[105898, 2789, 1206, 40, 186, "Input",ExpressionUUID->"e7586764-4490-4490-a582-56dfcc2a8afd"], Cell[CellGroupData[{ Cell[107129, 2833, 181, 3, 28, "Input",ExpressionUUID->"a518d947-e45a-4fd3-a5ac-6ee2bbc911b0"], Cell[107313, 2838, 390, 6, 32, "Output",ExpressionUUID->"56bd1334-d801-49d2-9b0a-1228dec9d5d5"] }, Open ]], Cell[107718, 2847, 818, 22, 162, "Input",ExpressionUUID->"48a31393-3ce6-460c-a13a-f5b6acbe3340"], Cell[CellGroupData[{ Cell[108561, 2873, 854, 25, 28, "Input",ExpressionUUID->"2d67da97-0373-4ad3-9d2c-b115047d7f1f"], Cell[109418, 2900, 643, 14, 55, "Output",ExpressionUUID->"aea54ea4-820f-4143-bc0f-927c9588f1f4"] }, Open ]], Cell[CellGroupData[{ Cell[110098, 2919, 850, 25, 28, "Input",ExpressionUUID->"ab00310f-0be8-4775-b053-641cd81c3867"], Cell[110951, 2946, 664, 15, 55, "Output",ExpressionUUID->"f4839996-7d56-4c0d-93dd-72bcdc60bfbe"] }, Open ]], Cell[CellGroupData[{ Cell[111652, 2966, 978, 27, 28, "Input",ExpressionUUID->"cc7c158a-5347-4eaf-b460-02d3ffd92c5f"], Cell[112633, 2995, 638, 15, 55, "Output",ExpressionUUID->"6891ceee-d457-428d-82fe-68af1d41605a"] }, Open ]], Cell[CellGroupData[{ Cell[113308, 3015, 898, 26, 28, "Input",ExpressionUUID->"f72791f8-d1d4-4381-ac2a-b07364672147"], Cell[114209, 3043, 629, 13, 55, "Output",ExpressionUUID->"f7fade05-ed59-490e-a51e-c4fe6de1c13d"] }, Open ]], Cell[CellGroupData[{ Cell[114875, 3061, 617, 17, 28, "Input",ExpressionUUID->"a53892cd-bde4-4f36-bd2f-d9baeeff8d9d"], Cell[115495, 3080, 1351, 40, 55, "Output",ExpressionUUID->"b07e8aa8-aeda-4a98-9095-e3c174877b7c"] }, Open ]], Cell[CellGroupData[{ Cell[116883, 3125, 234, 5, 28, "Input",ExpressionUUID->"80ce5428-6998-4391-aff0-134e103ffcb7"], Cell[117120, 3132, 448, 7, 32, "Output",ExpressionUUID->"0ca8bfe6-d115-48ea-b040-7fc872e92701"] }, Open ]], Cell[CellGroupData[{ Cell[117605, 3144, 315, 6, 28, "Input",ExpressionUUID->"36f0dc8e-5619-440b-8924-e25f1da09a48"], Cell[117923, 3152, 1327, 39, 55, "Output",ExpressionUUID->"75c9e25a-cac4-4be5-9d06-5191affcb862"] }, Open ]], Cell[CellGroupData[{ Cell[119287, 3196, 246, 5, 28, "Input",ExpressionUUID->"54fc109a-566c-4ee4-8412-3f175ca35cea"], Cell[119536, 3203, 1800, 50, 86, "Output",ExpressionUUID->"d1ba1d18-85f8-4278-bc66-ebb18c8b9aaa"] }, Open ]], Cell[CellGroupData[{ Cell[121373, 3258, 177, 4, 28, "Input",ExpressionUUID->"85f48722-eb99-43e8-a883-e3a34aa52910"], Cell[121553, 3264, 1106, 33, 57, "Output",ExpressionUUID->"d6f55584-293c-4516-b7f3-4dd2c70262ff"] }, Open ]], Cell[122674, 3300, 905, 24, 28, "Input",ExpressionUUID->"cdc72e4b-c1d8-4729-8f4b-ece0c7928739"], Cell[123582, 3326, 501, 14, 28, "Input",ExpressionUUID->"67b74dc8-79f6-498e-8594-5a93d5e5bab5"], Cell[124086, 3342, 879, 24, 28, "Input",ExpressionUUID->"da6fcfc4-37c4-4593-8953-cc757654d663"], Cell[124968, 3368, 935, 25, 28, "Input",ExpressionUUID->"58371ebf-6fc1-4eea-bcbc-5202ad067f1e"], Cell[125906, 3395, 751, 22, 28, "Input",ExpressionUUID->"03b8be16-bcb4-463c-975c-3d8ac5376f13"], Cell[126660, 3419, 627, 15, 28, "Input",ExpressionUUID->"f5e4b05d-65f2-4076-8904-0a2a5b48fb3c"], Cell[127290, 3436, 950, 25, 28, "Input",ExpressionUUID->"55889c8a-850b-40cb-acee-14e06841688f"], Cell[128243, 3463, 750, 22, 28, "Input",ExpressionUUID->"ad798ad3-8361-4b17-baa5-a2c09f149855"], Cell[128996, 3487, 751, 22, 28, "Input",ExpressionUUID->"14cb460c-fe3c-42e3-a479-9a8cbbb91a5e"], Cell[129750, 3511, 747, 22, 28, "Input",ExpressionUUID->"f83c3ae3-600c-468a-8ff4-a0d6725041ed"], Cell[130500, 3535, 243, 7, 28, "Input",ExpressionUUID->"d7044ad8-529a-49a7-b60e-688fa6030431"], Cell[130746, 3544, 243, 7, 28, "Input",ExpressionUUID->"2c866efc-0942-4a79-b95b-f937a75c25b3"], Cell[130992, 3553, 243, 7, 28, "Input",ExpressionUUID->"259a5509-2407-4deb-a605-aac846b3d8f8"], Cell[131238, 3562, 242, 7, 28, "Input",ExpressionUUID->"36489ce5-8868-436e-b69a-a4f6466ab2d6"], Cell[131483, 3571, 237, 6, 28, "Input",ExpressionUUID->"3515b5aa-35aa-459f-8309-a9368fef6fbe"], Cell[131723, 3579, 245, 7, 28, "Input",ExpressionUUID->"337b6b85-fd59-48dd-b603-a2ac3d1b4aba"], Cell[131971, 3588, 243, 7, 28, "Input",ExpressionUUID->"4338be33-5d30-4cc6-b959-81fe18ef0c36"], Cell[132217, 3597, 241, 7, 28, "Input",ExpressionUUID->"45740664-471d-4ca0-9cc4-100f4205e6c7"], Cell[132461, 3606, 1439, 39, 28, "Input",ExpressionUUID->"91b9f314-634d-435e-a75b-b434ff136858"], Cell[CellGroupData[{ Cell[133925, 3649, 245, 5, 28, "Input",ExpressionUUID->"a7407ebd-8152-4b4d-819d-4fe404b0736e"], Cell[134173, 3656, 13724, 425, 115, "Output",ExpressionUUID->"88b8b62b-81bf-47eb-ba73-3f7c1edfb0ef"] }, Open ]], Cell[147912, 4084, 279, 7, 48, "Input",ExpressionUUID->"378e3b69-1382-4d69-9408-04e3db37a435"], Cell[148194, 4093, 510, 16, 73, "Input",ExpressionUUID->"1e0402ac-404a-41cb-b51a-286513202b00"], Cell[148707, 4111, 220, 5, 28, "Input",ExpressionUUID->"e37e6292-f7f9-43d4-b0eb-1a38781806b8"], Cell[CellGroupData[{ Cell[148952, 4120, 747, 18, 28, "Input",ExpressionUUID->"d9142d4f-5b1f-4b01-919c-94c92b0a96ec"], Cell[149702, 4140, 3444, 74, 197, "Output",ExpressionUUID->"5345ac50-d261-4f41-ab71-a8647952d718"] }, Open ]], Cell[CellGroupData[{ Cell[153183, 4219, 245, 5, 28, "Input",ExpressionUUID->"e22580cd-bf67-4c92-b8d5-712ad31f9006"], Cell[153431, 4226, 3329, 70, 180, "Output",ExpressionUUID->"7747f91a-a22d-4f13-8b3a-6614e445cf0e"] }, Open ]], Cell[156775, 4299, 300, 7, 48, "Input",ExpressionUUID->"16a774de-9c82-4cd5-8ba5-2194bc8b4da3"], Cell[CellGroupData[{ Cell[157100, 4310, 562, 12, 28, "Input",ExpressionUUID->"e1722b3a-8c38-41b4-8aa0-d19787ce2bff"], Cell[157665, 4324, 3498, 75, 174, "Output",ExpressionUUID->"9e959922-dbd8-4ddb-87ff-1ab7201079b1"] }, Open ]], Cell[161178, 4402, 342, 8, 48, "Input",ExpressionUUID->"61ddb29c-d5a2-4170-a369-a51b4fedef9f"], Cell[CellGroupData[{ Cell[161545, 4414, 614, 13, 28, "Input",ExpressionUUID->"54bde432-c3e7-47d6-8a5e-228f0a8a2e55"], Cell[162162, 4429, 3552, 79, 151, "Output",ExpressionUUID->"feeae661-5fda-4765-8631-f0dbed0fefa0"] }, Open ]], Cell[165729, 4511, 389, 10, 48, "Input",ExpressionUUID->"4bd80e1f-1259-4c02-aba2-4afb2fb864d4"], Cell[CellGroupData[{ Cell[166143, 4525, 614, 13, 28, "Input",ExpressionUUID->"46a00b7d-9fc3-4dd1-a4fe-a9eec7fb5d63"], Cell[166760, 4540, 3510, 73, 151, "Output",ExpressionUUID->"91b07f6c-7a7b-4a1b-9a0e-baa38a2dd666"] }, Open ]], Cell[170285, 4616, 344, 8, 48, "Input",ExpressionUUID->"e1b63bfb-3e84-4fae-b176-525c9c3766c6"], Cell[CellGroupData[{ Cell[170654, 4628, 618, 13, 28, "Input",ExpressionUUID->"3b57ff05-1827-4fe2-a83f-b53ea0215f7a"], Cell[171275, 4643, 3528, 76, 174, "Output",ExpressionUUID->"69059dc7-f417-4eb3-b4c0-12b72cfcbff6"] }, Open ]], Cell[CellGroupData[{ Cell[174840, 4724, 362, 7, 28, "Input",ExpressionUUID->"68578682-e223-4cd8-83b7-49189e177f98"], Cell[175205, 4733, 3464, 74, 197, "Output",ExpressionUUID->"81448f7f-5ae7-436c-8b09-004b594df10f"] }, Open ]], Cell[CellGroupData[{ Cell[178706, 4812, 243, 5, 28, "Input",ExpressionUUID->"80c7e495-1469-49b7-9cde-f3f0b0f468b1"], Cell[178952, 4819, 3326, 70, 180, "Output",ExpressionUUID->"0c418d11-41c8-41e4-b1e1-ea7fc6bf5697"] }, Open ]], Cell[CellGroupData[{ Cell[182315, 4894, 306, 6, 28, "Input",ExpressionUUID->"ee2d735a-b16f-456f-a686-4cf5a0e8afec"], Cell[182624, 4902, 3395, 70, 105, "Output",ExpressionUUID->"ea956b62-5344-424e-ac4f-4110b1140ccd"] }, Open ]], Cell[CellGroupData[{ Cell[186056, 4977, 220, 4, 28, "Input",ExpressionUUID->"08109d6b-438f-4b07-895b-824e787c4c5e"], Cell[186279, 4983, 3266, 70, 180, "Output",ExpressionUUID->"58f0be13-c9d8-4528-bf1b-5b5ff7fc8e46"] }, Open ]], Cell[189560, 5056, 1286, 26, 146, "Input",ExpressionUUID->"b65e9ba0-7898-49d2-a7a6-6daac020fc04"], Cell[190849, 5084, 282, 7, 28, "Input",ExpressionUUID->"3997c6f4-8780-4676-8a12-09cb8a0f50b1"], Cell[CellGroupData[{ Cell[191156, 5095, 270, 6, 28, "Input",ExpressionUUID->"21fefb4c-8b75-46b3-be44-10dbaba50423"], Cell[191429, 5103, 7200, 144, 263, "Output",ExpressionUUID->"913abd3c-c956-4edf-bbf8-6d7c0b6a7dd0"] }, Open ]], Cell[CellGroupData[{ Cell[198666, 5252, 216, 4, 28, "Input",ExpressionUUID->"edf43227-eaf6-4361-b4f1-afe42adeb148"], Cell[198885, 5258, 5315, 97, 350, "Output",ExpressionUUID->"ed863c7f-bf87-4470-ae48-9a9789f80ee2"] }, Open ]], Cell[204215, 5358, 198, 5, 28, "Input",ExpressionUUID->"79f6e7ac-0354-4fe9-9af0-af7bc25f524a"], Cell[CellGroupData[{ Cell[204438, 5367, 238, 12, 146, "Input",ExpressionUUID->"4c636173-8a45-407f-9bf6-28d34dd08f22"], Cell[204679, 5381, 529, 14, 32, "Output",ExpressionUUID->"4bace851-12a9-49a3-91c7-405d055d9e9e"] }, Open ]], Cell[CellGroupData[{ Cell[205245, 5400, 205, 5, 28, "Input",ExpressionUUID->"bd9c4598-c6de-4233-8ff1-40fcfff12135"], Cell[205453, 5407, 942, 25, 32, "Output",ExpressionUUID->"1f88e3e0-aaab-4260-8a71-eaea1f9060df"] }, Open ]], Cell[206410, 5435, 368, 8, 28, "Input",ExpressionUUID->"e97a849e-9a4a-4d95-8c8f-f2236b79c572"] }, Open ]], Cell[CellGroupData[{ Cell[206815, 5448, 521, 11, 110, "Section",ExpressionUUID->"6588257e-9471-4f8f-8094-46091813f3fc"], Cell[CellGroupData[{ Cell[207361, 5463, 179, 3, 28, "Input",ExpressionUUID->"abd48a3c-2362-481e-95b0-e453c684f6d8"], Cell[207543, 5468, 302, 5, 32, "Output",ExpressionUUID->"c3f4123c-8409-43a1-a227-b78e8d0c2a06"] }, Open ]], Cell[207860, 5476, 1206, 40, 186, "Input",ExpressionUUID->"aaea9cc6-f030-4161-a30f-ea4f5a46bcb8"], Cell[CellGroupData[{ Cell[209091, 5520, 181, 3, 28, "Input",ExpressionUUID->"8cdb7151-c5f2-46b6-b7c0-115f63b01221"], Cell[209275, 5525, 389, 5, 32, "Output",ExpressionUUID->"cb6316fb-a1dc-40be-ba10-84476a325205"] }, Open ]], Cell[209679, 5533, 907, 25, 162, "Input",ExpressionUUID->"6289ed7d-1814-4698-a530-02d371cf9bb5"], Cell[CellGroupData[{ Cell[210611, 5562, 878, 25, 28, "Input",ExpressionUUID->"fd18409a-1fb6-41ff-b991-209f21b1f33e"], Cell[211492, 5589, 651, 14, 55, "Output",ExpressionUUID->"f42a3009-dbde-4f1c-b804-df48e2024b1f"] }, Open ]], Cell[CellGroupData[{ Cell[212180, 5608, 874, 25, 28, "Input",ExpressionUUID->"183a7981-12ff-44d5-a0fd-50ea12ecf842"], Cell[213057, 5635, 668, 15, 55, "Output",ExpressionUUID->"c768de65-1c54-43ad-a713-5737f1af5380"] }, Open ]], Cell[CellGroupData[{ Cell[213762, 5655, 1002, 27, 28, "Input",ExpressionUUID->"3a180787-0b21-4b7b-bed5-ab9d09a0747a"], Cell[214767, 5684, 636, 15, 55, "Output",ExpressionUUID->"e29201e1-c41e-41c8-bb4e-814981ab1689"] }, Open ]], Cell[CellGroupData[{ Cell[215440, 5704, 922, 26, 28, "Input",ExpressionUUID->"2456b73a-6314-409e-9143-f138b8c693e7"], Cell[216365, 5732, 632, 13, 55, "Output",ExpressionUUID->"7028d4c2-1e9b-464f-9338-f8e57dd838a1"] }, Open ]], Cell[CellGroupData[{ Cell[217034, 5750, 667, 17, 28, "Input",ExpressionUUID->"25c126be-7ebc-4eb1-b46a-441649cef426"], Cell[217704, 5769, 1353, 40, 55, "Output",ExpressionUUID->"bbaff7d7-4644-4276-8975-97b3714dc53c"] }, Open ]], Cell[CellGroupData[{ Cell[219094, 5814, 258, 5, 28, "Input",ExpressionUUID->"2809bf5d-3f8a-43ad-beae-04309535e960"], Cell[219355, 5821, 444, 7, 32, "Output",ExpressionUUID->"6d0d8c70-09e6-4312-98be-c11ba5a280ff"] }, Open ]], Cell[CellGroupData[{ Cell[219836, 5833, 366, 7, 28, "Input",ExpressionUUID->"737da96b-e1cf-4ab3-aa49-424793088b6b"], Cell[220205, 5842, 1321, 39, 55, "Output",ExpressionUUID->"aa7131f7-414d-4bd4-94ec-a1549e540275"] }, Open ]], Cell[CellGroupData[{ Cell[221563, 5886, 270, 5, 28, "Input",ExpressionUUID->"9ede9149-d9a9-4ba4-bf6a-d7a8e6302990"], Cell[221836, 5893, 1793, 50, 86, "Output",ExpressionUUID->"5b52c5d3-41d8-42e1-8a4d-ad7ebfa4336e"] }, Open ]], Cell[CellGroupData[{ Cell[223666, 5948, 177, 4, 28, "Input",ExpressionUUID->"4df431b9-71d8-4ec2-acdb-cf0eb9a05b74"], Cell[223846, 5954, 1108, 33, 57, "Output",ExpressionUUID->"4ad7d783-769f-4a42-a77d-1c64de93a640"] }, Open ]], Cell[224969, 5990, 957, 25, 28, "Input",ExpressionUUID->"403d9812-ca62-47e2-ad78-36a35b6f368a"], Cell[225929, 6017, 501, 14, 28, "Input",ExpressionUUID->"0a2463dd-2823-485e-afcf-fee82d02bcab"], Cell[226433, 6033, 931, 25, 28, "Input",ExpressionUUID->"976d7832-2dc9-44d0-9e33-c1ae49965fea"], Cell[227367, 6060, 987, 26, 28, "Input",ExpressionUUID->"8182c3d2-5a91-4d69-9de2-b61a69ab7a33"], Cell[228357, 6088, 802, 23, 28, "Input",ExpressionUUID->"13ee83df-f886-4615-9c08-0a008c4c857a"], Cell[229162, 6113, 627, 15, 28, "Input",ExpressionUUID->"1c086b29-fb7f-429c-9450-3311b7434390"], Cell[229792, 6130, 1002, 26, 28, "Input",ExpressionUUID->"9ac3461a-658e-40de-89e8-e6e2710293ab"], Cell[230797, 6158, 801, 23, 28, "Input",ExpressionUUID->"19fae991-94e2-4f81-b909-a358e8601612"], Cell[231601, 6183, 802, 23, 28, "Input",ExpressionUUID->"b29339a0-7077-47d3-9479-84847d0f264a"], Cell[232406, 6208, 800, 23, 28, "Input",ExpressionUUID->"068f9c76-ae0a-4c7a-b557-c77cf002fdc7"], Cell[233209, 6233, 243, 7, 28, "Input",ExpressionUUID->"6ed646c4-4bd6-4ab1-ad3b-ffc47af9c434"], Cell[233455, 6242, 243, 7, 28, "Input",ExpressionUUID->"783c25d2-a0c0-4050-a359-bb2446969a6d"], Cell[233701, 6251, 243, 7, 28, "Input",ExpressionUUID->"e5b6a7de-a53b-4e22-b872-0569a5f5046f"], Cell[233947, 6260, 242, 7, 28, "Input",ExpressionUUID->"ad8e3b0b-8596-4179-ade7-287004060749"], Cell[234192, 6269, 237, 6, 28, "Input",ExpressionUUID->"ee25320c-167d-4787-8c90-3626650a5d99"], Cell[234432, 6277, 245, 7, 28, "Input",ExpressionUUID->"df51f95a-22bd-42d1-92bd-807772d4d3ed"], Cell[234680, 6286, 243, 7, 28, "Input",ExpressionUUID->"3b6c6feb-150f-4472-be2a-79b25e54fe48"], Cell[234926, 6295, 241, 7, 28, "Input",ExpressionUUID->"8432ba4f-ec40-4f72-9dff-bb8e9d96b456"], Cell[235170, 6304, 1467, 40, 28, "Input",ExpressionUUID->"e133b3e9-f21e-447f-8c85-1d2c5339157e"], Cell[CellGroupData[{ Cell[236662, 6348, 269, 5, 28, "Input",ExpressionUUID->"1077544c-532c-49d5-97b8-ced7319c1289"], Cell[236934, 6355, 13722, 425, 115, "Output",ExpressionUUID->"32f6aee6-a9c0-44ee-9269-358d30574dd4"] }, Open ]], Cell[250671, 6783, 279, 7, 48, "Input",ExpressionUUID->"b6c4f213-645f-432d-b115-48dd651da323"], Cell[250953, 6792, 510, 16, 73, "Input",ExpressionUUID->"34b62cee-d66c-4e18-8948-2519b928d2c5"], Cell[251466, 6810, 222, 5, 28, "Input",ExpressionUUID->"9b10dffc-65d9-43c2-b66e-2f97652e4480"], Cell[CellGroupData[{ Cell[251713, 6819, 801, 19, 28, "Input",ExpressionUUID->"ad4f9dc6-57f6-441a-a7ec-9d81e2bc04ba"], Cell[252517, 6840, 3440, 74, 197, "Output",ExpressionUUID->"68c4fb04-25de-48be-8c72-414725a1eee8"] }, Open ]], Cell[CellGroupData[{ Cell[255994, 6919, 267, 5, 28, "Input",ExpressionUUID->"81637a6c-2871-4946-a168-f90d34cf1f90"], Cell[256264, 6926, 3331, 70, 180, "Output",ExpressionUUID->"ce6313eb-9ee4-419e-a42b-35a00c594d8f"] }, Open ]], Cell[259610, 6999, 300, 7, 48, "Input",ExpressionUUID->"d5c45539-23ed-4ce4-a8ed-75e705467364"], Cell[CellGroupData[{ Cell[259935, 7010, 612, 13, 28, "Input",ExpressionUUID->"ac4e63fb-1c89-4863-a20c-7417ba2bba8f"], Cell[260550, 7025, 3505, 75, 105, "Output",ExpressionUUID->"81ac8637-7bc4-4d30-99fb-12edfa0c3b5a"] }, Open ]], Cell[264070, 7103, 342, 8, 48, "Input",ExpressionUUID->"735993e7-64f5-4cf0-9843-1ec8b96e452b"], Cell[CellGroupData[{ Cell[264437, 7115, 659, 13, 28, "Input",ExpressionUUID->"3f5a0f99-37f5-4f2b-8266-f41eed80a9c2"], Cell[265099, 7130, 3550, 79, 151, "Output",ExpressionUUID->"f83796a9-d599-4cd0-8266-05d6e00f7197"] }, Open ]], Cell[268664, 7212, 389, 10, 48, "Input",ExpressionUUID->"9de9683f-8da1-484b-97d6-f57c3715e7d4"], Cell[CellGroupData[{ Cell[269078, 7226, 660, 13, 28, "Input",ExpressionUUID->"e249351d-0b77-45e8-8dbc-b12c8b85a351"], Cell[269741, 7241, 3513, 73, 151, "Output",ExpressionUUID->"52705dd3-6ea1-4114-99b8-0749f472bd71"] }, Open ]], Cell[273269, 7317, 344, 8, 48, "Input",ExpressionUUID->"653e74c8-9f3a-4277-ae21-a806c9e72813"], Cell[CellGroupData[{ Cell[273638, 7329, 666, 13, 28, "Input",ExpressionUUID->"dd84a9fd-566b-426e-bc51-a9860ca22740"], Cell[274307, 7344, 3526, 76, 174, "Output",ExpressionUUID->"67a70888-8a81-4ecc-bb74-da73a2c7cbad"] }, Open ]], Cell[CellGroupData[{ Cell[277870, 7425, 406, 7, 28, "Input",ExpressionUUID->"0832995d-fe6a-4eab-8358-b9e481707ac8"], Cell[278279, 7434, 3464, 74, 197, "Output",ExpressionUUID->"9f856c94-b6a3-428b-8384-2e1356df2b22"] }, Open ]], Cell[CellGroupData[{ Cell[281780, 7513, 267, 5, 28, "Input",ExpressionUUID->"23bde474-cab9-4e01-abdc-fb90cc0a4eed"], Cell[282050, 7520, 3326, 70, 180, "Output",ExpressionUUID->"cfb416c5-e547-4685-8290-67c4f6ecf0b3"] }, Open ]], Cell[CellGroupData[{ Cell[285413, 7595, 355, 7, 28, "Input",ExpressionUUID->"613c54fc-78f3-49bb-98d7-7af2ad18bf19"], Cell[285771, 7604, 3394, 70, 105, "Output",ExpressionUUID->"c54c4067-67b3-4e47-b0e8-f89df58d0b28"] }, Open ]], Cell[CellGroupData[{ Cell[289202, 7679, 246, 5, 28, "Input",ExpressionUUID->"b686e61b-b669-418d-91ce-1ef0379db0e7"], Cell[289451, 7686, 3270, 70, 180, "Output",ExpressionUUID->"49616a8b-3871-49cf-90cc-31f50c2d62b5"] }, Open ]], Cell[292736, 7759, 1331, 26, 146, "Input",ExpressionUUID->"770dfd8a-7872-4bb2-8757-8a3b17142f67"], Cell[294070, 7787, 284, 7, 28, "Input",ExpressionUUID->"d8051622-f4e5-446e-b7fe-a68f8f3224d9"], Cell[CellGroupData[{ Cell[294379, 7798, 268, 6, 28, "Input",ExpressionUUID->"75f7f824-349e-4a74-9b9c-3de261ad1b6c"], Cell[294650, 7806, 7217, 147, 259, "Output",ExpressionUUID->"6b6ae468-1e4e-41cf-b4ba-c4fb46967948"] }, Open ]], Cell[CellGroupData[{ Cell[301904, 7958, 218, 4, 28, "Input",ExpressionUUID->"06e30541-7505-436c-9427-e8f08127e8a6"], Cell[302125, 7964, 5349, 99, 350, "Output",ExpressionUUID->"dfcaa41e-1fa3-458f-a446-11c777799fae"] }, Open ]], Cell[307489, 8066, 198, 5, 28, "Input",ExpressionUUID->"b1063d1a-b7b2-4e77-a34c-f3a7237d1cf8"], Cell[CellGroupData[{ Cell[307712, 8075, 442, 16, 146, "Input",ExpressionUUID->"87c75d2c-3b01-4203-854a-6e6093911abc"], Cell[308157, 8093, 644, 16, 32, "Output",ExpressionUUID->"cdf03298-d6eb-44ae-8cf7-207e2ac225c0"] }, Open ]], Cell[CellGroupData[{ Cell[308838, 8114, 255, 6, 28, "Input",ExpressionUUID->"b523f869-485d-4060-883a-1f81db778694"], Cell[309096, 8122, 955, 25, 32, "Output",ExpressionUUID->"b2ba7c36-2725-4bb6-84da-6630f9d9e53b"] }, Open ]], Cell[310066, 8150, 368, 8, 28, "Input",ExpressionUUID->"3f035ff0-1b8b-4262-8d89-82d08f04e27f"] }, Open ]], Cell[CellGroupData[{ Cell[310471, 8163, 522, 11, 110, "Section",ExpressionUUID->"766aad87-fcac-41f9-bc27-ad50ff4f0577"], Cell[CellGroupData[{ Cell[311018, 8178, 179, 3, 28, "Input",ExpressionUUID->"33537147-d1b3-4dfc-972e-7f64851efe31"], Cell[311200, 8183, 295, 5, 32, "Output",ExpressionUUID->"db2d8bc5-92d8-4548-a89f-0a788e23ca3a"] }, Open ]], Cell[311510, 8191, 1206, 40, 186, "Input",ExpressionUUID->"67d92e5c-e168-489f-b5ac-c19db2a83281"], Cell[CellGroupData[{ Cell[312741, 8235, 181, 3, 28, "Input",ExpressionUUID->"e35b6b27-fc95-49ef-904c-6cf9ce5f0f76"], Cell[312925, 8240, 392, 6, 32, "Output",ExpressionUUID->"c3e810fa-ab69-4d0b-8256-22829d561a42"] }, Open ]], Cell[313332, 8249, 863, 23, 162, "Input",ExpressionUUID->"ada77395-c958-4287-aa2f-02770bfec9a5"], Cell[CellGroupData[{ Cell[314220, 8276, 876, 25, 28, "Input",ExpressionUUID->"3f2c8d48-95a5-460a-984a-94d7c2c6be6a"], Cell[315099, 8303, 645, 13, 55, "Output",ExpressionUUID->"45a74b42-65c9-406e-94f1-e76c7846f7f9"] }, Open ]], Cell[CellGroupData[{ Cell[315781, 8321, 874, 25, 28, "Input",ExpressionUUID->"48df4325-a364-4c5a-a1f3-57262aaf6b70"], Cell[316658, 8348, 666, 15, 55, "Output",ExpressionUUID->"b67c190d-abf3-436e-9f28-c8fbcb861dce"] }, Open ]], Cell[CellGroupData[{ Cell[317361, 8368, 1002, 27, 28, "Input",ExpressionUUID->"7ce61167-e7d7-481e-bde4-30022eaec6e0"], Cell[318366, 8397, 635, 15, 55, "Output",ExpressionUUID->"e8357014-e55f-4872-b53f-00f82779c5a2"] }, Open ]], Cell[CellGroupData[{ Cell[319038, 8417, 922, 26, 28, "Input",ExpressionUUID->"c87601d1-d007-45d3-a295-7337025c23fd"], Cell[319963, 8445, 634, 13, 55, "Output",ExpressionUUID->"1aeea4e1-fcab-47f1-833d-8d41143258bc"] }, Open ]], Cell[CellGroupData[{ Cell[320634, 8463, 667, 17, 28, "Input",ExpressionUUID->"9c4079bd-cf51-4cfa-ba92-437b0bb1d969"], Cell[321304, 8482, 1353, 40, 55, "Output",ExpressionUUID->"ab198f9d-91b6-4812-9bff-b2c9193731f0"] }, Open ]], Cell[CellGroupData[{ Cell[322694, 8527, 256, 5, 28, "Input",ExpressionUUID->"e697ffb4-13aa-4bae-a474-7c02ce0d097f"], Cell[322953, 8534, 446, 7, 32, "Output",ExpressionUUID->"37844a06-924a-4613-aa0d-6b9fb29eb270"] }, Open ]], Cell[CellGroupData[{ Cell[323436, 8546, 368, 7, 28, "Input",ExpressionUUID->"64e0e62b-06e6-43c7-94f3-ccf564bfbd3d"], Cell[323807, 8555, 1326, 39, 55, "Output",ExpressionUUID->"359d623b-7d72-4e5b-b327-53a7d82b871d"] }, Open ]], Cell[CellGroupData[{ Cell[325170, 8599, 270, 5, 28, "Input",ExpressionUUID->"cee50919-b06a-4180-80ba-295c749a07a7"], Cell[325443, 8606, 1794, 50, 86, "Output",ExpressionUUID->"06cf0c71-95ff-44e6-968d-1b254ce35795"] }, Open ]], Cell[CellGroupData[{ Cell[327274, 8661, 177, 4, 28, "Input",ExpressionUUID->"0349fb91-47a8-4666-9efd-4ed056fabaa3"], Cell[327454, 8667, 1106, 33, 57, "Output",ExpressionUUID->"6967cbb0-a390-4ae9-acaf-69f05c7cea72"] }, Open ]], Cell[328575, 8703, 954, 25, 28, "Input",ExpressionUUID->"885353d0-1649-4543-bd44-f818841b7579"], Cell[329532, 8730, 501, 14, 28, "Input",ExpressionUUID->"9136fc69-a3a9-4e1e-9f45-16b7c5abc4a9"], Cell[330036, 8746, 931, 25, 28, "Input",ExpressionUUID->"8b5d5b5f-7fd4-45d8-a51e-fa04a26717c3"], Cell[330970, 8773, 984, 26, 28, "Input",ExpressionUUID->"cafcb261-aaab-4659-98b4-56d4de2fd118"], Cell[331957, 8801, 804, 23, 28, "Input",ExpressionUUID->"a1472f8b-8838-40b5-8834-f122e0a5aed5"], Cell[332764, 8826, 627, 15, 28, "Input",ExpressionUUID->"0522baf8-d7b2-4ebd-ad0b-b80f40a6eca0"], Cell[333394, 8843, 1000, 26, 28, "Input",ExpressionUUID->"c634faab-17ff-45cb-819d-9fded4316095"], Cell[334397, 8871, 803, 23, 28, "Input",ExpressionUUID->"f28947b4-b9b1-4a94-86be-ca9449ae98f5"], Cell[335203, 8896, 800, 23, 28, "Input",ExpressionUUID->"a740b924-4de7-49e2-8e97-1a17abccf04b"], Cell[336006, 8921, 798, 23, 28, "Input",ExpressionUUID->"a0499815-f6e5-4c2f-ac02-5d54aaf2e091"], Cell[336807, 8946, 243, 7, 28, "Input",ExpressionUUID->"cbee1c79-fd19-42a2-a0c0-e4f1662a4494"], Cell[337053, 8955, 243, 7, 28, "Input",ExpressionUUID->"c3f67bbc-4459-4bbd-9ccf-735e7849ed0a"], Cell[337299, 8964, 243, 7, 28, "Input",ExpressionUUID->"c46abe93-942b-43c6-8d51-551bd5c4a143"], Cell[337545, 8973, 242, 7, 28, "Input",ExpressionUUID->"4972c563-838f-4967-85be-e0e1079d063b"], Cell[337790, 8982, 237, 6, 28, "Input",ExpressionUUID->"1518c73b-998b-44dc-9dbd-a885b76df2d9"], Cell[338030, 8990, 245, 7, 28, "Input",ExpressionUUID->"e3ac6b63-bad0-4ace-88b8-f491fc04d620"], Cell[338278, 8999, 243, 7, 28, "Input",ExpressionUUID->"6ae5b770-0451-44ec-8e7d-d735f87c6624"], Cell[338524, 9008, 241, 7, 28, "Input",ExpressionUUID->"e0ac0912-db0d-4e14-9ddc-56f65c2c42f2"], Cell[338768, 9017, 1467, 40, 28, "Input",ExpressionUUID->"0d258f7c-d7b9-4c3f-ab75-0e2c85a79798"], Cell[CellGroupData[{ Cell[340260, 9061, 267, 5, 28, "Input",ExpressionUUID->"36e120c7-c7fa-4375-b0d3-68e826e54cb7"], Cell[340530, 9068, 13726, 425, 115, "Output",ExpressionUUID->"03697dc5-1b56-47b3-8584-9b3fb8955675"] }, Open ]], Cell[354271, 9496, 279, 7, 48, "Input",ExpressionUUID->"17dd0f1b-42cd-4acf-9fda-02e757c6bf70"], Cell[354553, 9505, 510, 16, 73, "Input",ExpressionUUID->"08076f17-8d0f-4cdb-a958-ec373e770c3a"], Cell[355066, 9523, 220, 5, 28, "Input",ExpressionUUID->"1df0eb61-a159-4778-b64f-43368731d7bd"], Cell[CellGroupData[{ Cell[355311, 9532, 801, 19, 28, "Input",ExpressionUUID->"2a3cf097-fe1b-4129-9932-ae8f569f2878"], Cell[356115, 9553, 3444, 74, 105, "Output",ExpressionUUID->"05d738ff-daf0-4961-abdb-152bdc8ff238"] }, Open ]], Cell[CellGroupData[{ Cell[359596, 9632, 269, 5, 28, "Input",ExpressionUUID->"2464022a-9a2b-4484-91e9-e0c8a67ba567"], Cell[359868, 9639, 3329, 70, 180, "Output",ExpressionUUID->"1633e83f-c354-4445-b78b-f0da79e8b7eb"] }, Open ]], Cell[363212, 9712, 300, 7, 48, "Input",ExpressionUUID->"452cea4c-fe89-4dac-b25a-24738b6f2c78"], Cell[CellGroupData[{ Cell[363537, 9723, 614, 13, 28, "Input",ExpressionUUID->"ba984869-788b-4faf-9273-2109824bb0f1"], Cell[364154, 9738, 3495, 74, 105, "Output",ExpressionUUID->"f8de4183-ecc4-4185-a973-4aad14bc215f"] }, Open ]], Cell[367664, 9815, 342, 8, 48, "Input",ExpressionUUID->"bcf345ea-0dcd-4992-93b0-819c578aba0a"], Cell[CellGroupData[{ Cell[368031, 9827, 664, 13, 28, "Input",ExpressionUUID->"9bd060a3-c8fa-4407-9960-ccc93f82ddf3"], Cell[368698, 9842, 3552, 79, 105, "Output",ExpressionUUID->"e9263152-de67-44b3-be58-40ebdd679772"] }, Open ]], Cell[372265, 9924, 389, 10, 48, "Input",ExpressionUUID->"b61cd7d0-6e8c-4118-bb44-22ee81dcf0df"], Cell[CellGroupData[{ Cell[372679, 9938, 664, 13, 28, "Input",ExpressionUUID->"b989a01f-2be8-42b2-bdcc-617a0dff1fb0"], Cell[373346, 9953, 3517, 73, 105, "Output",ExpressionUUID->"1e3882bc-e6da-41d4-854a-802fc46ce429"] }, Open ]], Cell[376878, 10029, 344, 8, 48, "Input",ExpressionUUID->"a45152b4-3580-4599-988b-06736027d9ae"], Cell[CellGroupData[{ Cell[377247, 10041, 668, 13, 28, "Input",ExpressionUUID->"bf4edbc5-c028-4553-af4a-376582b6ff4b"], Cell[377918, 10056, 3526, 76, 174, "Output",ExpressionUUID->"533ef67a-32f6-440b-989c-7b68dc5c9c85"] }, Open ]], Cell[CellGroupData[{ Cell[381481, 10137, 412, 7, 28, "Input",ExpressionUUID->"a6290948-920e-4996-b51c-bc3b9b93a4b3"], Cell[381896, 10146, 3468, 74, 197, "Output",ExpressionUUID->"073f74a3-3032-462e-ac24-73b95a92fe3f"] }, Open ]], Cell[CellGroupData[{ Cell[385401, 10225, 267, 5, 28, "Input",ExpressionUUID->"c9b2e355-0ecd-4e33-bb1b-649d440e5717"], Cell[385671, 10232, 3324, 70, 180, "Output",ExpressionUUID->"86883563-869e-411c-92a6-48cdb298bcb4"] }, Open ]], Cell[CellGroupData[{ Cell[389032, 10307, 357, 7, 28, "Input",ExpressionUUID->"53e658d9-3ec6-43bb-a9ef-9914a115cdc4"], Cell[389392, 10316, 3393, 70, 105, "Output",ExpressionUUID->"ce61b09b-82b1-4eb6-8b66-1d6182075a39"] }, Open ]], Cell[CellGroupData[{ Cell[392822, 10391, 248, 5, 28, "Input",ExpressionUUID->"d483318f-c6ac-4a3c-88c1-8068ab9c0f0e"], Cell[393073, 10398, 3268, 70, 180, "Output",ExpressionUUID->"b60a0e2b-8af6-47d2-a200-6de8a4409125"] }, Open ]], Cell[396356, 10471, 1334, 26, 146, "Input",ExpressionUUID->"c6ac17e3-fe8c-4a86-990c-72049fc03c4a"], Cell[397693, 10499, 282, 7, 28, "Input",ExpressionUUID->"20577418-c133-496a-943a-6ab76226ddf5"], Cell[CellGroupData[{ Cell[398000, 10510, 269, 6, 28, "Input",ExpressionUUID->"fb50a87c-89ee-41d6-9e8f-1e3ec360a553"], Cell[398272, 10518, 7222, 150, 263, "Output",ExpressionUUID->"e7f84101-0989-4e58-a6aa-53d98a419033"] }, Open ]], Cell[CellGroupData[{ Cell[405531, 10673, 218, 4, 28, "Input",ExpressionUUID->"b5514f57-1e27-4bb4-b0f3-eea3ccbbea88"], Cell[405752, 10679, 5317, 95, 350, "Output",ExpressionUUID->"972613d5-6373-47cc-8e96-2bf3c5f5b737"] }, Open ]], Cell[411084, 10777, 198, 5, 28, "Input",ExpressionUUID->"11c6d545-aa3b-4dfe-85bf-a9809eacb317"], Cell[CellGroupData[{ Cell[411307, 10786, 442, 16, 146, "Input",ExpressionUUID->"d3585a2e-4d8d-4f10-8faa-66f44990506d"], Cell[411752, 10804, 623, 16, 32, "Output",ExpressionUUID->"d28ec2d3-7c77-4ea8-b2a9-deb921721177"] }, Open ]], Cell[CellGroupData[{ Cell[412412, 10825, 255, 6, 28, "Input",ExpressionUUID->"52c0f43d-6199-4978-bc7e-856ce0751152"], Cell[412670, 10833, 934, 25, 32, "Output",ExpressionUUID->"bb905908-9692-4b7f-9657-a490fa357dd4"] }, Open ]], Cell[413619, 10861, 247, 6, 28, "Input",ExpressionUUID->"9231e8d7-9006-4ae8-bb20-7b95e862bc08"], Cell[CellGroupData[{ Cell[413891, 10871, 191, 4, 28, "Input",ExpressionUUID->"3e1de355-a302-4fc8-aac0-437fae0031e5"], Cell[414085, 10877, 9054, 173, 370, "Output",ExpressionUUID->"80ced666-21bd-4d27-8f91-60e638746977"] }, Open ]], Cell[CellGroupData[{ Cell[423176, 11055, 201, 4, 28, "Input",ExpressionUUID->"540601b8-f6aa-4eff-a238-e76ce4520786"], Cell[423380, 11061, 277, 5, 32, "Output",ExpressionUUID->"84c8a5b8-5654-4510-a3b3-906454284e7a"] }, Open ]], Cell[CellGroupData[{ Cell[423694, 11071, 206, 4, 28, "Input",ExpressionUUID->"88ac39e1-1300-425d-beba-e1abe47b2bc6"], Cell[423903, 11077, 278, 5, 32, "Output",ExpressionUUID->"ba60c2c9-64ab-4a24-97a0-46070ca62e59"] }, Open ]], Cell[CellGroupData[{ Cell[424218, 11087, 226, 5, 28, "Input",ExpressionUUID->"2cb49c76-6857-40c1-ae18-51a0cdeb45ad"], Cell[424447, 11094, 935, 25, 32, "Output",ExpressionUUID->"7b95e50c-0384-4a72-b812-ac01bb29743f"] }, Open ]], Cell[425397, 11122, 825, 19, 28, "Input",ExpressionUUID->"7a0abdaa-4d44-4ece-ad41-896139d6ad31"], Cell[CellGroupData[{ Cell[426247, 11145, 295, 5, 28, "Input",ExpressionUUID->"4b378fa5-1fb0-4fbf-adcd-c39f535a28fd"], Cell[426545, 11152, 6754, 142, 289, "Output",ExpressionUUID->"4122406d-56da-4e25-917b-66d9a00b8fc9"] }, Open ]], Cell[CellGroupData[{ Cell[433336, 11299, 189, 4, 28, "Input",ExpressionUUID->"ded7f18f-3e90-434e-94af-0329c3448151"], Cell[433528, 11305, 1016, 37, 334, "Output",ExpressionUUID->"3a75ec1b-ff60-4534-b064-71e286153b53"] }, Open ]], Cell[434559, 11345, 536, 13, 28, "Input",ExpressionUUID->"a47dfff2-0f49-4ad9-9873-77d75933a688"], Cell[CellGroupData[{ Cell[435120, 11362, 296, 7, 28, "Input",ExpressionUUID->"c84cc1a0-591e-494c-98aa-1f4c86b9e60c"], Cell[435419, 11371, 1057, 21, 36, "Output",ExpressionUUID->"bd2c91ce-a01d-49b1-a412-5e9d588d6ea2"] }, Open ]], Cell[CellGroupData[{ Cell[436513, 11397, 193, 4, 28, "Input",ExpressionUUID->"90b4812e-1ff4-472e-ba46-bea660ea88eb"], Cell[436709, 11403, 1175, 33, 256, "Output",ExpressionUUID->"4de2db60-9670-4ae6-b67e-ac2e7dcd07f8"] }, Open ]] }, Open ]] }, Open ]] } ] *)