(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 5503864, 114671] NotebookOptionsPosition[ 5444198, 113637] NotebookOutlinePosition[ 5444846, 113658] CellTagsIndexPosition[ 5444803, 113655] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MEC-E8001 Finite Element Analysis 2024", "Title", InitializationCell->True, CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860007`*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, 3.5568725629008203`*^9, {3.5568726649396563`*^9, 3.5568726677478175`*^9}, 3.618709835758954*^9, 3.629777498181036*^9, 3.661174828401641*^9, {3.685234578060045*^9, 3.6852345824842987`*^9}, { 3.68523485439185*^9, 3.6852348785262313`*^9}, {3.6852638608992662`*^9, 3.685263861779268*^9}, {3.685320346309156*^9, 3.685320357419171*^9}, { 3.688455489182722*^9, 3.688455490812724*^9}, {3.690793272858951*^9, 3.6907932833889694`*^9}, 3.692021062414472*^9, 3.723799076464348*^9, 3.752907552672845*^9, {3.786674520886054*^9, 3.78667452099538*^9}, { 3.787369077038349*^9, 3.787369078333099*^9}, {3.7873692589195023`*^9, 3.7873692634178495`*^9}, 3.816933053461233*^9, {3.817042959067622*^9, 3.817042966014656*^9}, {3.8191048779101887`*^9, 3.819104878387551*^9}, 3.8506134998997326`*^9, {3.881205177543756*^9, 3.8812051776745157`*^9}, { 3.912064228067427*^9, 3.912064228911879*^9}},ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-\ 59c8faa291c7"], Cell[CellGroupData[{ Cell["FEM DEFINITIONS", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}},ExpressionUUID->"ee613e85-1fdd-d54a-8608-\ c1e2a1258645"], Cell[CellGroupData[{ Cell["DEFS defs ", "Subsection", CellChangeTimes->{{3.4770537307790003`*^9, 3.4770537313562*^9}},ExpressionUUID->"96ccfa19-2206-454b-81d9-9118e0e16ff0"], Cell[BoxData[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "\[Delta]", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "exp_", "]"}], ":=", RowBox[{"exp", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]c", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]ux", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]x", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]y", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]X", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]Y", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]Z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Fy", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Fz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mx", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Mx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"My", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]My", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Mz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Mz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FN", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FN", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FT", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FT", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FB", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MN", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MN", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MT", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MT", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MB", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CurlyTheta]", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[CurlyTheta]", "[", "any", "]"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]UN", "[", "exp_", "]"}], ":=", RowBox[{"exp", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"b", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]c", "[", "any__", "]"}], " ", "\[Rule]", RowBox[{"c", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"ux", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"uy", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"uz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]x", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]y", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"uX", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"uY", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"uZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]X", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]Y", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Theta]Z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]Fx", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fx", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]Fy", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fy", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]Fz", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]Mx", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mx", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]My", "[", "any__", "]"}], "\[Rule]", RowBox[{"My", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]Mz", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]FX", "[", "any__", "]"}], "\[Rule]", RowBox[{"FX", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]FY", "[", "any__", "]"}], "\[Rule]", RowBox[{"FY", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]FZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"FZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]MX", "[", "any__", "]"}], "\[Rule]", RowBox[{"MX", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]MY", "[", "any__", "]"}], "\[Rule]", RowBox[{"MY", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]MZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"MZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]FN", "[", "any__", "]"}], "\[Rule]", RowBox[{"FN", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]FT", "[", "any__", "]"}], "\[Rule]", RowBox[{"FT", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]FB", "[", "any__", "]"}], "\[Rule]", RowBox[{"FB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]MN", "[", "any__", "]"}], "\[Rule]", RowBox[{"MN", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]MT", "[", "any__", "]"}], "\[Rule]", RowBox[{"MT", "[", "any", "]"}]}], ",", " ", RowBox[{ RowBox[{"\[Delta]MB", "[", "any__", "]"}], "\[Rule]", RowBox[{"MB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"\[Delta]\[CurlyTheta]", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[CurlyTheta]", "[", "any", "]"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DOFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}], "|", RowBox[{"c", "[", "__", "]"}], " ", "|", RowBox[{"uX", "[", "__", "]"}], "|", RowBox[{"uY", "[", "__", "]"}], "|", RowBox[{"uZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]X", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]Y", "[", "__", "]"}], "|", RowBox[{"\[Theta]Z", "[", "__", "]"}], "|", RowBox[{"ux", "[", "__", "]"}], "|", RowBox[{"uy", "[", "__", "]"}], "|", RowBox[{"uz", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]x", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]y", "[", "__", "]"}], "|", RowBox[{"\[Theta]z", "[", "__", "]"}], "|", RowBox[{"FX", "[", "__", "]"}], "|", RowBox[{"FY", "[", "__", "]"}], "|", RowBox[{"FZ", "[", "__", "]"}], "|", " ", RowBox[{"MX", "[", "__", "]"}], "|", " ", RowBox[{"MY", "[", "__", "]"}], "|", RowBox[{"MZ", "[", "__", "]"}], "|", RowBox[{"FN", "[", "__", "]"}], "|", RowBox[{"FT", "[", "__", "]"}], "|", RowBox[{"FB", "[", "__", "]"}], "|", " ", RowBox[{"MN", "[", "__", "]"}], "|", " ", RowBox[{"MT", "[", "__", "]"}], "|", RowBox[{"MB", "[", "__", "]"}], "|", RowBox[{"Fx", "[", "__", "]"}], "|", RowBox[{"Fy", "[", "__", "]"}], "|", RowBox[{"Fz", "[", "__", "]"}], "|", " ", RowBox[{"Mx", "[", "__", "]"}], "|", " ", RowBox[{"My", "[", "__", "]"}], "|", RowBox[{"Mz", "[", "__", "]"}], "|", " ", RowBox[{"\[CurlyTheta]", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DFFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"FX", "[", "__", "]"}], "|", RowBox[{"FY", "[", "__", "]"}], "|", RowBox[{"FZ", "[", "__", "]"}], "|", " ", RowBox[{"MX", "[", "__", "]"}], "|", " ", RowBox[{"MY", "[", "__", "]"}], "|", RowBox[{"MZ", "[", "__", "]"}], "|", RowBox[{"FN", "[", "__", "]"}], "|", RowBox[{"FT", "[", "__", "]"}], "|", RowBox[{"FB", "[", "__", "]"}], "|", " ", RowBox[{"MN", "[", "__", "]"}], "|", " ", RowBox[{"MT", "[", "__", "]"}], "|", RowBox[{"MB", "[", "__", "]"}], "|", RowBox[{"Fx", "[", "__", "]"}], "|", RowBox[{"Fy", "[", "__", "]"}], "|", RowBox[{"Fz", "[", "__", "]"}], "|", " ", RowBox[{"Mx", "[", "__", "]"}], "|", " ", RowBox[{"My", "[", "__", "]"}], "|", RowBox[{"Mz", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]DFFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"\[Delta]FX", "[", "__", "]"}], "|", RowBox[{"\[Delta]FY", "[", "__", "]"}], "|", RowBox[{"\[Delta]FZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MX", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MY", "[", "__", "]"}], "|", RowBox[{"\[Delta]MZ", "[", "__", "]"}], "|", RowBox[{"\[Delta]FN", "[", "__", "]"}], "|", RowBox[{"\[Delta]FT", "[", "__", "]"}], "|", RowBox[{"\[Delta]FB", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MN", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MT", "[", "__", "]"}], "|", RowBox[{"\[Delta]MB", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fx", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fy", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]Mx", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]My", "[", "__", "]"}], "|", RowBox[{"\[Delta]Mz", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]DOFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}], "|", RowBox[{"\[Delta]c", "[", "__", "]"}], " ", "|", RowBox[{"\[Delta]uX", "[", "__", "]"}], "|", RowBox[{"\[Delta]uY", "[", "__", "]"}], "|", RowBox[{"\[Delta]uZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]X", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]Y", "[", "__", "]"}], "|", RowBox[{"\[Delta]\[Theta]Z", "[", "__", "]"}], "|", RowBox[{"\[Delta]ux", "[", "__", "]"}], "|", RowBox[{"\[Delta]uy", "[", "__", "]"}], "|", RowBox[{"\[Delta]uz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]x", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]y", "[", "__", "]"}], "|", RowBox[{"\[Delta]\[Theta]z", "[", "__", "]"}], "|", RowBox[{"\[Delta]FX", "[", "__", "]"}], "|", RowBox[{"\[Delta]FY", "[", "__", "]"}], "|", RowBox[{"\[Delta]FZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MX", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MY", "[", "__", "]"}], "|", RowBox[{"\[Delta]MZ", "[", "__", "]"}], "|", RowBox[{"\[Delta]FN", "[", "__", "]"}], "|", RowBox[{"\[Delta]FT", "[", "__", "]"}], "|", RowBox[{"\[Delta]FB", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MN", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MT", "[", "__", "]"}], "|", RowBox[{"\[Delta]MB", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fx", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fy", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]Mx", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]My", "[", "__", "]"}], "|", RowBox[{"\[Delta]Mz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[CurlyTheta]", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DOFS", "[", RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"b", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"c", "[", RowBox[{"__", ",", "n"}], "]"}], " ", "|", RowBox[{"uX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]X", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]Y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Theta]Z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"ux", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"uz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]x", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Theta]y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Theta]z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"MZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"FB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"MT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"MB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Fz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"Mx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"My", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"Mz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[CurlyTheta]", "[", RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]DOFS", "[", RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{ RowBox[{"{", "exp", "}"}], ",", RowBox[{ RowBox[{"\[Delta]a", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]b", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]c", "[", RowBox[{"__", ",", "n"}], "]"}], " ", "|", RowBox[{"\[Delta]uX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]ux", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]uz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MX", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MY", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]MZ", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]FB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MN", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]MT", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]MB", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fy", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Fz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]Mx", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]My", "[", RowBox[{"__", ",", "n"}], "]"}], "|", RowBox[{"\[Delta]Mz", "[", RowBox[{"__", ",", "n"}], "]"}], "|", " ", RowBox[{"\[Delta]\[CurlyTheta]", "[", RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DRULE", "[", "n_", "]"}], ":=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"b", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"c", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]X", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]Y", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]Z", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"ux", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uy", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"uz", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]x", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]y", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"\[Theta]z", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MX", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MY", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MZ", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FN", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FN", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FT", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FT", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"FB", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"FB", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MN", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MN", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MT", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MT", "[", RowBox[{"any", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"MB", "[", "any__", "]"}], "\[Rule]", " ", RowBox[{"MB", "[", RowBox[{"any", ",", "n"}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "u_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "dof", "}"}], ",", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "u", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"dof", "==", RowBox[{"{", "}"}]}], " ", ",", RowBox[{"u", "*", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{"u", ",", RowBox[{"{", "dof", "}"}]}], "]"}], ".", RowBox[{"\[Delta]", "[", "dof", "]"}]}]}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.442646258577845*^9, 3.442646259077045*^9}, 3.4770537732734003`*^9, {3.4770538084514*^9, 3.4770539107874*^9}, { 3.4770539837018*^9, 3.4770539840762*^9}, {3.631018436621814*^9, 3.631018437292616*^9}, {3.685233451807683*^9, 3.685233452477684*^9}, { 3.685234382901882*^9, 3.685234386640098*^9}, {3.685344204103457*^9, 3.6853443400412316`*^9}, {3.6853443751512394`*^9, 3.685344377332364*^9}, 3.6853454114825144`*^9, {3.686831646161264*^9, 3.6868318084514933`*^9}, { 3.686832766952832*^9, 3.6868328092028913`*^9}, {3.686832846372944*^9, 3.686832931023062*^9}, {3.687263552974466*^9, 3.68726356166448*^9}, { 3.6875150430418844`*^9, 3.6875151112847824`*^9}, {3.687743582879592*^9, 3.687743667509711*^9}, {3.687743698119753*^9, 3.687743737409808*^9}, { 3.687743767499851*^9, 3.687743819059922*^9}, {3.687744657251096*^9, 3.687744669171112*^9}, {3.692421446310708*^9, 3.69242161182094*^9}, { 3.6926015199824505`*^9, 3.692601820564872*^9}, {3.692690935549731*^9, 3.692690936789733*^9}, {3.692767714844748*^9, 3.692767777644837*^9}, { 3.692767831454912*^9, 3.692767871884969*^9}, {3.694232237611687*^9, 3.694232408501927*^9}, {3.694415508707368*^9, 3.694415535947406*^9}, { 3.6944156219175262`*^9, 3.6944156308775387`*^9}, {3.694415674217599*^9, 3.694415743297696*^9}, 3.694416262378423*^9, 3.694416759679119*^9, { 3.6946871199157624`*^9, 3.694687178045844*^9}, 3.694687240645934*^9, { 3.69484543773889*^9, 3.694845473938943*^9}, {3.694845622699153*^9, 3.694845623739154*^9}, {3.69484572091929*^9, 3.6948457976193976`*^9}, { 3.724304012886026*^9, 3.724304060229605*^9}, {3.73313814515314*^9, 3.7331381540290995`*^9}, {3.733138190908001*^9, 3.7331382926372194`*^9}, { 3.7458091168859*^9, 3.745809330453831*^9}, {3.7530811243190904`*^9, 3.753081144918659*^9}, {3.756168639644263*^9, 3.756168670119571*^9}, { 3.7600603151211576`*^9, 3.760060315683525*^9}, {3.789479648409992*^9, 3.789479649089468*^9}, {3.789479692503845*^9, 3.7894797188708086`*^9}, { 3.789479750036141*^9, 3.789479784847563*^9}, 3.789479968188523*^9, { 3.789480438163148*^9, 3.789480442205195*^9}, {3.7894806002852697`*^9, 3.789480655832934*^9}, {3.8166040129889574`*^9, 3.8166041495837836`*^9}, { 3.816604189186468*^9, 3.816604214802972*^9}, {3.8166042734773865`*^9, 3.8166043972850933`*^9}, {3.816604428267262*^9, 3.816604499850178*^9}, { 3.816608170369864*^9, 3.816608220389016*^9}, {3.82106554697574*^9, 3.821065597044009*^9}, {3.821065646217851*^9, 3.821065659621196*^9}, { 3.821065714586218*^9, 3.8210658123471637`*^9}, {3.8210658715411763`*^9, 3.821065940333043*^9}, 3.8210659934232125`*^9, {3.821151689134054*^9, 3.8211516901175613`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"e9b956fd-b35b-c648-bce1-b2bf569885a8"] }, Closed]], Cell[CellGroupData[{ Cell["SHAPE defs ", "Subsection",ExpressionUUID->"7c32a888-2420-884f-9253-418d6446d962"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "->", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bas", ",", RowBox[{ SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES21", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", "y1_"}], "}"}], ",", RowBox[{"{", RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nx", "=", " ", RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "x1", "}"}], ",", RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ny", "=", " ", RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "y1", "}"}], ",", RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES3", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "->", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "->", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"h", "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], "}"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"r", "->", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"r", "-", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"r", "-", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], ",", RowBox[{"{", RowBox[{"m_", ",", "s_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "r_"}], "}"}], ",", RowBox[{"{", RowBox[{"m_", ",", "s_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "t_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"k", ",", "t"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LAGRANGE", "[", RowBox[{"n_", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", "/", RowBox[{"(", RowBox[{"#1", "/.", RowBox[{"x", "\[Rule]", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Times", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"x", "-", RowBox[{"(", RowBox[{"x0", "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"jj", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES1", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"Simplify", "[", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"bas", ",", RowBox[{ SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", RowBox[{"{", RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES2", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHAPES21", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", "y1_"}], "}"}], ",", RowBox[{"{", RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nx", "=", " ", RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "x1", "}"}], ",", RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ny", "=", " ", RowBox[{ RowBox[{"SHAPES11", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "y1", "}"}], ",", RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "4", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Nx", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"Ny", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHAPES3", "[", RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", RowBox[{"bas", " ", ".", " ", RowBox[{"Inverse", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", "bas", "}"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "->", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "->", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "->", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.4670783931368*^9, 3.4670784098444*^9}, { 3.468067594204*^9, 3.4680678179392*^9}, 3.4680680234556*^9, { 3.468068073126*^9, 3.4680681447455997`*^9}, {3.4680681751188*^9, 3.46806831009*^9}, {3.4684605671832*^9, 3.468460572674401*^9}, { 3.471399186098*^9, 3.4713991974236*^9}, {3.471404873455*^9, 3.4714048739854*^9}, {3.4820580083386*^9, 3.4820580095086*^9}, { 3.482058887483599*^9, 3.4820588977016*^9}, {3.618719308856648*^9, 3.6187193100797176`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"1c77f8f9-192a-2344-a0fe-11e5368d1394"] }, Closed]], Cell[CellGroupData[{ Cell["QUAD defs ", "Subsection",ExpressionUUID->"45558959-9618-444f-b78e-5ca6dc6ae48a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN1", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", "1", "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN2", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN2G", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0.21132486540518713", "}"}], ",", RowBox[{"{", "0.7886751345948129", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN3G", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0.1127016653792583", "}"}], ",", RowBox[{"{", "0.5", "}"}], ",", RowBox[{"{", "0.8872983346207417", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ "0.2777777777777777", ",", "0.44444444444444453", ",", "0.2777777777777777"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN5", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "32", ",", "12", ",", "32", ",", "7"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN5", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "32", ",", "12", ",", "32", ",", "7"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "6", "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "41", ",", "216", ",", "27", ",", "272", ",", "27", ",", "216", ",", "41"}], "}"}], "/", "840"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN14", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"ii", ",", "0", ",", "13"}], "}"}]}], "]"}], "/", "13"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ FractionBox["8181904909", "402361344000"], ",", FractionBox["56280729661", "402361344000"], ",", RowBox[{"-", FractionBox["1737125143", "22353408000"]}], ",", FractionBox["11148172711", "28740096000"], ",", RowBox[{"-", FractionBox["6066382933", "16094453760"]}], ",", FractionBox["22964826443", "44706816000"], ",", RowBox[{"-", FractionBox["3592666051", "33530112000"]}], ",", RowBox[{"-", FractionBox["3592666051", "33530112000"]}], ",", FractionBox["22964826443", "44706816000"], ",", RowBox[{"-", FractionBox["6066382933", "16094453760"]}], ",", FractionBox["11148172711", "28740096000"], ",", RowBox[{"-", FractionBox["1737125143", "22353408000"]}], ",", FractionBox["56280729661", "402361344000"], ",", FractionBox["8181904909", "402361344000"]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "24"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI41", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "120"}], "*", RowBox[{"{", RowBox[{"11", ",", "11", ",", "11", ",", "27"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI12", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", "4", ",", RowBox[{"-", "1"}], ",", "8", ",", RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "36", ",", RowBox[{"-", "27"}], ",", "64", ",", RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", ",", "72", ",", "72", ",", "72", ",", "36", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "54"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", RowBox[{"(", RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"1", "/", "24"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "15"}], ",", RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI12", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", "4", ",", RowBox[{"-", "1"}], ",", "8", ",", RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "36", ",", RowBox[{"-", "27"}], ",", "64", ",", RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", ",", "72", ",", "72", ",", "72", ",", "36", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "54"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", ",", RowBox[{"-", "27"}], ",", "72", ",", RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", RowBox[{"(", RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC1", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC4", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "/", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"REC9", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1"}], "}"}], "/", "36"}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "16", ",", "64", ",", "16", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", ",", "1"}], "}"}], "/", RowBox[{"6", "^", "3"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TET5", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "16"}], ",", "9", ",", "9", ",", "9", ",", "9"}], "}"}], "/", "120"}]}], ",", RowBox[{"p", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "6"}], ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "6"}]}], "}"}]}], "}"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TET10", ",", "exp_", ",", "var_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4"}], "}"}], "/", "120"}]}], ",", RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], "]"}]}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442646276143445*^9, {3.442646358027845*^9, 3.442646367278643*^9}, 3.4461855349388*^9, {3.446864926409199*^9, 3.4468649477656*^9}, 3.477065319815799*^9, {3.4771016648258*^9, 3.4771016703638*^9}, 3.4773012612406*^9, 3.4773013118782*^9, {3.4773017793166*^9, 3.4773018115618*^9}, {3.4818081970202*^9, 3.4818082252406*^9}, { 3.482297760829601*^9, 3.48229777267*^9}, {3.482298444565*^9, 3.4822984493698*^9}, {3.4822986565578003`*^9, 3.4822987152293997`*^9}, { 3.482298747147001*^9, 3.4822988202018*^9}, {3.4823218768966*^9, 3.4823219047738*^9}, {3.632040075912755*^9, 3.63204007741884*^9}, { 3.6339410644178886`*^9, 3.633941069742193*^9}, {3.633942002306533*^9, 3.633942003477599*^9}, 3.6565732333204584`*^9, {3.685329942084824*^9, 3.6853299995431104`*^9}, {3.688119522418332*^9, 3.688119523698334*^9}, { 3.688119557148381*^9, 3.688119591558429*^9}, {3.688120564569791*^9, 3.688120568389799*^9}, {3.688120618509866*^9, 3.688120642069899*^9}, { 3.688284719785588*^9, 3.688284729985602*^9}, {3.6882848245567346`*^9, 3.688284827776739*^9}, {3.688284875506806*^9, 3.688284886746822*^9}, { 3.688350375413198*^9, 3.688350378173202*^9}, 3.6883504111932483`*^9, { 3.7455544449212356`*^9, 3.745554465572897*^9}, {3.7455544990494084`*^9, 3.745554517279535*^9}, {3.74644306965172*^9, 3.746443076505107*^9}, { 3.746873351131408*^9, 3.7468733665022874`*^9}, {3.763815192640204*^9, 3.763815226217584*^9}, {3.76381555999401*^9, 3.763815576658593*^9}, { 3.763815629456071*^9, 3.763815643364319*^9}, {3.7638156760642715`*^9, 3.763815680110509*^9}, {3.763816314054133*^9, 3.763816315160985*^9}, { 3.764128397481893*^9, 3.7641284022168202`*^9}, {3.764128466623234*^9, 3.764128512308055*^9}, {3.764128551628565*^9, 3.764128597474304*^9}, { 3.764128638976105*^9, 3.764128668115802*^9}, {3.7661439599999857`*^9, 3.766144017439571*^9}, {3.841389728260834*^9, 3.8413897551839*^9}, { 3.84139070668976*^9, 3.841390726628026*^9}, 3.841390760764998*^9, { 3.8435604066446185`*^9, 3.843560438358281*^9}, {3.84356055536794*^9, 3.843560556538128*^9}, {3.843561774758001*^9, 3.8435617981268296`*^9}, { 3.8435621954269557`*^9, 3.8435621959062867`*^9}, {3.844574470547961*^9, 3.84457448460798*^9}, {3.844574539146332*^9, 3.844574603163684*^9}, 3.844574686000376*^9, {3.872149228206285*^9, 3.872149229483136*^9}, { 3.8721492692823997`*^9, 3.8721492926678143`*^9}, {3.872330854573894*^9, 3.872330873686554*^9}, {3.873682080207474*^9, 3.8736820984942775`*^9}, { 3.907760448529519*^9, 3.9077604767562885`*^9}, {3.9079064703652925`*^9, 3.9079064878761053`*^9}, {3.908089302760657*^9, 3.90808931639783*^9}, { 3.91397853263657*^9, 3.9139785663211975`*^9}, {3.913978745783844*^9, 3.9139787846433525`*^9}, {3.913979221180755*^9, 3.913979298871994*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"8d52c272-952a-b345-8122-544b8f192b63"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tet", "=", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", "z", ",", RowBox[{"x", " ", "y"}], ",", RowBox[{"x", " ", "z"}], ",", " ", RowBox[{"y", " ", "z"}], ",", " ", RowBox[{"x", "^", "2"}], ",", " ", RowBox[{"y", "^", "2"}], ",", RowBox[{"z", "^", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eq", "[", "i_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}], ".", RowBox[{"(", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "->", "#"}], "]"}]}], "&"}], ",", "p"}], "]"}], ")"}]}], "-", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["tet", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}]}]}], StyleBox[";", "OperatorCharacter"]}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{ StyleBox["Solve", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{ StyleBox["Table", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"eq", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "==", "0"}], "]"}], ",", RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"120", "*", RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}]}], " ", "/.", "sol"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{ RowBox[{"Array", "[", RowBox[{"w", ",", "10"}], "]"}], " ", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8413897580019093`*^9, 3.841390582400603*^9}, { 3.841390641631239*^9, 3.841390651680857*^9}, {3.841390686922451*^9, 3.841390692801841*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"25e269f0-9718-214b-889f-da1d3ac892ac"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.841390078071135*^9, 3.841390120321647*^9, 3.841390186370854*^9, 3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 3.841390583991149*^9}, 3.841390653783507*^9, 3.8413906934544754`*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"55d6f2fa-69cf-d744-bfce-48dc2db5b516"], Cell[BoxData[ FractionBox["1", "6"]], "Output", CellChangeTimes->{ 3.841390078071135*^9, 3.841390120321647*^9, 3.841390186370854*^9, 3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 3.841390583991149*^9}, 3.841390653783507*^9, 3.841390693458464*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"f0df3a1d-7688-b549-97a4-2e2a8fd20967"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["INTEGRATE defs ", "Subsection",ExpressionUUID->"bf4cb436-ccac-9e4e-9703-1b79bb057462"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"INTEGRATE", "[", RowBox[{ RowBox[{"{", RowBox[{"LINE", ",", "exp_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{ RowBox[{"{", RowBox[{"LINLINE", ",", "exp"}], "}"}], ",", "#"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RULE", "[", RowBox[{"{", RowBox[{"LINE", ",", RowBox[{"{", "iy_", "}"}], ",", "list_"}], "}"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iz", ",", "hx", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], " ", "=", " ", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"Last", "[", "list", "]"}], "]"}], "-", RowBox[{"XYZ", "[", RowBox[{"First", "[", "list", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", " ", "=", " ", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", " ", RowBox[{"Length", "[", "list", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"ix", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"yrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"y", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"iy", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"zrule", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", "ii", "]"}], "\[Rule]", " ", RowBox[{"iz", ".", RowBox[{"XYZ", "[", RowBox[{"list", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{"xrule", ",", "yrule", ",", "zrule"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"QUAD", "[", RowBox[{ RowBox[{"{", RowBox[{"LINLINE", ",", "exp_"}], "}"}], ",", "element_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "rule", ",", "xx", ",", "yy", ",", "zz", ",", "J", ",", "int"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", " ", "=", " ", RowBox[{"RULE", "[", "element", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xx", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "1", "]"}], ",", RowBox[{"x", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"yy", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"y", "[", "1", "]"}], ",", RowBox[{"y", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"zz", " ", "=", " ", RowBox[{ RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{"z", "[", "1", "]"}], ",", RowBox[{"z", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"J", " ", "=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "xx"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "yy"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "zz"}], ")"}], "^", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"int", " ", "=", " ", RowBox[{ RowBox[{"J", "*", "exp"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xx"}], ",", " ", RowBox[{"y", "\[Rule]", "yy"}], ",", " ", RowBox[{"z", "\[Rule]", "zz"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUADE", "[", RowBox[{"QTYPE", ",", RowBox[{ RowBox[{"(", RowBox[{"int", " ", "/.", " ", RowBox[{"\[Xi]", "\[Rule]", " ", "#1"}]}], ")"}], "&"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE1", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"exp", "[", RowBox[{"{", RowBox[{"1", "/", "2"}], "}"}], "]"}], ".", RowBox[{"{", "1", "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE2", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"exp", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"QUADE", "[", RowBox[{"LINE3", ",", "exp_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"exp", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}], "/", "2"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], ";"}]}], "Input", InitializationCell->True, CellLabel->"In[68]:=",ExpressionUUID->"489389f8-2bb1-e549-adf4-d7ce9d16f3e7"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FORCE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531303014368*^9, 3.8175313048303146`*^9}, {3.817531497906958*^9, 3.817531515300654*^9}, 3.817531608989934*^9},ExpressionUUID->"c312d317-9bba-1046-a186-\ df3d13ff1a84"], Cell[CellGroupData[{ Cell["NULL ELEMENT defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607882211847*^9, 3.760607887331985*^9}, {3.7606079926026397`*^9, 3.760607999208559*^9}},ExpressionUUID->"4863660d-3948-1344-94ac-\ b1d50f04f0c7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"should", " ", "anything", " ", "go", " ", "wrong"}], ",", " ", RowBox[{"do", " ", "this"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"analysistype_", ",", "ele_", ",", "fun_"}], "]"}], ":=", "0"}], ";"}]}]], "Input", CellChangeTimes->{{3.760607969172984*^9, 3.7606079699771805`*^9}, { 3.760608006624578*^9, 3.760608064931302*^9}, {3.78807614276607*^9, 3.788076155873885*^9}, {3.788424805091097*^9, 3.7884248740992002`*^9}, { 3.817531967792331*^9, 3.817531969861539*^9}},ExpressionUUID->"78211ef6-047d-1644-9e04-\ 42c59bfeb4c5"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607882211847*^9, 3.760607887331985*^9}, {3.766555151642228*^9, 3.7665551755834265`*^9}, {3.774244544239236*^9, 3.7742445459998*^9}, { 3.787895139092532*^9, 3.787895139619763*^9}},ExpressionUUID->"19087b3c-9d7f-e345-85c7-\ bf81478a17c2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fX", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], " ", "+", RowBox[{"fY", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], "+", "\[IndentingNewLine]", RowBox[{"fZ", "*", "h0", "*", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Area", "[", RowBox[{"Polygon", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", "12"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.6336810782549553`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711264`*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.6881825493903413`*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427347`*^9}, {3.7247573425972157`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607910807132*^9, 3.760607911704075*^9}, {3.766555201350331*^9, 3.7665553560217686`*^9}, {3.766555392681496*^9, 3.766555405620928*^9}, { 3.76663078538684*^9, 3.766630788445305*^9}, {3.766630869507775*^9, 3.7666309155844073`*^9}, {3.766630963805001*^9, 3.766630964328018*^9}, { 3.766631006377562*^9, 3.766631007597319*^9}, {3.766631053754822*^9, 3.76663105576933*^9}, {3.766631102143116*^9, 3.766631182053177*^9}, { 3.774244592505701*^9, 3.774244606024996*^9}, {3.774244666999945*^9, 3.774244780885934*^9}, {3.7742448195924053`*^9, 3.774244833365642*^9}, { 3.774244897159311*^9, 3.7742449615049114`*^9}, {3.774245098242358*^9, 3.774245123878042*^9}, {3.77424518753212*^9, 3.774245194368603*^9}, { 3.7742452586200476`*^9, 3.7742453104279203`*^9}, {3.7742469442792187`*^9, 3.774247246560859*^9}, {3.774247297716411*^9, 3.774247331264948*^9}, { 3.78807546567931*^9, 3.788075583030453*^9}, 3.78807562415361*^9, { 3.788075666988602*^9, 3.788075676867788*^9}, 3.788075710101962*^9, { 3.788075747380065*^9, 3.788075748270481*^9}, {3.788076000092724*^9, 3.788076030825418*^9}, 3.817437852364077*^9, {3.8408458462334127`*^9, 3.8408458682568913`*^9}, {3.840847529962968*^9, 3.840847547834058*^9}, { 3.894424621795367*^9, 3.894424623202103*^9}, {3.9051718275449295`*^9, 3.905171862881064*^9}, {3.905171896746775*^9, 3.9051719521760015`*^9}, { 3.905171996990958*^9, 3.9051720896784105`*^9}, {3.9051729661377645`*^9, 3.905172970953158*^9}, {3.905173043185778*^9, 3.905173190474289*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"1249f1aa-e362-7c4e-8619-656a06a7ae24"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}},ExpressionUUID->"bbd86f8c-f24b-ad46-849a-\ 2b649266d6ce"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}], ")"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Area", "[", RowBox[{"Polygon", "[", RowBox[{"fun", "[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], "]"}], "]"}], "/", "12"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", "m_", "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", " ", RowBox[{"(", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "J"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"iz", "=", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["iy", "OperatorCharacter"]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"(", " ", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"J", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"for", " ", "detailed", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"xyz_", ",", "obj_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "J"}], "}"}], ",", RowBox[{"{", RowBox[{"ix", ",", "iy"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.6336810782549553`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711264`*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.6881825493903413`*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427347`*^9}, {3.7247573425972157`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.820469573319458*^9, 3.820469611924109*^9}, {3.820469713680828*^9, 3.820469726202425*^9}, {3.820469774985937*^9, 3.8204697820405493`*^9}, { 3.820470981863214*^9, 3.8204709829070034`*^9}, {3.8211506205514607`*^9, 3.8211506410480547`*^9}, {3.821150731307102*^9, 3.821150735471115*^9}, { 3.821151423923393*^9, 3.82115148698011*^9}, {3.821151531470887*^9, 3.8211516059392166`*^9}, {3.829884426688024*^9, 3.829884462254188*^9}, { 3.829890944882238*^9, 3.829890962943831*^9}, {3.829891002598065*^9, 3.829891004150228*^9}, {3.829891077911916*^9, 3.8298911107781134`*^9}, { 3.829891268286618*^9, 3.829891271409994*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"a1039d8e-312c-204a-ba85-081e43fa7798"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}},ExpressionUUID->"b6241cc7-1a0e-2a45-a536-\ fb042a094826"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX", ",", "FY", ",", "FZ", ",", "MX", ",", "MY", ",", "MZ"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2"}], "}"}]}], "}"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.6336810782549553`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711264`*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.6881825493903413`*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427347`*^9}, {3.7247573425972157`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.821150888214839*^9, 3.821150929464642*^9}, {3.821150960323895*^9, 3.8211510555185704`*^9}, {3.821151147384238*^9, 3.821151233654641*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"7da9b287-0be9-5c40-a558-0f82b00c0c8d"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}, { 3.789441075232401*^9, 3.789441076107287*^9}},ExpressionUUID->"e9c8bc8b-fe47-794e-856f-\ 1a10702f92af"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", RowBox[{"MY", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}]}], "*", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "*", " ", RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "^", "2"}]}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", RowBox[{"{", RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", RowBox[{"{", RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", RowBox[{"{", RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.6336810782549553`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711264`*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.6881825493903413`*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427347`*^9}, {3.7247573425972157`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.789441083494993*^9, 3.7894410929576*^9}, {3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 3.821614000501048*^9}, { 3.821778980163827*^9, 3.821779023170026*^9}, {3.852614919790853*^9, 3.8526149264241767`*^9}, {3.852615009794517*^9, 3.852615107659442*^9}, { 3.852615193784408*^9, 3.852615379979502*^9}, {3.852615423643306*^9, 3.852615428357727*^9}, 3.852615738143323*^9, {3.85261577369608*^9, 3.852615775471865*^9}, {3.852615819281072*^9, 3.852615873318371*^9}, 3.85261673979656*^9, {3.85261723461384*^9, 3.8526172417322617`*^9}, { 3.852617814134855*^9, 3.8526178535724907`*^9}, 3.852617953477276*^9, { 3.8526936587753305`*^9, 3.852693709451621*^9}, {3.852694329637337*^9, 3.852694418011649*^9}, {3.852694451913797*^9, 3.852694569753277*^9}, { 3.852699051213097*^9, 3.85269906934655*^9}, {3.852699119349107*^9, 3.85269912274557*^9}, {3.894424571462335*^9, 3.894424592392272*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"7be4658a-d988-bc44-93d2-34600125a60f"] }, Closed]], Cell[CellGroupData[{ Cell["FORCE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, { 3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362803`*^9}, { 3.789441075232401*^9, 3.789441076107287*^9}, {3.8223693498062468`*^9, 3.8223693569381757`*^9}},ExpressionUUID->"fbcc9399-2e13-8f4c-80bf-\ a8b613becca3"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"FORCE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"FORCE", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.5002027395954*^9, {3.5007051491098*^9, 3.5007051504826*^9}, { 3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, { 3.557661012619109*^9, 3.557661027844735*^9}, {3.557661136342926*^9, 3.557661147387746*^9}, {3.62979085634708*^9, 3.629791071268656*^9}, 3.629791192215669*^9, 3.629791337951124*^9, 3.630659123489007*^9, { 3.630680208562847*^9, 3.630680256501731*^9}, {3.630681082806783*^9, 3.630681095411605*^9}, {3.633681018525538*^9, 3.6336810782549553`*^9}, { 3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711264`*^9, { 3.685340265324936*^9, 3.685340267344939*^9}, {3.6881771903780155`*^9, 3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, { 3.688180754713784*^9, 3.688180765043797*^9}, {3.6881808240138793`*^9, 3.688180876463952*^9}, {3.688180949954056*^9, 3.688181051294197*^9}, { 3.688181093904257*^9, 3.68818128869453*^9}, {3.688181328234585*^9, 3.688181330484588*^9}, {3.688181453674761*^9, 3.688181543994888*^9}, { 3.6881825493903413`*^9, 3.688182555350348*^9}, {3.688868642494087*^9, 3.688868654634104*^9}, {3.688960391083512*^9, 3.688960395673517*^9}, { 3.689219616832556*^9, 3.689219671132632*^9}, {3.689222567786687*^9, 3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, { 3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 3.6926157969499297`*^9}, {3.6926158381999874`*^9, 3.692615912750091*^9}, { 3.69261598286019*^9, 3.692615992390203*^9}, {3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 3.692616301970637*^9}, 3.692616996751609*^9, {3.692617055031691*^9, 3.692617072671716*^9}, { 3.6926171281517935`*^9, 3.692617142411814*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {3.693017854095977*^9, 3.693017883996019*^9}, { 3.693017945736105*^9, 3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {3.694845162608508*^9, 3.694845213518578*^9}, { 3.694845249018627*^9, 3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427347`*^9}, {3.7247573425972157`*^9, 3.724757343668002*^9}, { 3.724757406051021*^9, 3.724757418222663*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {3.724757565411464*^9, 3.724757565695835*^9}, { 3.725367981062604*^9, 3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {3.753176073689463*^9, 3.753176086743325*^9}, { 3.753176152767415*^9, 3.753176188588335*^9}, {3.753176365727487*^9, 3.7531763780597005`*^9}, {3.755723327793617*^9, 3.755723373856419*^9}, { 3.760607934362851*^9, 3.760607938600445*^9}, {3.760608196677984*^9, 3.760608220613164*^9}, {3.765081699430012*^9, 3.76508188551581*^9}, { 3.765081961656807*^9, 3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {3.765082452422645*^9, 3.7650825105342064`*^9}, { 3.76508255601999*^9, 3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {3.765082797367054*^9, 3.765082816298927*^9}, { 3.7650828756452084`*^9, 3.76508291725654*^9}, {3.787989785884842*^9, 3.787989786153852*^9}, {3.787989950939253*^9, 3.787989971486038*^9}, { 3.787990031945051*^9, 3.78799009046057*^9}, {3.788074863185525*^9, 3.788074907396145*^9}, {3.788074983681623*^9, 3.788074985187531*^9}, { 3.7880752108539596`*^9, 3.788075346084884*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 3.788075798588734*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 3.788424788683206*^9}, { 3.788574662089695*^9, 3.7885746993059206`*^9}, {3.788574731917322*^9, 3.788574792715486*^9}, {3.788833131233985*^9, 3.788833188690298*^9}, { 3.789441083494993*^9, 3.7894410929576*^9}, {3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 3.821614000501048*^9}, { 3.821778980163827*^9, 3.821779023170026*^9}, {3.822369386549012*^9, 3.822369387709909*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"3754bd94-d204-e04f-885e-ed04408f88b4"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.8175313791665382`*^9, 3.817531382081365*^9}, {3.817531489041069*^9, 3.81753151263837*^9}, 3.817531603785071*^9},ExpressionUUID->"69a4f04d-4cc1-0a4a-bfe9-\ a0a1339e5c87"], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.817437563190297*^9, 3.817437574730232*^9}},ExpressionUUID->"22c9cb49-9e26-5447-af03-\ 3fa85540fcb4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X1_", ",", "\[Theta]Y1_", ",", "\[Theta]Z1_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"\[Theta]X1", ",", "\[Theta]Y1", ",", "\[Theta]Z1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"MX", "[", "n1", "]"}], ",", RowBox[{"MY", "[", "n1", "]"}], ",", RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}]}], "]"}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.6877445463509436`*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.6877639455213604`*^9}, { 3.6877641776516848`*^9, 3.6877642483817844`*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470556`*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.7531753489377127`*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, 3.790134342393529*^9, { 3.81147586433552*^9, 3.8114758660676584`*^9}, {3.8114759011903524`*^9, 3.811475901663397*^9}, 3.811475998843968*^9, 3.811476163317188*^9, { 3.816603834074288*^9, 3.81660393365638*^9}, {3.8170006770430465`*^9, 3.817000724749156*^9}, {3.817000759539844*^9, 3.817000786405624*^9}, 3.8170037199219055`*^9, {3.8170045080782423`*^9, 3.8170045294203014`*^9}, { 3.81700457884058*^9, 3.81700458306651*^9}, {3.8170046136020584`*^9, 3.81700463632877*^9}, {3.817005436232368*^9, 3.817005516642319*^9}, { 3.817005553771696*^9, 3.817005702201841*^9}, {3.817438004752759*^9, 3.817438079208784*^9}, {3.8174381095342827`*^9, 3.817438111564824*^9}, { 3.817438162423845*^9, 3.81743817388716*^9}, 3.817438211709083*^9, 3.817438284348664*^9, 3.817438365153536*^9, {3.817438427184007*^9, 3.817438431575055*^9}, {3.817438579668557*^9, 3.8174385809774275`*^9}, { 3.817438614371037*^9, 3.817438652378895*^9}, {3.8456995036286135`*^9, 3.845699532708929*^9}, {3.887516945512927*^9, 3.88751702361886*^9}, { 3.887517058030882*^9, 3.887517070033631*^9}, {3.887517210592626*^9, 3.887517223359357*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"6cae3ffe-f77d-9d43-bb7a-38c02e9b6334"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (vibr) defs", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.765078647709998*^9, 3.7650786536233745`*^9}, { 3.787894934272877*^9, 3.787894940030588*^9}, 3.8174375910297575`*^9},ExpressionUUID->"b9f52785-03cb-e742-bfc1-\ 2ba4b2038dbb"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"MX", "[", "n1", "]"}], ",", RowBox[{"MY", "[", "n1", "]"}], ",", RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]X1_", ",", "\[Theta]Y1_", ",", "\[Theta]Z1_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"\[Theta]X1", ",", "\[Theta]Y1", ",", "\[Theta]Z1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"MX", "[", "n1", "]"}], ",", RowBox[{"MY", "[", "n1", "]"}], ",", RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"MZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FX", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FY", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", RowBox[{"FZ", "[", RowBox[{"{", RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"FX", "[", "n1", "]"}], ",", RowBox[{"FY", "[", "n1", "]"}], ",", RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}], "*", RowBox[{"FN", "[", "n1", "]"}]}], ")"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.6877445463509436`*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.6877639455213604`*^9}, { 3.6877641776516848`*^9, 3.6877642483817844`*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470556`*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.7531753489377127`*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765078678657101*^9, 3.765078730242957*^9}, {3.765079011319233*^9, 3.7650790213991427`*^9}, {3.765079090426065*^9, 3.7650790915198584`*^9}, { 3.788075054101399*^9, 3.7880751871791787`*^9}, 3.7880763476153574`*^9, { 3.7880764088126006`*^9, 3.788076439490058*^9}, {3.788076727654149*^9, 3.788076736195205*^9}, {3.788076950987804*^9, 3.788076996669318*^9}, { 3.788157806923176*^9, 3.7881578103397293`*^9}, {3.788157887685897*^9, 3.7881579246081514`*^9}, 3.788166841222316*^9, {3.788245673127977*^9, 3.788245733263819*^9}, {3.788424927035051*^9, 3.788424928787249*^9}, { 3.796348073487073*^9, 3.796348235983635*^9}, 3.8204695675454354`*^9, 3.8210644461664095`*^9, {3.821151852504663*^9, 3.8211518941528387`*^9}, { 3.821151937357603*^9, 3.821152092267825*^9}, {3.8211521441264668`*^9, 3.821152293547024*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"7527f99c-c47b-ae41-97f1-5d0453f58dc3"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9},ExpressionUUID->"44321d8f-37d6-ad4f-bde5-\ 0fa0af277cff"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.6877445463509436`*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.6877639455213604`*^9}, { 3.6877641776516848`*^9, 3.6877642483817844`*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470556`*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.7531753489377127`*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"10b93a19-708a-464d-9145-ceaca289575b"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}},ExpressionUUID->"062257e0-06d0-ea4d-8a25-\ 6e0dc47be40d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"frictionless", " ", "contact", " ", "penalty"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", RowBox[{"{", RowBox[{"eps_", ",", RowBox[{"{", RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], "-", RowBox[{"Abs", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], "]"}]}], ")"}], "/", "2"}], "*", "eps"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.6877445463509436`*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.6877639455213604`*^9}, { 3.6877641776516848`*^9, 3.6877642483817844`*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470556`*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.7531753489377127`*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {3.8216140898940353`*^9, 3.821614102548308*^9}, { 3.894276564190513*^9, 3.894276581614059*^9}, {3.8945103089631004`*^9, 3.8945103685910916`*^9}, {3.894510404041497*^9, 3.8945104854781523`*^9}, 3.8945105434694643`*^9, {3.894510582963648*^9, 3.894510617366144*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"81997f10-ee06-404e-b9ee-d7211d28bf51"] }, Closed]], Cell[CellGroupData[{ Cell["CONSTRAINT ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.687743079248886*^9, 3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, { 3.7880762440580482`*^9, 3.788076261685234*^9}, {3.788076337785893*^9, 3.7880763394484987`*^9}, {3.789021002058381*^9, 3.78902100288629*^9}, 3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}, { 3.822369415696089*^9, 3.822369417539161*^9}},ExpressionUUID->"2418a0fb-8777-184b-9747-\ 34d9009acba3"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {3.687743169079012*^9, 3.687743170319014*^9}, { 3.687743252109129*^9, 3.68774331760922*^9}, {3.6877433494492645`*^9, 3.687743450769407*^9}, {3.687743482479451*^9, 3.687743525179511*^9}, { 3.687744220700485*^9, 3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {3.687744434080783*^9, 3.6877445463509436`*^9}, { 3.687744848891364*^9, 3.687744855831375*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {3.687763938681348*^9, 3.6877639455213604`*^9}, { 3.6877641776516848`*^9, 3.6877642483817844`*^9}, {3.687764508142145*^9, 3.687764565512226*^9}, {3.687778690246417*^9, 3.687778699786431*^9}, { 3.689220847184278*^9, 3.689220861344298*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {3.689221158114715*^9, 3.689221214324792*^9}, { 3.689221265414863*^9, 3.689221335944962*^9}, 3.689221374215016*^9, { 3.6892214353151007`*^9, 3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {3.689222175376138*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {3.689223269107669*^9, 3.689223331877756*^9}, { 3.693460221154632*^9, 3.6934602635146914`*^9}, {3.694845332608746*^9, 3.694845343968762*^9}, {3.734868072702667*^9, 3.73486817909155*^9}, { 3.746150241146084*^9, 3.746150271873185*^9}, {3.75308052739586*^9, 3.753080553837213*^9}, {3.753080612186616*^9, 3.753080612619146*^9}, { 3.75308078120836*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 3.753080928261367*^9}, {3.753081201085628*^9, 3.753081304984929*^9}, { 3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 3.753083167056024*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, { 3.753083522782399*^9, 3.7530836451470556`*^9}, {3.753083680478052*^9, 3.753083704448366*^9}, {3.7530839780537753`*^9, 3.753084004491514*^9}, { 3.753084123093569*^9, 3.753084143968414*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {3.7531753489377127`*^9, 3.753175352181219*^9}, { 3.753175398674437*^9, 3.753175401639263*^9}, {3.75317576997014*^9, 3.753175781946872*^9}, {3.75317585029514*^9, 3.753176036147319*^9}, { 3.765079371708813*^9, 3.765079384414342*^9}, {3.76507941450187*^9, 3.765079416002465*^9}, {3.765080191205142*^9, 3.765080195760569*^9}, { 3.765080316588634*^9, 3.765080334411024*^9}, {3.765080414697947*^9, 3.765080452046597*^9}, {3.76508051259709*^9, 3.765080538042729*^9}, { 3.765080602509956*^9, 3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {3.784347162844159*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {3.788076459765387*^9, 3.78807658689421*^9}, { 3.788076619247701*^9, 3.78807666464567*^9}, {3.7890210098488555`*^9, 3.78902102238218*^9}, {3.789021076539496*^9, 3.789021101390154*^9}, { 3.821064422910862*^9, 3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {3.82106460185704*^9, 3.821064667240161*^9}, { 3.821064704521668*^9, 3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {3.8216140898940353`*^9, 3.821614102548308*^9}, { 3.8223694278575764`*^9, 3.8223694427926483`*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"f10b6081-1ff8-0240-8373-6a6a10ff1e6d"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["BEAM MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531474880965*^9, 3.817531482757032*^9}, {3.8175315215912895`*^9, 3.817531523916857*^9}, 3.817531593904994*^9},ExpressionUUID->"42eea2d9-fdbc-f04c-895b-\ c15eff01cd7b"], Cell[CellGroupData[{ Cell["BAR ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.787894691941278*^9, 3.7878946924724054`*^9}, 3.7878949434473166`*^9},ExpressionUUID->"ba7aa06a-e775-0448-938f-\ 7f6f246450e4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "x", ",", "N2", ",", "uX", ",", "uY", ",", "uZ", ",", "u", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"AA", " ", "EE", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}]}], "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "*", RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}]}], "/.", RowBox[{"x", "->", RowBox[{"Mean", "[", "xl", "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "x", ",", "N2", ",", "uX", ",", "uY", ",", "uZ", ",", "u", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "uint", ",", "uext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"AA", " ", "EE", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{"\[Epsilon]\[Epsilon]", " ", RowBox[{"NN", "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "*", RowBox[{"(", RowBox[{"uint", "+", "uext"}], ")"}]}], "/.", RowBox[{"x", "->", RowBox[{"Mean", "[", "xl", "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.775194941595374*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {3.781672177985033*^9, 3.7816722548545895`*^9}, { 3.781675575793723*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, { 3.7816761808096905`*^9, 3.781676207577795*^9}, {3.788077170199604*^9, 3.788077244346129*^9}, 3.817532422171801*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {3.8200248875082335`*^9, 3.820024926651152*^9}, 3.8200249735130763`*^9, {3.8217742761087155`*^9, 3.821774333135168*^9}, { 3.821774750423011*^9, 3.821774761055823*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.821775036889234*^9, 3.8217752594972935`*^9}, { 3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {3.843625137403534*^9, 3.8436253106688743`*^9}, { 3.843625411466445*^9, 3.843625482254491*^9}, {3.843625831401376*^9, 3.843625832963335*^9}, {3.84362587330585*^9, 3.8436258882972155`*^9}, { 3.843625938953411*^9, 3.8436259929118633`*^9}, {3.85303257994086*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.90185330918806*^9, { 3.901858589156218*^9, 3.901858609706424*^9}, {3.901858710653106*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.901858948851869*^9}, { 3.901858992261612*^9, 3.90185902604223*^9}, {3.9018590897224593`*^9, 3.901859118732323*^9}, {3.901859278375826*^9, 3.9018592845118*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.90193571929542*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.901935903495421*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.901936256638541*^9}, { 3.90193692486832*^9, 3.901937137318808*^9}, {3.901937301329534*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.901957645290952*^9, 3.901957677685415*^9}, 3.901957733970273*^9, {3.9089344641885195`*^9, 3.908934470918261*^9}, 3.90893467914025*^9, 3.914633131964205*^9, { 3.9146331710022793`*^9, 3.914633181678396*^9}, {3.914633321789724*^9, 3.9146333329815273`*^9}, {3.914635243158022*^9, 3.9146352866424694`*^9}, { 3.914635444380226*^9, 3.9146354786955338`*^9}, {3.914635643296526*^9, 3.9146356434654408`*^9}, {3.914635752396338*^9, 3.914635758520327*^9}, { 3.91463584204322*^9, 3.914635849983686*^9}, 3.914636016963855*^9, { 3.914636136979534*^9, 3.914636235155708*^9}, {3.914636307151427*^9, 3.914636312625749*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"436a8b0c-ff31-5247-a259-328e38045ea5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1", ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "i_", "]"}], ":=", RowBox[{"ix0", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", RowBox[{"\[Delta]", "[", RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "\[Rule]", RowBox[{"{", RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "rule"}], ",", RowBox[{"fY", " ", "/.", "rule"}], ",", RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"210", " ", "h0"}]]}], RowBox[{"(", RowBox[{ RowBox[{"7", " ", "fx3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"184", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"94", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"19", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"94", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"176", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"18", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"19", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"18", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"16", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"228", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"104", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"24", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"104", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"128", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"8", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"24", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"8", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"60", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"44", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"10", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"5", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"10", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"48", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"10", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"5", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"10", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"44", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"14", " ", "fx3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"228", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"104", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"24", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"104", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"128", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"8", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"24", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"8", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"288", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"96", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"48", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"96", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"256", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"96", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"48", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"96", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"288", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "AA1", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"8", " ", "AA2", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"24", " ", "AA3", " ", "EE1", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"8", " ", "AA1", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"128", " ", "AA2", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"104", " ", "AA3", " ", "EE2", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"24", " ", "AA1", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"104", " ", "AA2", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"228", " ", "AA3", " ", "EE3", " ", RowBox[{"ux", "[", "3", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "28"}], " ", "fx3", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"AA1", " ", RowBox[{"(", RowBox[{ RowBox[{"44", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{"10", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}]}], "-", RowBox[{"5", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}]}], "-", RowBox[{"60", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{"8", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{"24", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", "EE1"}], "-", RowBox[{"18", " ", "EE2"}], "-", RowBox[{"19", " ", "EE3"}]}], ")"}], " ", RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA2", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "EE1", " ", RowBox[{"ux", "[", "1", "]"}]}], "-", RowBox[{"24", " ", "EE2", " ", RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{"5", " ", "EE3", " ", RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{"4", " ", "EE1", " ", RowBox[{"ux", "[", "2", "]"}]}], "-", RowBox[{"64", " ", "EE2", " ", RowBox[{"ux", "[", "2", "]"}]}], "-", RowBox[{"52", " ", "EE3", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "9"}], " ", "EE1"}], "+", RowBox[{"88", " ", "EE2"}], "+", RowBox[{"47", " ", "EE3"}]}], ")"}], " ", RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{"AA3", " ", RowBox[{"(", RowBox[{ RowBox[{"EE1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", RowBox[{"ux", "[", "1", "]"}]}], "+", RowBox[{"24", " ", RowBox[{"ux", "[", "2", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE3", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", RowBox[{"ux", "[", "1", "]"}]}], "-", RowBox[{"57", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{"46", " ", RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{"EE2", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"ux", "[", "1", "]"}]}], "-", RowBox[{"52", " ", RowBox[{"ux", "[", "2", "]"}]}], "+", RowBox[{"47", " ", RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"\[Delta]ux", "[", "3", "]"}]}], "+", RowBox[{"7", " ", "fx1", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "3", "]"}]}], ")"}]}], "-", RowBox[{"14", " ", "fx2", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"8", " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "3", "]"}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192415`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313553`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004595`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.7751949415953717`*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {3.781672177985033*^9, 3.7816722548545895`*^9}, { 3.781675575793723*^9, 3.7816756936745577`*^9}, 3.781675873086305*^9, { 3.7816761808096905`*^9, 3.781676207577795*^9}, {3.788077170199604*^9, 3.788077244346129*^9}, 3.817532422171801*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {3.8200248875082335`*^9, 3.820024926651152*^9}, 3.8200249735130763`*^9, {3.8217742761087155`*^9, 3.821774333135168*^9}, { 3.821774750423011*^9, 3.821774761055823*^9}, {3.8217747912447248`*^9, 3.8217749904455633`*^9}, {3.821775036889234*^9, 3.8217752594972935`*^9}, { 3.8217752941944513`*^9, 3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {3.843625137403534*^9, 3.8436253106688743`*^9}, { 3.843625411466445*^9, 3.843625482254491*^9}, {3.843625831401376*^9, 3.843625832963335*^9}, {3.84362587330585*^9, 3.8436258882972155`*^9}, { 3.843625938953411*^9, 3.8436259929118633`*^9}, {3.85303257994086*^9, 3.8530325954117217`*^9}, 3.8530326372114444`*^9, 3.90185330918806*^9, { 3.901858589156218*^9, 3.901858609706424*^9}, {3.901858710653106*^9, 3.9018588029847174`*^9}, {3.901858877367862*^9, 3.901858948851869*^9}, { 3.901858992261612*^9, 3.90185902604223*^9}, {3.9018590897224593`*^9, 3.901859118732323*^9}, {3.901859278375826*^9, 3.9018592845118*^9}, { 3.901935633581275*^9, 3.901935658052009*^9}, {3.90193571929542*^9, 3.9019357391335526`*^9}, {3.901935791851247*^9, 3.90193583993843*^9}, { 3.9019358839185343`*^9, 3.901935903495421*^9}, {3.901936084330161*^9, 3.9019360849885426`*^9}, {3.901936203977249*^9, 3.901936256638541*^9}, { 3.90193692486832*^9, 3.901937137318808*^9}, {3.901937301329534*^9, 3.9019373138131933`*^9}, 3.901937347053088*^9, {3.901957645290952*^9, 3.901957677685415*^9}, 3.901957733970273*^9, {3.9089344641885195`*^9, 3.908934470918261*^9}, 3.90893467914025*^9, 3.914633131964205*^9, { 3.9146331710022793`*^9, 3.9146332035893784`*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"eb3f00ab-c6fb-ed4a-ad18-2e4178609447"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.78789469717059*^9, 3.787894698433254*^9}, 3.787894946958498*^9},ExpressionUUID->"e56afc26-c51a-b047-b376-\ 1b2b1cffed8d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "ul", ",", "xl", ",", "x", ",", "N2", ",", "uX", ",", "uY", ",", "uZ", ",", "uX0", ",", "uY0", ",", "uZ0", ",", "uX2", ",", "uY2", ",", "uZ2", ",", "u0", ",", "u2", ",", "\[Epsilon]\[Epsilon]", ",", "NN", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u0", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"AA", " ", "EE", " ", "\[Epsilon]\[Epsilon]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}]}], "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX0", ",", "uY0", ",", "uZ0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"uX2", ",", "uY2", ",", "uZ2"}], "}"}]}]}], "*", "AA", "*", "\[Rho]\[Rho]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "/.", RowBox[{"x", "->", "#"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Mean", "[", "xl", "]"}], ",", RowBox[{"xl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442646626819238*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.753019452689951*^9, 3.753019484970434*^9}, {3.753019601150966*^9, 3.753019673352596*^9}, { 3.753019831211974*^9, 3.75301989711664*^9}, 3.753020004541631*^9, { 3.788503052503014*^9, 3.788503059275906*^9}, {3.818904755546356*^9, 3.8189048128461294`*^9}, 3.820024775397682*^9, {3.914636860278501*^9, 3.914636860799206*^9}, {3.914636911879595*^9, 3.9146369652308903`*^9}, { 3.914637045943149*^9, 3.914637218765093*^9}, {3.914637258186455*^9, 3.914637340207939*^9}, {3.914637454291231*^9, 3.91463746035318*^9}, { 3.9146375054658184`*^9, 3.9146375301737423`*^9}, {3.9146376128061886`*^9, 3.914637677296532*^9}, {3.914637731301008*^9, 3.914637766359854*^9}, { 3.914639727013895*^9, 3.914639791808885*^9}, {3.914640106205963*^9, 3.914640203212631*^9}, {3.914640482312118*^9, 3.914640489747244*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"dbc14ff6-f775-f440-afdb-956dcd61c85c"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (stab) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.756267607734783*^9, 3.756267609945469*^9}, 3.787894703033386*^9},ExpressionUUID->"9b306994-2b5c-c046-b0dd-\ 691ae49f3b4b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", "AA", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192425`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313543`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.6871464425315146`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004585`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.7254192468679485`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.7562676525896635`*^9, 3.756267707097726*^9}, {3.760667129719799*^9, 3.760667169366959*^9}, { 3.788503028133459*^9, 3.78850303141934*^9}, {3.788503069213816*^9, 3.788503073071135*^9}, {3.788833111213405*^9, 3.788833121736215*^9}, 3.789021120172915*^9, {3.850965595585096*^9, 3.8509656478473897`*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"70d2902b-0c0b-1747-817c-8bd6d2930be4"] }, Closed]], Cell[CellGroupData[{ Cell["BAR ELEMENT (nonl) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.753019375620509*^9, 3.753019378557259*^9}, {3.787894723689047*^9, 3.787894724677233*^9}},ExpressionUUID->"bb5c15c1-744e-0449-92ac-\ 83be78f5317f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "CC_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]h", ",", "h0", ",", "ix", ",", "iz", ",", "NN", ",", "fx", ",", "fy", ",", "fz", ",", "x", ",", "uu", ",", "vv", ",", "ww", ",", "EE", ",", "\[Delta]EE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]h", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]h", ".", "\[CapitalDelta]h"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], " ", "&&", " ", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]h", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["iy", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"NN", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h0"}]}], ",", RowBox[{"x", "/", "h0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", " ", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fy", " ", "=", RowBox[{"iy", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", " ", "=", RowBox[{"iz", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], "}"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{"NN", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EE", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "uu"}], "+", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], ".", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]EE", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "uu"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], "]"}], ".", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", "\[Delta]EE"}], " ", "CC", " ", "AA", " ", "EE"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}], "]"}], ".", RowBox[{"{", " ", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h0"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192396`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.629783249631357*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.694231358200461*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, 3.753020083991325*^9, { 3.753020145886541*^9, 3.753020147585074*^9}, {3.7894406851054068`*^9, 3.7894406982798967`*^9}, {3.789456736272064*^9, 3.789456831643631*^9}, { 3.8216141464350357`*^9, 3.821614249465634*^9}, {3.8217727479053*^9, 3.8217727798972683`*^9}, {3.821772819618132*^9, 3.821772858846867*^9}, { 3.8217733416981835`*^9, 3.821773349057427*^9}, {3.852693331201587*^9, 3.852693471870259*^9}, {3.9161858778178425`*^9, 3.9161859361593323`*^9}, { 3.916186038507939*^9, 3.9161860501247*^9}, {3.91618614477469*^9, 3.916186160906061*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"87ce8ab2-b745-8c46-81c9-fa070cc0711b"] }, Open ]], Cell[CellGroupData[{ Cell["BAR ELEMENT (tmec) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, { 3.753019375620509*^9, 3.753019378557259*^9}, {3.753020024850968*^9, 3.7530200339415607`*^9}, 3.757503958909788*^9, {3.78789475104371*^9, 3.787894751512613*^9}, 3.790129812964231*^9},ExpressionUUID->"9750a306-60cb-014a-8e85-\ e6a553f48e95"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Alpha]\[Alpha]", ",", "kk"}], "}"}], ",", RowBox[{"{", "AA", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"ss", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]", ",", "s", ",", "x", ",", "uu", ",", "\[CurlyTheta]\[CurlyTheta]", ",", "F", ",", "Q", ",", "\[Delta]w", ",", "\[Delta]p", ",", "AAA", ",", "EEE", ",", "ffX", ",", "ffY", ",", "ffZ", ",", "kkk", ",", "sss", ",", "\[Alpha]\[Alpha]\[Alpha]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", " ", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "node", "]"}], ",", "\[Xi]"}], "}"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"\[Xi]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Last", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Xi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r\[Xi]", ".", "r\[Xi]"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"i\[Xi]", " ", "=", RowBox[{"r\[Xi]", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"i\[Xi]", " ", ".", "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], ".", "i\[Xi]"}], "+", "s"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{"i\[Xi]", ".", RowBox[{"(", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "=", " ", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "4"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", RowBox[{"AAA", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEE", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]\[Alpha]\[Alpha]", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Alpha]\[Alpha]", "]"}], "===", "Function"}], ",", RowBox[{"\[Alpha]\[Alpha]", "[", "x", "]"}], ",", "\[Alpha]\[Alpha]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kkk", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "kk", "]"}], "===", "Function"}], ",", RowBox[{"kk", "[", "x", "]"}], ",", "kk"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ffX", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "fX", "]"}], "===", "Function"}], ",", RowBox[{"fX", "[", "x", "]"}], ",", "fX"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ffY", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "fY", "]"}], "===", "Function"}], ",", RowBox[{"fY", "[", "x", "]"}], ",", "fY"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ffZ", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "fZ", "]"}], "===", "Function"}], ",", RowBox[{"fZ", "[", "x", "]"}], ",", "fZ"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sss", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "ss", "]"}], "===", "Function"}], ",", RowBox[{"ss", "[", "x", "]"}], ",", "ss"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"F", " ", "=", RowBox[{"EEE", " ", "AAA", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], "-", RowBox[{"\[Alpha]\[Alpha]\[Alpha]", " ", RowBox[{"(", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "-", "\[CurlyTheta]0"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{"-", "kkk"}], " ", "AAA", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "\[CurlyTheta]\[CurlyTheta]"}], "/", "h0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]w", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], "]"}]}], " ", "F"}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "uu", "]"}], " ", RowBox[{ RowBox[{"{", RowBox[{"ffX", ",", "ffY", ",", "ffZ"}], "}"}], ".", "i\[Xi]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]p", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "\[CurlyTheta]\[CurlyTheta]"}], "/", "h0"}], "]"}], " ", "Q"}], " ", "+", RowBox[{ RowBox[{ "\[Delta]\[Delta]", "[", "\[CurlyTheta]\[CurlyTheta]", "]"}], " ", "sss"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]w", "+", "\[Delta]p"}], ")"}], " ", "h0"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192425`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313543`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.6871464425315146`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004585`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.7254192468679485`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, 3.753020220916532*^9, { 3.789806005937347*^9, 3.7898060199153595`*^9}, {3.822369460929159*^9, 3.8223694626206393`*^9}, {3.850614635752848*^9, 3.850614714304345*^9}, { 3.850614846652601*^9, 3.850615010959174*^9}, {3.8506155810199738`*^9, 3.850615627337975*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"7f3f7bcb-d230-614d-93db-2a6165d5e796"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (disp) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9},ExpressionUUID->"64fde571-d0ea-c742-bafb-\ 92503ce3236e"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", "E1050"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG", "}"}], ",", RowBox[{"{", "JJ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "xl", ",", "x", ",", "N2", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z", ",", "\[Phi]", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"JJ", " ", "GG", " ", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}]}], "MM"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "*", RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}]}], "/.", RowBox[{"x", "->", RowBox[{"Mean", "[", "xl", "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908934764047831*^9, 3.908934764877185*^9}, { 3.9146406138982325`*^9, 3.91464065835823*^9}, {3.9146406948837347`*^9, 3.9146407031875954`*^9}, {3.914640741468172*^9, 3.9146409304432936`*^9}, { 3.914640994636884*^9, 3.914641007420635*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"35ea1548-8a80-6946-849e-a905ab52fcd3"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (vibr) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.78815413936168*^9, 3.788154140564639*^9}},ExpressionUUID->"f4cff622-ae3d-2043-bb9e-\ 1571213c7303"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "JJ", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "r0", ",", "h0", ",", "ix", ",", "xl", ",", "x", ",", "N2", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z", ",", "\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0", ",", "\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2", ",", "\[Phi]0", ",", "\[Phi]2", ",", "\[Gamma]\[Gamma]", ",", "MM", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xl", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "xl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "=", RowBox[{"N2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Phi]0", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]2", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"JJ", " ", "GG", " ", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}]}], "MM"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]X0", ",", "\[Theta]Y0", ",", "\[Theta]Z0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Theta]X2", ",", "\[Theta]Y2", ",", "\[Theta]Z2"}], "}"}]}]}], "*", "JJ", "*", "\[Rho]\[Rho]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h0", "/", "6"}], "*", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "/.", RowBox[{"x", "->", "#"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Mean", "[", "xl", "]"}], ",", RowBox[{"xl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192406`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313562`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.687146442531515*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004604`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.725419246867949*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.7751949415953727`*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.781590243387327*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.788154182393029*^9, 3.788154200870788*^9}, { 3.788154262468212*^9, 3.788154413095205*^9}, {3.788154445865172*^9, 3.788154498999441*^9}, {3.788154543552347*^9, 3.788154583606308*^9}, { 3.8513960191034765`*^9, 3.851396064317687*^9}, {3.8513960979650345`*^9, 3.8513961553917027`*^9}, {3.85139633477669*^9, 3.851396341122322*^9}, { 3.914641265511074*^9, 3.914641307110342*^9}, {3.9146413419954853`*^9, 3.9146415860828953`*^9}, {3.914641721809421*^9, 3.914641723929235*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"73e42aaf-3c7a-d84f-bb81-666ba5ffa37e"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (stab) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.789021142814196*^9, 3.7890211435642633`*^9}},ExpressionUUID->"dc21220f-13fe-2d46-8bda-\ 20707bd15407"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", "mx_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG", "}"}], ",", RowBox[{"{", "JJ", "}"}], ",", RowBox[{"{", "mx", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192425`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313543`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.6871464425315146`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004585`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.7254192468679485`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.7751949415953712`*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.7815902433873262`*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.789021170161874*^9, 3.789021215374349*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"3be85d3d-0697-0c43-83b6-b5162939aea5"] }, Closed]], Cell[CellGroupData[{ Cell["TORSION ELEMENT (nonl) defs", "Subsection", InitializationCell->True, CellChangeTimes->{{3.753018875511382*^9, 3.753018878626531*^9}, { 3.781589886623744*^9, 3.781589893242678*^9}, {3.78789476015496*^9, 3.787894760728943*^9}, 3.787894894529573*^9, {3.789021142814196*^9, 3.7890211435642633`*^9}, {3.821614332738101*^9, 3.821614338722912*^9}},ExpressionUUID->"c269c080-32c6-6e47-b253-\ d679cf5d7803"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"TORSION", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"TORSION", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426466268192425`*^9, 3.4426467788544455`*^9}, { 3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, { 3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 3.4461862553468*^9}, {3.446186292506*^9, 3.446186347355601*^9}, { 3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, { 3.4938807027527814`*^9, 3.493880707417152*^9}, {3.493880800287371*^9, 3.493880852375438*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, { 3.493881151507965*^9, 3.493881151710761*^9}, {3.4941655092594*^9, 3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, { 3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 3.4957207485294*^9}, {3.4957208264826*^9, 3.495720844391401*^9}, 3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, { 3.495721294261*^9, 3.495721324993*^9}, {3.4975823349274*^9, 3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, { 3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, { 3.499351047262401*^9, 3.499351048182801*^9}, {3.4993511463536*^9, 3.4993512159764*^9}, {3.49935127457*^9, 3.4993512754748*^9}, { 3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, { 3.4994815491964*^9, 3.4994815501324*^9}, 3.5007041508298*^9, { 3.5007041887066*^9, 3.500704203807402*^9}, {3.5007042395938*^9, 3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514422016`*^9}, { 3.5007044087456*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, { 3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, { 3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 3.5007163483716*^9}, {3.500716398182402*^9, 3.5007164168244*^9}, { 3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, { 3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, { 3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 3.500958393038799*^9}, {3.500958745864001*^9, 3.5009587595296*^9}, { 3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 3.5009593527898*^9}, {3.562569994145931*^9, 3.562570005362351*^9}, { 3.562570120272153*^9, 3.562570128836568*^9}, {3.629386097724044*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 3.629386220496259*^9}, { 3.6296431182972393`*^9, 3.62964311889004*^9}, {3.629777573965969*^9, 3.629777733585449*^9}, {3.629777964107055*^9, 3.629778167259148*^9}, { 3.629778210590627*^9, 3.629778764883331*^9}, {3.6297788067577257`*^9, 3.629778847398051*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, { 3.6297795741584954`*^9, 3.629779653484635*^9}, {3.62978189845058*^9, 3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, { 3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, { 3.629783163862401*^9, 3.6297832496313543`*^9}, {3.629870677773334*^9, 3.6298707174286036`*^9}, {3.6298707896411304`*^9, 3.6298709878862786`*^9}, {3.630659212237563*^9, 3.630659215123567*^9}, { 3.630659844350673*^9, 3.630659875316727*^9}, 3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 3.6308359887799683`*^9}, { 3.63083621117396*^9, 3.630836214824365*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 3.630836423334331*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {3.631888465645525*^9, 3.631888513802808*^9}, { 3.63188866215907*^9, 3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {3.631889022176503*^9, 3.631889052612157*^9}, 3.631889169159961*^9, 3.631889403363172*^9, {3.631889517414973*^9, 3.631889552452635*^9}, {3.631889683648864*^9, 3.631889698765291*^9}, { 3.6321898139439125`*^9, 3.632189856272333*^9}, {3.632189895354568*^9, 3.6321900355675883`*^9}, {3.6321900697005405`*^9, 3.632190320337877*^9}, { 3.632190369137668*^9, 3.632190388074751*^9}, {3.632190466145216*^9, 3.632190484427261*^9}, {3.632190625107308*^9, 3.632190720286752*^9}, { 3.632190835720354*^9, 3.632190883751101*^9}, {3.632190986102956*^9, 3.632191005241051*^9}, {3.6321927997536907`*^9, 3.6321928025258493`*^9}, { 3.632194166403857*^9, 3.632194191948318*^9}, {3.662454481248473*^9, 3.662454485084693*^9}, {3.6624545866345015`*^9, 3.6624546098018265`*^9}, { 3.685233396707606*^9, 3.685233406947621*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {3.685271358343038*^9, 3.6852714170531197`*^9}, { 3.6852718305336986`*^9, 3.685271884253774*^9}, {3.685272001253938*^9, 3.685272008663948*^9}, {3.685272070164034*^9, 3.6852720840640535`*^9}, 3.68534041201514*^9, {3.685340512746323*^9, 3.685340625313761*^9}, { 3.685341065727952*^9, 3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933228`*^9}, {3.685341231602439*^9, 3.685341238897859*^9}, 3.6853430337255144`*^9, {3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {3.68585391622186*^9, 3.6858539266884584`*^9}, { 3.685853962796524*^9, 3.685853970925989*^9}, 3.685854134164325*^9, { 3.685854449069337*^9, 3.685854452354525*^9}, {3.6858544860604534`*^9, 3.685854493376871*^9}, {3.685854943776633*^9, 3.685854956356354*^9}, { 3.685953458290972*^9, 3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {3.68596614502913*^9, 3.68596618077918*^9}, { 3.6859665004496274`*^9, 3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {3.6860123360453115`*^9, 3.686012394575394*^9}, { 3.6860124484754686`*^9, 3.68601248525552*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 3.686012633905728*^9, 3.686012710945836*^9, { 3.6860128143059807`*^9, 3.686012814595981*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {3.686019651761014*^9, 3.6860196633110304`*^9}, 3.686020234391829*^9, {3.686023760422851*^9, 3.686023834972955*^9}, 3.686023961653132*^9, {3.68714588472073*^9, 3.687145885140731*^9}, { 3.687146047470959*^9, 3.687146053790967*^9}, {3.687146094191024*^9, 3.68714609818103*^9}, {3.6871461354510813`*^9, 3.687146395471445*^9}, { 3.6871464425315146`*^9, 3.687146453221526*^9}, 3.687146604551738*^9, 3.687146684181849*^9, {3.687147007102302*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {3.687147093252424*^9, 3.687147121492462*^9}, { 3.687147160442518*^9, 3.687147369302809*^9}, {3.6874228236597347`*^9, 3.6874228709898005`*^9}, {3.6874231158501434`*^9, 3.6874232243002954`*^9}, {3.687518961099848*^9, 3.687519005537389*^9}, { 3.687519062781663*^9, 3.6875192133922796`*^9}, {3.6875193939396043`*^9, 3.687519399187905*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 3.687526181030668*^9, {3.687671596062989*^9, 3.687671749413202*^9}, { 3.687671844183337*^9, 3.68767187680338*^9}, {3.6876723915341005`*^9, 3.687672434904161*^9}, 3.688395660193591*^9, 3.688396415857784*^9, { 3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 3.692412655961754*^9}, {3.692412695731809*^9, 3.692412707421825*^9}, { 3.6924127522818885`*^9, 3.692412758691898*^9}, {3.69241285349203*^9, 3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, { 3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 3.6924137594552984`*^9}, {3.692416880438147*^9, 3.692416890318161*^9}, { 3.692416926028211*^9, 3.692416956508253*^9}, {3.6924169983583126`*^9, 3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, { 3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, { 3.69277257982156*^9, 3.692772583861565*^9}, {3.692855931835436*^9, 3.692855932875437*^9}, {3.692856761046597*^9, 3.6928568324266963`*^9}, { 3.692856901206793*^9, 3.692856909516804*^9}, {3.69285698469691*^9, 3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, { 3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.693219227931574*^9, 3.693219231191577*^9}, 3.693219348261741*^9, {3.693219386661795*^9, 3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, { 3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, { 3.6937158692541003`*^9, 3.693715869654101*^9}, {3.693715989294268*^9, 3.693716052294357*^9}, {3.693716084724402*^9, 3.693716523497017*^9}, { 3.69371656887708*^9, 3.693716746487332*^9}, {3.693716793167395*^9, 3.693716881127517*^9}, {3.693717478478354*^9, 3.693717480158356*^9}, { 3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 3.69406583796067*^9}, {3.694065981390871*^9, 3.694066028590938*^9}, { 3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 3.69406638788144*^9}, {3.694066779121988*^9, 3.694066811172033*^9}, { 3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 3.694230844398737*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, { 3.6942309647089047`*^9, 3.694231059079038*^9}, {3.6942311817392087`*^9, 3.6942313193904014`*^9}, {3.6942313582004585`*^9, 3.694231743610997*^9}, { 3.694232100401495*^9, 3.694232179791606*^9}, {3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 3.694320864956833*^9, { 3.6944241392570753`*^9, 3.694424146417085*^9}, {3.72541924301532*^9, 3.7254192468679485`*^9}, {3.725431584796835*^9, 3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 3.7496954653226786`*^9}, { 3.749695629209482*^9, 3.74969571701771*^9}, {3.749695766766241*^9, 3.749695940987232*^9}, {3.749696586402536*^9, 3.7496965868288536`*^9}, { 3.749696937504847*^9, 3.749696939543347*^9}, {3.749697560251219*^9, 3.749697622751583*^9}, {3.749697673386461*^9, 3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 3.749698128232212*^9}, { 3.749698242828632*^9, 3.749698362156461*^9}, {3.749698468262297*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 3.749699286861999*^9}, { 3.749699372846688*^9, 3.749699375486853*^9}, {3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 3.753019041865839*^9}, { 3.7530191095313196`*^9, 3.7530191100576744`*^9}, 3.753019155952956*^9, { 3.753019245821944*^9, 3.753019353286773*^9}, {3.773986323215969*^9, 3.773986436687639*^9}, {3.7739864700193005`*^9, 3.773986588596683*^9}, { 3.773986933278333*^9, 3.773987050182982*^9}, 3.773987085528166*^9, { 3.773987253616061*^9, 3.773987270466986*^9}, {3.773987482712697*^9, 3.773987522181275*^9}, {3.773987740298462*^9, 3.773987746606593*^9}, { 3.77398785999769*^9, 3.7739878861137896`*^9}, {3.773987965425336*^9, 3.773987971563288*^9}, 3.773988098774023*^9, 3.773988319378138*^9, { 3.7739884099852057`*^9, 3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {3.773989122756852*^9, 3.77398915009042*^9}, { 3.773989277490056*^9, 3.773989291800435*^9}, {3.773989606052522*^9, 3.773989635013425*^9}, {3.7751890832095585`*^9, 3.775189088241306*^9}, { 3.7751894923762302`*^9, 3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 3.775191260647822*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {3.775194496052539*^9, 3.775194535372772*^9}, { 3.775194573717407*^9, 3.775194621343042*^9}, {3.775194667862669*^9, 3.77519475983519*^9}, {3.7751948235734253`*^9, 3.7751949415953712`*^9}, { 3.775195100078847*^9, 3.77519512113822*^9}, {3.775195450687301*^9, 3.775195467864645*^9}, {3.775270786870551*^9, 3.775270796325161*^9}, { 3.7752708274391947`*^9, 3.775270839737406*^9}, {3.7752709283091574`*^9, 3.775270947453439*^9}, {3.775271050285027*^9, 3.7752711744130797`*^9}, { 3.775271227307905*^9, 3.775271306036476*^9}, {3.775271448825513*^9, 3.775271469927753*^9}, {3.775271509321142*^9, 3.775271585609558*^9}, { 3.775271620653377*^9, 3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {3.781590089817601*^9, 3.781590109307678*^9}, { 3.781590201383393*^9, 3.7815902433873262`*^9}, {3.781590544526596*^9, 3.781590569573782*^9}, {3.781590695286428*^9, 3.781590715680611*^9}, { 3.781590832367865*^9, 3.781590881239719*^9}, {3.781591104812238*^9, 3.781591119274813*^9}, {3.789021170161874*^9, 3.789021215374349*^9}, { 3.821614347869971*^9, 3.821614443850371*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"03b4c809-6186-5d43-9e50-71cbc7ace59f"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.788530028780914*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}},ExpressionUUID->"6496f06f-74f4-bd41-9fcf-\ 79e49b69f38f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809975`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413385`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900037`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812577`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019154`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934986`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829996`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524033`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.686651410203893*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478405`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074604`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779587`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003556`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446133`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374002`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.7633048681948214`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.7633388525735636`*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126697`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375555`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.7639608287155957`*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157423`*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.7885197610116005`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {3.851994384355441*^9, 3.851994388857566*^9}, { 3.851994613965826*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.852092553414499*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"f354fac4-37af-1046-8074-84bd8d567dc1"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}, {3.852079954699406*^9, 3.852079955796615*^9}},ExpressionUUID->"657e3858-62e9-d341-95d9-\ 708ec594d946"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BENDING", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413395`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900046`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019163`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934977`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074614`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779596`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374007`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, 3.763384480090015*^9, { 3.7650666220235834`*^9, 3.765066676848461*^9}, {3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 3.765067076960985*^9}, { 3.765075343296377*^9, 3.765075345014902*^9}, {3.765075479631569*^9, 3.7650755114191628`*^9}, {3.765075617307859*^9, 3.7650756180851874`*^9}, { 3.76507585422694*^9, 3.765075872425325*^9}, {3.765076081175039*^9, 3.765076263561058*^9}, {3.765076310078564*^9, 3.765076323109063*^9}, { 3.7650763765120716`*^9, 3.765076385469493*^9}, {3.765076431749789*^9, 3.765076486412785*^9}, 3.765076672990033*^9, {3.765076760413978*^9, 3.765076796564443*^9}, {3.765076849411788*^9, 3.76507688334435*^9}, { 3.765076928656023*^9, 3.7650769388747053`*^9}, 3.76507697239373*^9, { 3.765077014717319*^9, 3.7650770820420346`*^9}, {3.765077138264634*^9, 3.765077175747029*^9}, {3.765077340035742*^9, 3.765077493212038*^9}, { 3.7650775254837503`*^9, 3.765077573524544*^9}, {3.765077619369755*^9, 3.7650776808294816`*^9}, {3.765088266857733*^9, 3.765088281236836*^9}, { 3.76508836959641*^9, 3.765088394392946*^9}, {3.7650900504082956`*^9, 3.765090052695187*^9}, {3.765090091112272*^9, 3.765090094160341*^9}, { 3.765090519594511*^9, 3.765090541189851*^9}, {3.788519333783255*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 3.788519447250145*^9}, { 3.7885195529105935`*^9, 3.788519558251149*^9}, {3.788530523244416*^9, 3.788530576893549*^9}, 3.788530695024667*^9, {3.788530728020286*^9, 3.788530769626217*^9}, {3.796348333299442*^9, 3.796348466639106*^9}, { 3.820027614612806*^9, 3.8200276304022093`*^9}, 3.820027685392475*^9, { 3.829884589354769*^9, 3.8298846124571314`*^9}, 3.8520842379402337`*^9, { 3.852084268457647*^9, 3.852084306223882*^9}, {3.852084804512635*^9, 3.852084935356564*^9}, {3.852085199869127*^9, 3.852085265248603*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"700330f7-b650-7748-bb87-19038e439bad"] }, Closed]], Cell[CellGroupData[{ Cell["BENDING ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851994139239622*^9, 3.851994146225577*^9}, {3.852427723407469*^9, 3.852427728727656*^9}},ExpressionUUID->"d6c4c2da-c7d8-8d41-88bb-\ eb8f09a68222"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BENDING", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BENDING", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], "]"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809975`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413385`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900037`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812577`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019154`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934986`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829996`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524033`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.686651410203893*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478405`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074604`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779587`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003556`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446133`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374002`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.7633048681948214`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.7633388525735636`*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126697`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375555`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.7639608287155957`*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157423`*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.7885197610116005`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {3.851994384355441*^9, 3.851994388857566*^9}, { 3.851994613965826*^9, 3.8519947933175044`*^9}, {3.8519948506536093`*^9, 3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, { 3.852092396739352*^9, 3.852092553414499*^9}, {3.85242776319461*^9, 3.852427782014557*^9}}, CellLabel-> "In[158]:=",ExpressionUUID->"6f841942-46c9-5e49-b01d-a7b8e82cb6a4"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.851995002562483*^9, 3.851995003043193*^9}},ExpressionUUID->"78c020cf-3fba-534b-8baa-\ f1d67c6efcbe"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", "E8001", "|", RowBox[{"1005", " ", "Bernoulli", " ", "beam", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux", ",", "uy", " ", ",", "uz", " ", ",", "\[Theta]x", " ", ",", "\[Theta]y", " ", ",", "\[Theta]z", " ", ",", "\[Delta]ux", " ", ",", "\[Delta]uy", ",", "\[Delta]uz", ",", "\[Delta]\[Theta]x", ",", "\[Delta]\[Theta]y", ",", "\[Delta]\[Theta]z", ",", "fx1", ",", "fx2", ",", "fy1", ",", "fy2", ",", "fz1", ",", "fz2", ",", "mx1", ",", "mx2", ",", "my1", ",", "my2", ",", "mz1", ",", "mz2", ",", "EEm", ",", "GGm", ",", "AAm", ",", "Iyym", ",", "Izzm"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], ",", RowBox[{"\[Delta]uy", "[", "1", "]"}], ",", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "2", "]"}], ",", RowBox[{"\[Delta]uy", "[", "2", "]"}], ",", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"EEm", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "EE"}], ")"}]}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGm", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "GG"}], ")"}]}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAm", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "AA"}], ")"}]}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyym", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "Iyy"}], ")"}]}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"Izzm", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "Izz"}], ")"}]}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx1", ",", "fx2"}], "}"}], "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fy1", ",", "fy2"}], "}"}], "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fz1", ",", "fz2"}], "}"}], "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx1", ",", "mx2"}], "}"}], "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"my1", ",", "my2"}], "}"}], "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mz1", ",", "mz2"}], "}"}], "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"60", " ", SuperscriptBox["h0", "3"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "60"}], " ", "AAm", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"60", " ", "AAm", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"60", " ", "AAm", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"ux", "[", "1", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "AAm", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"ux", "[", "2", "]"}], " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", RowBox[{"10", " ", "fx1", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"10", " ", "fx2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"21", " ", "fy1", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"9", " ", "fy2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "mz1", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "mz2", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", RowBox[{"720", " ", "EEm", " ", "Izzm", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"720", " ", "EEm", " ", "Izzm", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"9", " ", "fy1", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"21", " ", "fy2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "mz1", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "mz2", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"720", " ", "EEm", " ", "Izzm", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "-", RowBox[{"720", " ", "EEm", " ", "Izzm", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"21", " ", "fz1", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"9", " ", "fz2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "my1", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "my2", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "-", RowBox[{"720", " ", "EEm", " ", "Iyym", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"720", " ", "EEm", " ", "Iyym", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"9", " ", "fz1", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", RowBox[{"21", " ", "fz2", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "my1", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox["h0", "3"], " ", "my2", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", RowBox[{"720", " ", "EEm", " ", "Iyym", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", RowBox[{"720", " ", "EEm", " ", "Iyym", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox["h0", "4"], " ", "mx1", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox["h0", "4"], " ", "mx2", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox["h0", "4"], " ", "mx1", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox["h0", "4"], " ", "mx2", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "-", RowBox[{"3", " ", "fz1", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"2", " ", "fz2", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "my1", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "my2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"2", " ", "fz1", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", "fz2", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "my1", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "my2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"3", " ", "fy1", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"2", " ", "fy2", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "mz1", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "mz2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"2", " ", "fy1", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"3", " ", "fy2", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "mz1", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "+", RowBox[{"5", " ", SuperscriptBox["h0", "4"], " ", "mz2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"uy", "[", "1", "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"uy", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "-", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", RowBox[{"60", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"240", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", RowBox[{"120", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"120", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"240", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Iyym", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"240", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"120", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "+", RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"120", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "-", RowBox[{"240", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", "Izzm", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908934890938456*^9, 3.908934891693663*^9}, { 3.914833624922428*^9, 3.914833664092325*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"e2f54408-106d-8e4b-ac0f-fc4a08a5ca14"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Classical", " ", "Bernoulli", " ", "beam", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux1", ",", "uy1", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", " ", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", " ", ",", "\[Theta]z2", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "fXm", ",", "fYm", ",", "fZm", ",", "mXm", ",", "mYm", ",", "mZm", ",", "fxm", ",", "fym", ",", "fzm", ",", "mxm", ",", "mym", ",", "mzm", ",", "EEm", ",", "GGm", ",", "AAm", ",", "Sym", ",", "Szm", ",", "Iyym", ",", "Izzm", ",", "Iyzm", ",", "Irrm", ",", "rule", ",", "Irr"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux1", ",", "\[Delta]uy1", ",", "\[Delta]uz1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux2", ",", "\[Delta]uy2", ",", "\[Delta]uz2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}]}], ",", RowBox[{"a1_", ":>", "a1"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"EEm", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGm", "=", RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAm", "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"Sy", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Szm", "=", RowBox[{"Sz", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyym", "=", RowBox[{"Iyy", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Izzm", "=", RowBox[{"Izz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyzm", "=", RowBox[{"Iyz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Irrm", "=", RowBox[{"Iyym", "+", "Izzm"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "rule"}], ",", " ", RowBox[{"fY", " ", "/.", "rule"}], ",", RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"mX", " ", "/.", "rule"}], ",", " ", RowBox[{"mY", " ", "/.", "rule"}], ",", RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"12", " ", "AAm", " ", SuperscriptBox["h0", "3"]}]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "AAm", " ", SuperscriptBox["h0", "2"], " ", "\[Delta]ux1", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Sym", " ", "\[Theta]y1"}], "+", RowBox[{"Sym", " ", "\[Theta]y2"}], "+", RowBox[{"Szm", " ", "\[Theta]z1"}], "-", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "AAm", " ", SuperscriptBox["h0", "2"], " ", "\[Delta]ux2", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Sym", " ", "\[Theta]y1"}], "-", RowBox[{"Sym", " ", "\[Theta]y2"}], "-", RowBox[{"Szm", " ", "\[Theta]z1"}], "+", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", SuperscriptBox["h0", "4"], " ", "mxm"}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Szm"}], " ", "uy1"}], "+", RowBox[{"Szm", " ", "uy2"}], "+", RowBox[{"Sym", " ", "uz1"}], "-", RowBox[{"Sym", " ", "uz2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "AAm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Irrm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fzm"}], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fym"}], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "-", RowBox[{"6", " ", "EEm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "-", RowBox[{"6", " ", "EEm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"h0", " ", "\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", "\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "4"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", "Irrm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Szm"}], " ", "uy1"}], "+", RowBox[{"Szm", " ", "uy2"}], "+", RowBox[{"Sym", " ", "uz1"}], "-", RowBox[{"Sym", " ", "uz2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", "\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyym", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyym", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", "\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", "EEm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Izzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Izzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyzm", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.4439447917425756`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.4512766132045984`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809984`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920343`*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413376`*^9, 3.5009901475333376`*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900023`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.6297802564412956`*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224125`*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812563`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.6297878355265746`*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019144`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.6306751229631343`*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439596`*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934996`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829987`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.6352175507014117`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.6853282636022186`*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524023`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.6853298076291356`*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.6866514102038937`*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886396`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478395`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074594`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913056`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223236`*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.6889092012544384`*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779577`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.6925422549438276`*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563188`*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003547`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446123`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040373993`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.7633048681948204`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.7633382447254167`*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.7633388525735626`*^9, 3.7633390131554203`*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126687`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375546`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.7634262475470467`*^9}, {3.7634276458524504`*^9, 3.763427670511785*^9}, {3.7634292721860094`*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345154`*^9, 3.7639608287155952`*^9}, {3.764560338587273*^9, 3.764560365934222*^9}, { 3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231077`*^9, 3.7647258025896583`*^9}, {3.765077713031946*^9, 3.765077791337854*^9}, { 3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, { 3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, {3.774070992961035*^9, 3.774071006717294*^9}, { 3.775190474681038*^9, 3.775190488415137*^9}, {3.7751905901325917`*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, { 3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157413`*^9}, {3.783834245395508*^9, 3.783834256443788*^9}, { 3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, {3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, {3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, {3.783838702669109*^9, 3.7838387106794047`*^9}, { 3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, { 3.7885197610115995`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 3.78851992143148*^9}, { 3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.7885299511123524`*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, {3.7957698528454123`*^9, 3.795769867081932*^9}, { 3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, {3.811656679273317*^9, 3.811656696847624*^9}, { 3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, {3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, { 3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, { 3.8459713248880577`*^9, 3.845971450142535*^9}, {3.845971579506527*^9, 3.8459716159320116`*^9}, {3.875407800653024*^9, 3.875407833881046*^9}, { 3.901862474143671*^9, 3.901862483071995*^9}, {3.901862692714851*^9, 3.90186273047615*^9}, {3.9018627816543417`*^9, 3.901862823926278*^9}, { 3.901863104575192*^9, 3.901863298922026*^9}, {3.9018633325066304`*^9, 3.901863421207255*^9}, {3.901863454589965*^9, 3.901863533031896*^9}, { 3.901863580669295*^9, 3.901863587574851*^9}, {3.901931107221163*^9, 3.901931309788501*^9}, {3.901931430103271*^9, 3.901931431054244*^9}, { 3.901931467635719*^9, 3.901931504726559*^9}, {3.901932364463219*^9, 3.901932378737213*^9}, {3.9019327373745213`*^9, 3.9019328813594475`*^9}, { 3.901932925465217*^9, 3.901932944706784*^9}, {3.901932992981395*^9, 3.901933100237834*^9}, {3.901933158149428*^9, 3.901933186202359*^9}, { 3.901933447201986*^9, 3.9019334708118753`*^9}, {3.901933532374191*^9, 3.9019335434533453`*^9}, {3.9019338370368414`*^9, 3.901933866440675*^9}, 3.90193403466062*^9, {3.901934070930133*^9, 3.9019341309501734`*^9}, { 3.901941127868461*^9, 3.9019411487728004`*^9}, {3.901941201809495*^9, 3.9019412853248825`*^9}, {3.901941792906618*^9, 3.901941839500992*^9}, { 3.9019419531468377`*^9, 3.901941993151548*^9}, {3.901942155823786*^9, 3.901942174809746*^9}, {3.901942272905849*^9, 3.901942294729624*^9}, { 3.9019425447980947`*^9, 3.901942573533023*^9}, 3.901943201125978*^9, 3.9019433019117823`*^9, {3.9019433916631427`*^9, 3.901943406871099*^9}, { 3.90194441333509*^9, 3.9019445690600624`*^9}, 3.901944878193474*^9, { 3.901957585265231*^9, 3.901957626860855*^9}, {3.902306725915485*^9, 3.902306824541399*^9}, {3.90230685833694*^9, 3.902306859754896*^9}, { 3.902306923576529*^9, 3.9023070273841867`*^9}, {3.90230705949677*^9, 3.902307198823498*^9}, {3.902307349760401*^9, 3.902307355535943*^9}, 3.902360497420044*^9},ExpressionUUID->"b1455a47-dec7-8348-98dc-\ 380d22539ae8"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", "E8001", "|", RowBox[{"E1005", " ", "Timoshenko", " ", "beam"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux1", ",", "uy1", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", " ", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", " ", ",", "\[Theta]z2", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "fXm", ",", "fYm", ",", "fZm", ",", "mXm", ",", "mYm", ",", "mZm", ",", "fxm", ",", "fym", ",", "fzm", ",", "mxm", ",", "mym", ",", "mzm", ",", "EEm", ",", "GGm", ",", "AAm", ",", "Sym", ",", "Szm", ",", "Iyym", ",", "Izzm", ",", "Iyzm", ",", "Irrm", ",", "rule", ",", "Irr"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux1", ",", "\[Delta]uy1", ",", "\[Delta]uz1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux1", ",", "uy1", ",", "uz1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]ux2", ",", "\[Delta]uy2", ",", "\[Delta]uz2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"ux2", ",", "uy2", ",", "uz2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]y1", ",", "\[Theta]z1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2"}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Theta]x2", ",", "\[Theta]y2", ",", "\[Theta]z2"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], ":>", RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}]}], ",", RowBox[{"a1_", ":>", "a1"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"EEm", "=", RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGm", "=", RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"AAm", "=", RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Sym", "=", RowBox[{"Sy", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Szm", "=", RowBox[{"Sz", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyym", "=", RowBox[{"Iyy", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Izzm", "=", RowBox[{"Izz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Iyzm", "=", RowBox[{"Iyz", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"Irrm", "=", RowBox[{"Iyym", "+", "Izzm"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "rule"}], ",", " ", RowBox[{"fY", " ", "/.", "rule"}], ",", RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"mX", " ", "/.", "rule"}], ",", " ", RowBox[{"mY", " ", "/.", "rule"}], ",", RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"fXm", ",", "fYm", ",", "fZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mxm", "=", RowBox[{"ix0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mym", "=", RowBox[{"iy0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"mzm", "=", RowBox[{"iz0", ".", RowBox[{"{", RowBox[{"mXm", ",", "mYm", ",", "mZm"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux1", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Sym", " ", "\[Theta]y1"}], "+", RowBox[{"Sym", " ", "\[Theta]y2"}], "+", RowBox[{"Szm", " ", "\[Theta]z1"}], "-", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux2", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"AAm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Sym", " ", "\[Theta]y1"}], "-", RowBox[{"Sym", " ", "\[Theta]y2"}], "-", RowBox[{"Szm", " ", "\[Theta]z1"}], "+", RowBox[{"Szm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", "Irrm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "mym", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "mzm", " ", "Sym"}], "+", RowBox[{"Izzm", " ", "mym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", "mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Iyym"}], ")"}], " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Izzm"}], ")"}], " ", SuperscriptBox["Szm", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", "uy1"}], "+", RowBox[{"Sym", " ", "uy2"}], "+", RowBox[{"Szm", " ", "uz1"}], "-", RowBox[{"Szm", " ", "uz2"}], "+", RowBox[{"Irrm", " ", "\[Theta]x1"}], "-", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "-", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Iyym"}], "+", "Izzm"}], ")"}], " ", "Sym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"Sym", "-", "Szm"}], ")"}], " ", RowBox[{"(", RowBox[{"Sym", "+", "Szm"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "h0"}], " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "+", RowBox[{"Iyym", " ", "\[Theta]y1"}], "-", RowBox[{"Iyym", " ", "\[Theta]y2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "GGm"}], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Izzm", " ", "Sym"}], "+", RowBox[{"6", " ", "Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mym", " ", "Sym"}], "-", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["Iyzm", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "-", RowBox[{"3", " ", "GGm", " ", "Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Izzm", " ", "mym"}], "+", RowBox[{"GGm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iyym", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "mym"}], "-", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "144"}], " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mym"}], "+", RowBox[{"GGm", " ", "h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", "ux1"}], "+", RowBox[{"Sym", " ", "ux2"}], "-", RowBox[{"Iyym", " ", "\[Theta]y1"}], "+", RowBox[{"Iyym", " ", "\[Theta]y2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyym", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyym", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "GGm"}], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "mym"}], " ", "Sym"}], "+", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["Iyzm", "2"], " ", "mym"}], "+", RowBox[{"6", " ", "Iyym", " ", "Izzm", " ", "mym"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"3", " ", "GGm", " ", "Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fxm"}], " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Iyym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", "ux1"}], "-", RowBox[{"Sym", " ", "ux2"}], "+", RowBox[{"4", " ", "Izzm", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "Izzm", " ", "\[Theta]y2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]z1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyym", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Izzm", " ", "Sym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "Szm"}]}], ")"}]}], "-", RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fzm"}], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"2", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fzm", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h0", "3"], " ", "mym"}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "fxm"}], " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Sym"}], "+", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fzm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", "Irrm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "mym", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "mzm", " ", "Sym"}], "+", RowBox[{"Izzm", " ", "mym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", "mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["h0", "2"], " ", "mxm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Iyym"}], ")"}], " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm"}], "+", RowBox[{ RowBox[{"(", RowBox[{"Irrm", "+", "Izzm"}], ")"}], " ", SuperscriptBox["Szm", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Iyym"}], "+", "Izzm"}], ")"}], " ", "Sym", " ", "Szm"}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"Sym", "-", "Szm"}], ")"}], " ", RowBox[{"(", RowBox[{"Sym", "+", "Szm"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "-", RowBox[{"Szm", " ", "uz1"}], "+", RowBox[{"Szm", " ", "uz2"}], "-", RowBox[{"Irrm", " ", "\[Theta]x1"}], "+", RowBox[{"Irrm", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "mxm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}], " ", "mxm"}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Irrm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", "ux1"}], "-", RowBox[{"Szm", " ", "ux2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "-", RowBox[{"Izzm", " ", "\[Theta]z1"}], "+", RowBox[{"Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Izzm", " ", "uy1"}], "+", RowBox[{"6", " ", "Izzm", " ", "uy2"}], "-", RowBox[{"6", " ", "Iyzm", " ", "uz1"}], "+", RowBox[{"6", " ", "Iyzm", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyym", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Izzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyym", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Sym"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"6", " ", "Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "mym"}], " ", "Sym"}], "+", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["Iyzm", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", "Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"GGm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "+", RowBox[{"GGm", " ", "h0", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Szm"}], " ", "ux1"}], "+", RowBox[{"Szm", " ", "ux2"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "+", RowBox[{"Izzm", " ", "\[Theta]z1"}], "-", RowBox[{"Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "+", RowBox[{"24", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", "ux1"}], "-", RowBox[{"Szm", " ", "ux2"}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Izzm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"3", " ", SuperscriptBox["Iyzm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", "\[Theta]y1"}], "-", RowBox[{"Iyzm", " ", "\[Theta]y2"}], "+", RowBox[{"2", " ", "Izzm", " ", "\[Theta]z1"}], "+", RowBox[{"4", " ", "Izzm", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"3", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "-", RowBox[{"2", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"6", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"mym", " ", "Sym"}], "-", RowBox[{"mzm", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"6", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["Iyzm", "2"], " ", "mzm"}], "+", RowBox[{"6", " ", "Iyym", " ", "Izzm", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"3", " ", "GGm", " ", "Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"GGm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"6", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GGm", " ", "Izzm", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["Sym", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "3"], " ", "mzm"}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "uy1"}], "-", RowBox[{"Izzm", " ", "uy2"}], "+", RowBox[{"Iyzm", " ", "uz1"}], "-", RowBox[{"Iyzm", " ", "uz2"}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Iyzm"}], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyym", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"2", " ", "Iyym", " ", "Szm"}]}], ")"}]}], "-", RowBox[{"2", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "-", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GGm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"24", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2"}], ")"}]}], "+", RowBox[{"Iyzm", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h0", "2"], " ", "mzm"}], "-", RowBox[{"6", " ", "EEm", " ", "Iyzm", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", "Izzm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AAm", "2"], " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"fxm", " ", "GGm", " ", SuperscriptBox["h0", "5"], " ", "Szm"}], "-", RowBox[{"72", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "EEm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "+", RowBox[{"2", " ", "GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uy1"}], "+", "uy2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "uz1"}], "+", "uz2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", "Sym"}], "-", RowBox[{"Iyzm", " ", "Szm"}]}], ")"}], " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyzm", " ", "mym"}], "+", RowBox[{"2", " ", "Iyym", " ", "mzm"}], "+", RowBox[{"GGm", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"Sym", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"GGm", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "fxm", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyzm", " ", "Sym"}], "-", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"2", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"mzm", " ", "Sym"}], "+", RowBox[{"mym", " ", "Szm"}]}], ")"}]}], "+", RowBox[{"fym", " ", "h0", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"fym", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["Iyzm", "2"], " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyzm", " ", "Sym", " ", "Szm", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Iyym", " ", SuperscriptBox["Szm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"Izzm", " ", "Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iyym", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"Sym", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["AAm", "3"], " ", SuperscriptBox["GGm", "2"], " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", SuperscriptBox["AAm", "2"], " ", "EEm", " ", "GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{"Iyym", "+", "Izzm"}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EEm", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Izzm", " ", SuperscriptBox["Sym", "2"]}], "+", RowBox[{"Szm", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyzm", " ", "Sym"}], "+", RowBox[{"Iyym", " ", "Szm"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AAm", " ", "EEm", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EEm", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyzm", "2"], "-", RowBox[{"Iyym", " ", "Izzm"}]}], ")"}]}], "+", RowBox[{"GGm", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Sym", "2"], "+", SuperscriptBox["Szm", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413395`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900046`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019163`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934977`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074614`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779596`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374007`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.763304868194822*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.763338852573564*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126706`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375565`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.7639608287155967`*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157433`*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.7885197610116014`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.845970995090545*^9, 3.8459710017500772`*^9}, { 3.8459711689546986`*^9, 3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {3.8459713248880577`*^9, 3.845971450142535*^9}, { 3.845971579506527*^9, 3.8459716159320116`*^9}, {3.875407800653024*^9, 3.875407833881046*^9}, {3.901862474143671*^9, 3.901862483071995*^9}, { 3.901862692714851*^9, 3.90186273047615*^9}, {3.9018627816543417`*^9, 3.901862823926278*^9}, {3.901863104575192*^9, 3.901863298922026*^9}, { 3.9018633325066304`*^9, 3.901863421207255*^9}, {3.901863454589965*^9, 3.901863533031896*^9}, {3.901863580669295*^9, 3.901863587574851*^9}, { 3.901931107221163*^9, 3.901931309788501*^9}, {3.901931430103271*^9, 3.901931431054244*^9}, {3.901931467635719*^9, 3.901931504726559*^9}, { 3.901932364463219*^9, 3.901932378737213*^9}, {3.9019327373745213`*^9, 3.9019328813594475`*^9}, {3.901932925465217*^9, 3.901932944706784*^9}, { 3.901932992981395*^9, 3.901933100237834*^9}, {3.901933158149428*^9, 3.901933186202359*^9}, {3.901933447201986*^9, 3.9019334708118753`*^9}, { 3.901933532374191*^9, 3.9019335434533453`*^9}, {3.9019338370368414`*^9, 3.901933866440675*^9}, 3.90193403466062*^9, {3.901934070930133*^9, 3.9019341309501734`*^9}, {3.901941127868461*^9, 3.9019411487728004`*^9}, { 3.901941201809495*^9, 3.9019412853248825`*^9}, {3.901941792906618*^9, 3.901941839500992*^9}, {3.9019419531468377`*^9, 3.901941993151548*^9}, { 3.901942155823786*^9, 3.901942174809746*^9}, {3.901942272905849*^9, 3.901942294729624*^9}, {3.9019425447980947`*^9, 3.901942573533023*^9}, 3.901943201125978*^9, 3.9019433019117823`*^9, {3.9019433916631427`*^9, 3.901943406871099*^9}, {3.90194441333509*^9, 3.9019445690600624`*^9}, 3.901944878193474*^9, {3.901957585265231*^9, 3.901957626860855*^9}, { 3.902306725915485*^9, 3.902306824541399*^9}, {3.90230685833694*^9, 3.902306859754896*^9}, {3.902306923576529*^9, 3.9023070273841867`*^9}, { 3.90230705949677*^9, 3.902307198823498*^9}, {3.902307349760401*^9, 3.902307355535943*^9}, {3.902360497420044*^9, 3.902360545503408*^9}, { 3.914833536617361*^9, 3.914833546860956*^9}}, CellLabel-> "In[165]:=",ExpressionUUID->"903e3f55-8118-ac47-a05e-d79958268b0b"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp 1:st) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362982159668*^9}, {3.787894778048681*^9, 3.787894805652479*^9}, {3.787894853900061*^9, 3.787894879979733*^9}, 3.788518934866293*^9, {3.788530032953936*^9, 3.788530036400934*^9}, 3.788530671733654*^9, {3.820027177907984*^9, 3.8200271816696315`*^9}, { 3.820027559976658*^9, 3.820027565268735*^9}, {3.8519950922439923`*^9, 3.851995095103127*^9}, {3.852092988966981*^9, 3.852092991459448*^9}},ExpressionUUID->"cc74f30b-c70b-b64b-a401-\ 404cfffa0def"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", RowBox[{"{", RowBox[{"\[Kappa]x_", ",", "\[Kappa]y_", ",", "\[Kappa]z_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iy0", ",", "iz0", ",", "ux1", ",", "uy1", " ", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", " ", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", ",", "\[Theta]z2", " ", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "bx", ",", "by", ",", "bz", ",", "\[Delta]Wintext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iy0", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]ux1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]ux2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uy1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]uy2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uz1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]uz2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]x1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]x2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]y1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]y2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]z1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]z2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"by", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bz", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wintext", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"bx", " ", "h0"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "h0"]}], ")"}], " ", "\[Delta]ux1"}], ")"}]}], "+", FractionBox[ RowBox[{"bx", " ", "h0", " ", "\[Delta]ux2"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], " ", "\[Delta]ux2"}], "h0"], "+", FractionBox[ RowBox[{"GG", " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}], " ", "\[Kappa]x"}], "h0"], "+", FractionBox[ RowBox[{"GG", " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}], " ", "\[Kappa]x"}], "h0"], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", "AA", " ", "EE", " ", "GG", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}], " ", "\[Kappa]y"}], "+", RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "\[Kappa]y"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Izz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]y"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "AA", " ", "EE", " ", "GG", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}], " ", "\[Kappa]y"}], "+", RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "\[Kappa]y"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Izz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]y"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "\[Kappa]y"}]}], ")"}]}], "-", RowBox[{"24", " ", "EE", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Izz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}], " ", "\[Kappa]y"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]y"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "\[Kappa]y"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z2"}]}], ")"}], " ", "\[Kappa]y"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Izz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]y"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", "AA", " ", "EE", " ", "GG", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}], " ", "\[Kappa]z"}], "+", RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "\[Kappa]z"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iyy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]z"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "AA", " ", "EE", " ", "GG", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}], " ", "\[Kappa]z"}], "+", RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "\[Kappa]z"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iyy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]z"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "\[Kappa]z"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iyy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y1"}], "+", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}], " ", "\[Kappa]z"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]z"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "bz"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "\[Kappa]z"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"h0", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y2"}]}], ")"}], " ", "\[Kappa]z"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iyy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "\[Kappa]z"}]}], ")"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]Wine", "=", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"420", " ", "h0"}]]}], "\[Rho]\[Rho]", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"70", " ", RowBox[{"ux1", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]ux1", "[", "0", "]"}]}], "+", RowBox[{"\[Delta]ux2", "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"70", " ", RowBox[{"ux2", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux1", "[", "0", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]ux2", "[", "0", "]"}]}]}], ")"}]}], "+", RowBox[{"156", " ", RowBox[{"uy1", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy2", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uy1", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uy2", "[", "2", "]"}], " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz1", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz2", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}]}], "+", RowBox[{"54", " ", RowBox[{"uz1", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}]}], "+", RowBox[{"156", " ", RowBox[{"uz2", "[", "2", "]"}], " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"uz1", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"uz2", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"uz1", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"uz2", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"uy1", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"uy2", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"uy1", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"uy2", "[", "2", "]"}], " ", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], "+", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "+", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "-", RowBox[{"13", " ", "h0", " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}], "-", RowBox[{"22", " ", "h0", " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalIota]yy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"uz1", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], "+", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"3", " ", RowBox[{"uz2", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"\[Delta]uz1", "[", "0", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"\[Delta]uz2", "[", "0", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], "+", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz1", "[", "0", "]"}], "-", RowBox[{"\[Delta]uz2", "[", "0", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y1", "[", "2", "]"}], "+", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]ux2", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"ux2", "[", "2", "]"}]}], "+", RowBox[{"\[Theta]x1", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x1", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ux2", "[", "2", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x1", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y1", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]y1", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]y2", "[", "0", "]"}], " ", RowBox[{"\[Theta]y2", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[CapitalIota]zz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uy1", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], "+", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uy2", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"\[Delta]uy1", "[", "0", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"\[Delta]uy2", "[", "0", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], "+", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy1", "[", "0", "]"}], "-", RowBox[{"\[Delta]uy2", "[", "0", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z1", "[", "2", "]"}], "+", RowBox[{"\[Theta]z2", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"\[Delta]ux2", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"ux2", "[", "2", "]"}]}], "+", RowBox[{"\[Theta]x1", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"5", " ", RowBox[{"\[Delta]\[Theta]x1", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"ux2", "[", "2", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Theta]x1", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z1", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Theta]z1", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"\[Delta]\[Theta]z2", "[", "0", "]"}], " ", RowBox[{"\[Theta]z2", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Kappa]y_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Kappa]y", ",", "kz", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", RowBox[{"Iy", "+", "Iz"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Kappa]y_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Kappa]y", ",", "kz", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", RowBox[{"Iy", "+", "Iz"}], ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"first", " ", "order", " ", "theory", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "ky_", ",", "kz_", ",", "ez_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", "iy0_", ",", "cpol_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "ky", ",", "kz", ",", "ez"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", "Jx", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "ky_", ",", "kz_", ",", "ez_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", RowBox[{"{", RowBox[{"iyr_", ",", "\[Alpha]_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "ixr", ",", "izr", ",", "ix0", ",", "iy0", ",", "iz0", ",", "ux1", ",", "uy1", " ", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", " ", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", ",", "\[Theta]z2", " ", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "bx", ",", "by", ",", "bz"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Alpha]", " ", "rotation", " ", "along", " ", "x"}], "-", RowBox[{"axis", " ", "for", " ", "symmetry"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"with", " ", "respect", " ", "to", " ", "z"}], "-", "axis"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ixr", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"izr", "=", RowBox[{"ixr", "\[Cross]", "iyr"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", " ", "=", "ixr"}], ";", "\[IndentingNewLine]", RowBox[{"iy0", " ", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", " ", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]ux1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]ux2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uy1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]uy2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uz1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]uz2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]x1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]x2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]y1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]y2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]z1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]z2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"by", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bz", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"bx", " ", "h0", " ", "\[Delta]ux1"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}], " ", "\[Delta]ux1"}], "h0"], "+", FractionBox[ RowBox[{"bx", " ", "h0", " ", "\[Delta]ux2"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], " ", "\[Delta]ux2"}], "h0"], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "kz"}]}], ")"}]}], "-", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iy", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "kz"}]}], ")"}]}], "+", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iy", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "kz"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y1"}], "+", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "bz"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "kz"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"h0", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "ky"}]}], ")"}]}], "-", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iz", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "ky"}]}], ")"}]}], "+", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iz", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}]], "GG", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Iz", " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"AA", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uy1"}], "+", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]z1"}], "-", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}]], "GG", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Iz", " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"AA", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uy1"}], "+", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]z1"}], "-", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "by"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "-", RowBox[{"3", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"3", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky"}]}], ")"}]}], "-", RowBox[{"24", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h0", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "-", RowBox[{"3", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"3", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], ")"}]}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "ky_", ",", "kz_", ",", "ez_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux1", ",", "uy1", " ", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", " ", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", ",", "\[Theta]z2", " ", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "bx", ",", "by", ",", "bz"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]ux1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]ux2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uy1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]uy2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uz1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]uz2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]x1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]x2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]y1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]y2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]z1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]z2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"by", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bz", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"bx", " ", "h0", " ", "\[Delta]ux1"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}], " ", "\[Delta]ux1"}], "h0"], "+", FractionBox[ RowBox[{"bx", " ", "h0", " ", "\[Delta]ux2"}], "2"], "+", FractionBox[ RowBox[{"AA", " ", "EE", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}], " ", "\[Delta]ux2"}], "h0"], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "kz"}]}], ")"}]}], "-", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iy", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "kz"}]}], ")"}]}], "+", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iy", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uz1"}], "+", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "kz"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y1"}], "+", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "bz"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "kz"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "kz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "uz1"}], "+", RowBox[{"3", " ", "uz2"}], "+", RowBox[{"h0", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]y2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iy"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "kz"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "ky"}]}], ")"}]}], "-", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iz", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "ky"}]}], ")"}]}], "+", RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "Iz", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"24", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}]], "GG", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Iz", " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"AA", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uy1"}], "+", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]z1"}], "-", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}]], "GG", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "Iz", " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"AA", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "uy1"}], "+", RowBox[{"2", " ", "uy2"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]z1"}], "-", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "by"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky"}]}], ")"}]}], "+", RowBox[{"24", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h0", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "-", RowBox[{"3", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"3", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky"}]}], ")"}]}], "-", RowBox[{"24", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "EE", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h0", " ", "ky", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "uy1"}], "-", RowBox[{"3", " ", "uy2"}], "-", RowBox[{"3", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"3", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"2", " ", "h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", "h0", " ", "Iz"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky"}]}], ")"}]}], ")"}]}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "first", " ", "order", " ", "offset", " ", "beam", " ", "theory", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Sy_", ",", "Sz_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE", ",", "GG", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "Sy", ",", "Sz", ",", "Iy", ",", "Iz", ",", "0", ",", RowBox[{"Iy", "+", "Iz"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "GG_", ",", "ky_", ",", "kz_", ",", "kyz_", ",", "ey_", ",", "ez_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iy_", ",", "Iz_", ",", "Iyz_", ",", "Jx_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux1", ",", "uy1", " ", ",", "uz1", " ", ",", "\[Theta]x1", " ", ",", "\[Theta]y1", ",", "\[Theta]z1", " ", ",", "\[Delta]ux1", " ", ",", "\[Delta]uy1", ",", "\[Delta]uz1", ",", "\[Delta]\[Theta]x1", ",", "\[Delta]\[Theta]y1", ",", "\[Delta]\[Theta]z1", ",", "ux2", ",", "uy2", " ", ",", "uz2", " ", ",", "\[Theta]x2", " ", ",", "\[Theta]y2", ",", "\[Theta]z2", " ", ",", "\[Delta]ux2", " ", ",", "\[Delta]uy2", ",", "\[Delta]uz2", ",", "\[Delta]\[Theta]x2", ",", "\[Delta]\[Theta]y2", ",", "\[Delta]\[Theta]z2", ",", "bx", ",", "by", ",", "bz", ",", "cx", ",", "cy", ",", "cz"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]ux1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]ux2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uy1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]uy2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]uz1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]uz2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]x1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]x2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]y1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]y2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]\[Theta]z1", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{"\[Delta]\[Theta]z2", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"by", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"bz", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{"cx", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{"cy", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"cz", " ", "=", RowBox[{ RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["kyz", "2"]}], "+", RowBox[{"ky", " ", "kz"}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "-", RowBox[{"2", " ", "kyz", " ", "Sy", " ", "Sz"}], "+", RowBox[{"kz", " ", SuperscriptBox["Sz", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux1", " ", RowBox[{"(", RowBox[{ RowBox[{"bx", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Sy", " ", "\[Theta]y1"}], "+", RowBox[{"Sy", " ", "\[Theta]y2"}], "+", RowBox[{"Sz", " ", "\[Theta]z1"}], "-", RowBox[{"Sz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["kyz", "2"]}], "+", RowBox[{"ky", " ", "kz"}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "-", RowBox[{"2", " ", "kyz", " ", "Sy", " ", "Sz"}], "+", RowBox[{"kz", " ", SuperscriptBox["Sz", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", "\[Delta]ux2", " ", RowBox[{"(", RowBox[{ RowBox[{"bx", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Sy", " ", "\[Theta]y1"}], "-", RowBox[{"Sy", " ", "\[Theta]y2"}], "-", RowBox[{"Sz", " ", "\[Theta]z1"}], "+", RowBox[{"Sz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]\[Theta]x1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"cx", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GG", " ", "Jx", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "cy", " ", "ey", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"2", " ", "cz", " ", "ez", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"cx", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iyz", " ", "uy1"}], "+", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iz", " ", "uy1"}], "+", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iyz", " ", "uy2"}], "-", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iz", " ", "uy2"}], "-", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iy", " ", "uz1"}], "+", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iyz", " ", "uz1"}], "+", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iy", " ", "uz2"}], "-", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iyz", " ", "uz2"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "\[Theta]x1"}], "+", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "\[Theta]x1"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "\[Theta]x2"}], "-", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "\[Theta]x2"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "\[Theta]z2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "\[Theta]z2"}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cy", " ", "EE", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "ky"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"ez", " ", "Iy", " ", "ky"}], "-", RowBox[{"ey", " ", "Iy", " ", "kyz"}], "-", RowBox[{"ez", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"ey", " ", "Iyz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cx", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"bx", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "-", RowBox[{"bx", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "-", RowBox[{"bx", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "+", RowBox[{"bx", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iy", " ", "Jx", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iyz", " ", "Jx", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iz", " ", "Jx", " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iy", " ", "Jx", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iyz", " ", "Jx", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iz", " ", "Jx", " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"cx", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"cy", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "Sy", " ", "Sz"}], "-", RowBox[{"cy", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", "Sy", " ", "Sz"}], "-", RowBox[{"cy", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cy", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "kz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"ez", " ", "ky", " ", "Sy"}], "-", RowBox[{"ey", " ", "kyz", " ", "Sy"}], "-", RowBox[{"ez", " ", "kyz", " ", "Sz"}], "+", RowBox[{"ey", " ", "kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "ky", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"ey", " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", "kz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "-", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["Iyz", "2"], " ", "Jx", " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "Iy", " ", "Iz", " ", "Jx", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["Iyz", "2"], " ", "Jx", " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "Iy", " ", "Iz", " ", "Jx", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]\[Theta]x2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"cx", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"2", " ", "GG", " ", "Jx", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "cy", " ", "ey", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"2", " ", "cz", " ", "ez", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"cx", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iyz", " ", "uy1"}], "-", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iz", " ", "uy1"}], "-", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iyz", " ", "uy2"}], "+", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iz", " ", "uy2"}], "+", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iy", " ", "uz1"}], "-", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iyz", " ", "uz1"}], "-", RowBox[{"24", " ", "EE", " ", "ey", " ", "Iy", " ", "uz2"}], "+", RowBox[{"24", " ", "EE", " ", "ez", " ", "Iyz", " ", "uz2"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "\[Theta]x1"}], "-", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "\[Theta]x1"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "\[Theta]x2"}], "+", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "\[Theta]x2"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "\[Theta]z2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cy", " ", "EE", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "ky"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"ez", " ", "Iy", " ", "ky"}], "-", RowBox[{"ey", " ", "Iy", " ", "kyz"}], "-", RowBox[{"ez", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"ey", " ", "Iyz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"6", " ", "cx", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"bx", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "-", RowBox[{"bx", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "-", RowBox[{"bx", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "+", RowBox[{"bx", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iy", " ", "Jx", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"24", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iyz", " ", "Jx", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iz", " ", "Jx", " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iy", " ", "Jx", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"288", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iyz", " ", "Jx", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Iz", " ", "Jx", " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"cx", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "cy"}], " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "Sy", " ", "Sz"}], "+", RowBox[{"cy", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", "Sy", " ", "Sz"}], "+", RowBox[{"cy", " ", "ez", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", SuperscriptBox["Sz", "2"]}], "-", RowBox[{"cy", " ", "ey", " ", SuperscriptBox["h0", "3"], " ", "kz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ez"}], " ", "ky", " ", "Sy"}], "+", RowBox[{"ey", " ", "kyz", " ", "Sy"}], "+", RowBox[{"ez", " ", "kyz", " ", "Sz"}], "-", RowBox[{"ey", " ", "kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"ey", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "-", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "+", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["Iyz", "2"], " ", "Jx", " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "Iy", " ", "Iz", " ", "Jx", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["Iyz", "2"], " ", "Jx", " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "Iy", " ", "Iz", " ", "Jx", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{ "48", " ", "EE", " ", "ey", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ez", "2"], " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", SuperscriptBox["ey", "2"], " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", "Jx", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{ "6", " ", "EE", " ", "ez", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "+", RowBox[{ "6", " ", "EE", " ", "ey", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "bz", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "-", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "kyz"}], "-", RowBox[{"Iyz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "cy"}], " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", "Sy", " ", "Sz"}], "+", RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "kz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "kyz"}], " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", "kz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "-", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "cy", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"bz", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"2", " ", "ey", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ey", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]y1"}], "-", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uz2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "bz", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "kyz"}], "-", RowBox[{"Iyz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", "Sy", " ", "Sz"}], "-", RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "kz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "-", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "cy", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"bz", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"2", " ", "ey", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ey", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]y1"}], "-", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy1", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "by", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "ky"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kyz"}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"Iyz", " ", "kyz"}]}], ")"}]}], "-", RowBox[{"6", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "cy"}], " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "Sy", " ", "Sz"}], "+", RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ky"}], " ", "Sy"}], "+", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "-", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "+", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "cz", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"by", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"2", " ", "ey", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ey", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]y1"}], "-", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "\[Delta]uy2", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "by", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "ky"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kyz"}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"Iyz", " ", "kyz"}]}], ")"}]}], "+", RowBox[{"6", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "Sy", " ", "Sz"}], "-", RowBox[{"cy", " ", SuperscriptBox["h0", "3"], " ", "kyz", " ", SuperscriptBox["Sz", "2"]}], "+", RowBox[{"cz", " ", SuperscriptBox["h0", "3"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "-", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bx", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "ky", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy1"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "uy2"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{ "24", " ", "EE", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "uz2"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "24", " ", "EE", " ", "ez", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "24", " ", "EE", " ", "ey", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{ "12", " ", "EE", " ", "ez", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "12", " ", "EE", " ", "ey", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y1"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "kyz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "kyz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]y2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z1"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iz", " ", "ky", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]z2"}], "-", RowBox[{ "12", " ", "EE", " ", "h0", " ", "Iyz", " ", "ky", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "+", RowBox[{ "6", " ", "EE", " ", "h0", " ", "Iy", " ", "ky", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "cz", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"by", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uz1"}], "-", RowBox[{"2", " ", "uz2"}], "+", RowBox[{"2", " ", "ey", " ", "\[Theta]x1"}], "-", RowBox[{"2", " ", "ey", " ", "\[Theta]x2"}], "-", RowBox[{"h0", " ", "\[Theta]y1"}], "-", RowBox[{"h0", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "uy1"}], "-", RowBox[{"2", " ", "uy2"}], "-", RowBox[{"2", " ", "ez", " ", "\[Theta]x1"}], "+", RowBox[{"2", " ", "ez", " ", "\[Theta]x2"}], "+", RowBox[{"h0", " ", "\[Theta]z1"}], "+", RowBox[{"h0", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z2", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "ky"}], "-", RowBox[{"Iz", " ", "kyz"}]}], ")"}]}], "-", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "+", RowBox[{"2", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sz", " ", "ux1"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sz", " ", "ux1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sz", " ", "ux1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sz", " ", "ux2"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sz", " ", "ux2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sz", " ", "ux2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]y1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]y2"}], "+", RowBox[{"120", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iz", "2"], " ", "kz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "-", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "+", RowBox[{"96", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iz", "2"], " ", "kz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "cz", " ", SuperscriptBox["h0", "2"]}], "-", RowBox[{"by", " ", SuperscriptBox["h0", "3"]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", "ux1"}], "-", RowBox[{"Sz", " ", "ux2"}], "+", RowBox[{"Iyz", " ", "\[Theta]y1"}], "-", RowBox[{"Iyz", " ", "\[Theta]y2"}], "-", RowBox[{"Iz", " ", "\[Theta]z1"}], "+", RowBox[{"Iz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "Iz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "+", RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "72"}], " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"12", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cy", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "-", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bx", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "ky", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cz", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "-", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"by", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", "\[Theta]x1"}], "-", RowBox[{"ey", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"ky", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "-", RowBox[{"ez", " ", "\[Theta]x1"}], "+", RowBox[{"ez", " ", "\[Theta]x2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"kz", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"ky", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "Iyz", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{"3", " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", "\[Theta]y1"}], "-", RowBox[{"Iyz", " ", "\[Theta]y2"}], "+", RowBox[{"2", " ", "Iz", " ", "\[Theta]z1"}], "+", RowBox[{"4", " ", "Iz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iz", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"3", " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"\[Delta]\[Theta]y1", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"Iyz", " ", "kyz"}]}], ")"}]}], "-", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kz"}], "-", RowBox[{"2", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sy", " ", "ux1"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "ux1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sy", " ", "ux1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sy", " ", "ux2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "ux2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sy", " ", "ux2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iy", "2"], " ", "ky", " ", "\[Theta]y1"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "kyz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"96", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iy", "2"], " ", "ky", " ", "\[Theta]y2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "kyz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]z1"}], "-", RowBox[{"120", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]z2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "cy", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"bz", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", "ux1"}], "-", RowBox[{"Sy", " ", "ux2"}], "+", RowBox[{"Iy", " ", "\[Theta]y1"}], "-", RowBox[{"Iy", " ", "\[Theta]y2"}], "-", RowBox[{"Iyz", " ", "\[Theta]z1"}], "+", RowBox[{"Iyz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iy", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "+", RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"72", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "-", RowBox[{"12", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cy", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "-", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cz", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "-", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bx", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kz", " ", "Sz"}]}], ")"}]}], "-", RowBox[{"bz", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"kz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", "\[Theta]x1"}], "-", RowBox[{"ey", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "-", RowBox[{"ez", " ", "\[Theta]x1"}], "+", RowBox[{"ez", " ", "\[Theta]x2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Iy", " ", "\[Theta]y1"}], "+", RowBox[{"Iy", " ", "\[Theta]y2"}], "+", RowBox[{"Iyz", " ", "\[Theta]z1"}], "-", RowBox[{"Iyz", " ", "\[Theta]z2"}]}], ")"}]}], "-", RowBox[{"kz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iz", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "-", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"3", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]z1", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["AA", "2"], " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kyz"}], "-", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "ky"}], "-", RowBox[{"Iz", " ", "kyz"}]}], ")"}]}], "+", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iz", " ", "kz"}], "+", RowBox[{"2", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sz"}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sz"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sz", " ", "ux1"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sz", " ", "ux1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sz", " ", "ux1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sz", " ", "ux2"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sz", " ", "ux2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sz", " ", "ux2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "ky", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "uy2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]y1"}], "-", RowBox[{"120", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]y2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]y2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z1"}], "-", RowBox[{"96", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z1"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iz", "2"], " ", "kz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "ky", " ", "\[Theta]z2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "ky", " ", "\[Theta]z2"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iz", "2"], " ", "kz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sz", "2"], " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "cz", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"by", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", "ux1"}], "-", RowBox[{"Sz", " ", "ux2"}], "+", RowBox[{"Iyz", " ", "\[Theta]y1"}], "-", RowBox[{"Iyz", " ", "\[Theta]y2"}], "-", RowBox[{"Iz", " ", "\[Theta]z1"}], "+", RowBox[{"Iz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"by", " ", SuperscriptBox["h0", "4"]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "Iz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "+", RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"72", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"12", " ", "by", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cy", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "ky"}], " ", "Sy"}], "+", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cz", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "kyz"}], " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bx", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", "kyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "ky", " ", "Sz"}], "-", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "+", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"by", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", "\[Theta]x1"}], "-", RowBox[{"ey", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"ky", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "-", RowBox[{"ez", " ", "\[Theta]x1"}], "+", RowBox[{"ez", " ", "\[Theta]x2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"kz", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iz", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"3", " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"4", " ", "Iyz", " ", "\[Theta]y1"}], "+", RowBox[{"2", " ", "Iyz", " ", "\[Theta]y2"}], "-", RowBox[{"Iz", " ", "\[Theta]z1"}], "+", RowBox[{"Iz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"ky", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "Iyz", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "-", RowBox[{"3", " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"2", " ", "Iz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[Theta]z1"}], "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Delta]\[Theta]y2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["AA", "2"], " ", "GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iy", " ", "kyz"}], "+", RowBox[{"12", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"Iyz", " ", "kyz"}]}], ")"}]}], "-", RowBox[{"12", " ", "cz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", "Iyz", " ", "kz"}], "+", RowBox[{"2", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "-", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", SuperscriptBox["kyz", "2"], " ", "Sy"}], "+", RowBox[{"bx", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", "ky", " ", "kz", " ", "Sy"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sy", " ", "ux1"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "ux1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sy", " ", "ux1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "ky", " ", "Sy", " ", "ux2"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "kyz", " ", "Sy", " ", "ux2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iz", " ", "kz", " ", "Sy", " ", "ux2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kyz", " ", "uy2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "uy2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "uy2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz1"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "uz2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "Iy", " ", "Iz", " ", "kz", " ", "uz2"}], "-", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"12", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "uz2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x1"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x1"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ez", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]x2"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", "ey", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ey", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]x2"}], "+", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "-", RowBox[{"12", " ", "EE", " ", "ez", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]x2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iy", "2"], " ", "ky", " ", "\[Theta]y1"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "kyz", " ", "\[Theta]y1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iy", "2"], " ", "ky", " ", "\[Theta]y2"}], "+", RowBox[{"48", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "kyz", " ", "\[Theta]y2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"96", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kz", " ", "\[Theta]y2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", SuperscriptBox["Sy", "2"], " ", "\[Theta]y2"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]z1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z1"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z1"}], "-", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]z1"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z1"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iyz", " ", "ky", " ", "\[Theta]z2"}], "-", RowBox[{"120", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", SuperscriptBox["Iyz", "2"], " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"72", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iy", " ", "Iz", " ", "kyz", " ", "\[Theta]z2"}], "+", RowBox[{"24", " ", SuperscriptBox["EE", "2"], " ", "h0", " ", "Iyz", " ", "Iz", " ", "kz", " ", "\[Theta]z2"}], "+", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", SuperscriptBox["kyz", "2"], " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}], "-", RowBox[{"6", " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "3"], " ", "ky", " ", "kz", " ", "Sy", " ", "Sz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "cy", " ", SuperscriptBox["h0", "2"]}], "+", RowBox[{"bz", " ", SuperscriptBox["h0", "3"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", "ux1"}], "-", RowBox[{"Sy", " ", "ux2"}], "+", RowBox[{"Iy", " ", "\[Theta]y1"}], "-", RowBox[{"Iy", " ", "\[Theta]y2"}], "-", RowBox[{"Iyz", " ", "\[Theta]z1"}], "+", RowBox[{"Iyz", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["kyz", "2"], "-", RowBox[{"ky", " ", "kz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"bz", " ", SuperscriptBox["h0", "4"]}], "+", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"h0", " ", "Sy", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iy", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", RowBox[{"(", RowBox[{"\[Theta]x1", "-", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "+", RowBox[{"ez", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]x1"}], "+", "\[Theta]x2"}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "h0", " ", "Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"2", " ", "h0", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"72", " ", "cy", " ", "EE", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"12", " ", "bz", " ", "EE", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cy", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", "Sy"}], "-", RowBox[{"kyz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "cz", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", "Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"kyz", " ", "Sy"}], "-", RowBox[{"kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"6", " ", "bx", " ", "GG", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iyz", " ", "kyz", " ", "Sy"}], "-", RowBox[{"Iz", " ", "kz", " ", "Sy"}], "-", RowBox[{"Iy", " ", "kyz", " ", "Sz"}], "+", RowBox[{"Iyz", " ", "kz", " ", "Sz"}]}], ")"}]}], "+", RowBox[{"bz", " ", "GG", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "kyz", " ", "Sy"}], "+", RowBox[{"kz", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "+", RowBox[{"Iy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Theta]y1"}], "+", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"GG", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"kz", " ", RowBox[{"(", RowBox[{"uz1", "-", "uz2", "+", RowBox[{"ey", " ", "\[Theta]x1"}], "-", RowBox[{"ey", " ", "\[Theta]x2"}]}], ")"}]}], "+", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{"uy1", "-", "uy2", "-", RowBox[{"ez", " ", "\[Theta]x1"}], "+", RowBox[{"ez", " ", "\[Theta]x2"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"kz", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "Iz", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}], "-", RowBox[{"Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "+", RowBox[{"6", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", "\[Theta]y2"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "+", RowBox[{"2", " ", "\[Theta]y2"}]}], ")"}]}], "+", RowBox[{"Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "-", "\[Theta]z2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"ky", " ", SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sy", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "ux1"}], "+", "ux2"}], ")"}]}], "-", RowBox[{"Iy", " ", "\[Theta]y1"}], "+", RowBox[{"Iy", " ", "\[Theta]y2"}], "+", RowBox[{"Iyz", " ", "\[Theta]z1"}], "-", RowBox[{"Iyz", " ", "\[Theta]z2"}]}], ")"}]}], "+", RowBox[{"kyz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "Iy", " ", SuperscriptBox["Sz", "2"], " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}], "+", RowBox[{ SuperscriptBox["Sy", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "Sz", " ", RowBox[{"(", RowBox[{"ux1", "-", "ux2"}], ")"}]}], "-", RowBox[{"3", " ", "Iz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", "\[Theta]z2"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "Sy", " ", "Sz", " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", RowBox[{"(", RowBox[{"\[Theta]y1", "-", "\[Theta]y2"}], ")"}]}], "+", RowBox[{"2", " ", "Iyz", " ", RowBox[{"(", RowBox[{"\[Theta]z1", "+", RowBox[{"2", " ", "\[Theta]z2"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"12", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", "EE", " ", "GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iy", " ", "ky"}], "-", RowBox[{"2", " ", "Iyz", " ", "kyz"}], "+", RowBox[{"Iz", " ", "kz"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["AA", "3"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["kyz", "2"]}], "+", RowBox[{"ky", " ", "kz"}]}], ")"}]}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Iz", " ", SuperscriptBox["Sy", "2"]}], "+", RowBox[{"Sz", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Iyz", " ", "Sy"}], "+", RowBox[{"Iy", " ", "Sz"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"12", " ", "AA", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "EE", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Iyz", "2"], "-", RowBox[{"Iy", " ", "Iz"}]}], ")"}]}], "+", RowBox[{"GG", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"ky", " ", SuperscriptBox["Sy", "2"]}], "-", RowBox[{"2", " ", "kyz", " ", "Sy", " ", "Sz"}], "+", RowBox[{"kz", " ", SuperscriptBox["Sz", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809975`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413385`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900037`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812577`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019154`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934986`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829996`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524033`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.686651410203893*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478405`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074604`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779587`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003556`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446133`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374002`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.7633048681948214`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.7633388525735636`*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126697`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, { 3.763363167452371*^9, 3.763363178496842*^9}, {3.763363251766201*^9, 3.763363336489247*^9}, 3.763363375651574*^9, {3.763363406769277*^9, 3.7633634260616302`*^9}, 3.774070752399095*^9, {3.774070782993284*^9, 3.7740707878092556`*^9}, {3.774070839037439*^9, 3.7740708397395124`*^9}, { 3.783227748950984*^9, 3.783227749200897*^9}, {3.783227785707693*^9, 3.783227814364159*^9}, {3.783227885670522*^9, 3.783227965239267*^9}, { 3.783228526111727*^9, 3.7832285921982536`*^9}, {3.783228737502862*^9, 3.78322877106949*^9}, {3.783228913503404*^9, 3.783228974160059*^9}, { 3.783231654354813*^9, 3.783231867293047*^9}, {3.78324783313018*^9, 3.783247888225492*^9}, {3.783247918659526*^9, 3.783247936428216*^9}, { 3.783247974038493*^9, 3.783247982976531*^9}, {3.783313226071577*^9, 3.783313258854038*^9}, 3.783313524738693*^9, 3.783314136984562*^9, 3.783487206063845*^9, 3.783755487871724*^9, {3.7837555335024405`*^9, 3.783755772186054*^9}, {3.783824704396086*^9, 3.783824717372885*^9}, { 3.783831656050796*^9, 3.78383166176163*^9}, 3.783831747278124*^9, { 3.783831800306869*^9, 3.783831865083964*^9}, {3.783832157749748*^9, 3.7838321754150395`*^9}, 3.7838360879477*^9, {3.783836118664728*^9, 3.783836177782141*^9}, 3.783838211315759*^9, {3.78790294596488*^9, 3.7879029543299*^9}, {3.787903001338712*^9, 3.787903072405434*^9}, { 3.788518535581091*^9, 3.788518581669884*^9}, 3.788518665684089*^9, { 3.788518750049559*^9, 3.7885188089248676`*^9}, {3.792285805027801*^9, 3.792285809644437*^9}, {3.792285899798837*^9, 3.79228590326073*^9}, { 3.792285934988084*^9, 3.792285938788156*^9}, {3.792286145687361*^9, 3.792286169387656*^9}, {3.792286200995656*^9, 3.792286297490285*^9}, { 3.792286331275391*^9, 3.792286495725276*^9}, {3.792286528661299*^9, 3.7922866344845324`*^9}, 3.792286868323101*^9, {3.792287008797488*^9, 3.792287076398588*^9}, {3.847260050156146*^9, 3.847260052041194*^9}, { 3.847260082747003*^9, 3.847260083816955*^9}, {3.847260159371749*^9, 3.847260324513658*^9}, {3.8472610396461535`*^9, 3.847261042450612*^9}, { 3.861153184806384*^9, 3.861153309414065*^9}, {3.861153419234234*^9, 3.86115345351521*^9}, {3.8611574733568163`*^9, 3.861157585128314*^9}, { 3.861157647270217*^9, 3.861157667943701*^9}, {3.8611577144000278`*^9, 3.8611577481431246`*^9}, {3.8611632355045013`*^9, 3.8611632377814045`*^9}, {3.861163278587812*^9, 3.8611632869508305`*^9}}, CellLabel-> "In[171]:=",ExpressionUUID->"99631d85-2eb3-e545-aacd-16994fa1f2f2"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018818586525*^9}, { 3.7650665335992107`*^9, 3.765066539129182*^9}, {3.78789481614439*^9, 3.787894878450323*^9}, 3.78851920080788*^9, {3.8200277665922384`*^9, 3.8200277671230316`*^9}, {3.85199502324076*^9, 3.8519950237805796`*^9}},ExpressionUUID->"87e1b4aa-be36-0245-abe3-\ 75139fa38351"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA", ",", "0", ",", "0", ",", "Iyy", ",", "Izz", ",", "0", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "AA_", ",", "Sy_", ",", "Sz_", ",", "Iyy_", ",", "Izz_", ",", "Iyz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "\[Xi]", ",", "r0", ",", "h0", ",", "ix", ",", "iz", ",", "N2", ",", "N4", ",", "uXf", ",", "uYf", ",", "uZf", ",", "\[Theta]Xf", ",", "\[Theta]Yf", ",", "\[Theta]Zf", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "AE", ",", "CE", ",", "BE", ",", "A\[Rho]", ",", "B\[Rho]", ",", "C\[Rho]", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"h", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N2", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"N4", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"uXf", "=", RowBox[{ RowBox[{"N2", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}]}], "+", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Plus", ",", "N2"}], "]"}], "*", RowBox[{"uX", "[", "nl", "]"}], "*", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uYf", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "3"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uZf", "=", RowBox[{"N4", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "2"}], "]"}], "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]Xf", "=", RowBox[{"N2", ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]Yf", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uZf"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]Zf", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uYf"}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "transform", " ", "to", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}], ".", RowBox[{"{", RowBox[{"uXf", ",", "uYf", ",", "uZf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}], ".", RowBox[{"{", RowBox[{"\[Theta]Xf", ",", "\[Theta]Yf", ",", "\[Theta]Zf"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "AA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GG", " ", "AA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GG", " ", "AA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"CE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Sy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Sz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "GG"}], " ", "Sy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GG", " ", "Sz"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GG", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Iyy"}], ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "EE"}], " ", "Iyz"}], ",", RowBox[{"EE", " ", "Izz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inertia", " ", "properties", " ", "simplified"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "AA", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "AA"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"C\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "Sy", ",", RowBox[{"-", "Sz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Sy"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"Sz", ",", "0", ",", "0"}], "}"}]}], "}"}], "*", "0"}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"\[Rho]\[Rho]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Iyy", "+", "Izz"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "Iyy", ",", RowBox[{"-", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "Iyz"}], ",", "Izz"}], "}"}]}], "}"}], "*", "0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "/", "h0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}], "/", "h0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{ RowBox[{"AE", ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"CE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CE", "]"}], ".", "\[Epsilon]\[Epsilon]"}], "+", RowBox[{"BE", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"A\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}], "+", RowBox[{"C\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}], ")"}]}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"C\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "+", RowBox[{"B\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "h0"}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.885090789492631*^9, 3.885090812490925*^9}, 3.885091507984504*^9, {3.914724640498598*^9, 3.914724650603617*^9}, { 3.9147247209801235`*^9, 3.914724958564175*^9}, {3.914724995896721*^9, 3.914725198437586*^9}, {3.9147252499282665`*^9, 3.914725281426649*^9}, { 3.9147253171609287`*^9, 3.914725322922428*^9}, {3.9147253760151997`*^9, 3.9147253908070393`*^9}, {3.9147254566735*^9, 3.914725572662995*^9}, { 3.9147256104533863`*^9, 3.9147256281113853`*^9}, {3.914725669926824*^9, 3.914725719449303*^9}, {3.914725820537159*^9, 3.914725913714146*^9}, { 3.914725977925307*^9, 3.914726021267344*^9}, {3.914726054694918*^9, 3.914726075712258*^9}, 3.9147263782039204`*^9, {3.9147264443854504`*^9, 3.914726579701086*^9}, {3.914726715681177*^9, 3.914726723300855*^9}, { 3.914726773729393*^9, 3.914726900007073*^9}, 3.914726988300595*^9, { 3.914807345007294*^9, 3.9148073850366173`*^9}, {3.9148075448184376`*^9, 3.9148075811797504`*^9}, {3.91480762034773*^9, 3.914807640414982*^9}, { 3.914807678470499*^9, 3.914807698328815*^9}, {3.914807741816815*^9, 3.914807743445574*^9}, {3.914807837968975*^9, 3.9148078756221848`*^9}, { 3.914807914164703*^9, 3.914807977403007*^9}, {3.914808131491337*^9, 3.91480819043754*^9}, {3.914808228431255*^9, 3.9148084125678368`*^9}, { 3.914808766351332*^9, 3.914808916141369*^9}, {3.91480914371257*^9, 3.914809171612707*^9}, {3.914809461847868*^9, 3.914809468543293*^9}, { 3.914809544916403*^9, 3.914809548892382*^9}, {3.914809611221203*^9, 3.914809634468386*^9}, {3.914809709172371*^9, 3.914809718117864*^9}, { 3.91480975481327*^9, 3.914809765765505*^9}, {3.914809925626764*^9, 3.914809936683931*^9}, {3.914810030168625*^9, 3.914810038286186*^9}, { 3.914810213281906*^9, 3.914810256616682*^9}, {3.914810495678963*^9, 3.9148104975093575`*^9}, {3.914810789522068*^9, 3.914810841175289*^9}, { 3.914810998259006*^9, 3.914810998701872*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"9189dc0d-5fa1-6641-b9f5-99e02b86a0ed"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "ey"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "ey_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "x", ",", "NN", ",", "r0", ",", "h0", ",", "ex", ",", "ez", ",", "s", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "fx", ",", "fy", ",", "fz", ",", "JJ", ",", "AE", ",", "BE", ",", "A\[Rho]", ",", "B\[Rho]", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"mapping", " ", "to", " ", "material", " ", "xyz"}], "-", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"ex", "\[Cross]", "ey"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"use", " ", "two", " ", "nodes"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h0"}]}], ",", RowBox[{"x", "/", "h0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"projection", " ", "onto", " ", "constant"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]0", "=", RowBox[{"\[Theta]0", " ", "/.", RowBox[{"x", "->", RowBox[{"h0", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]0", "=", RowBox[{"\[Psi]0", " ", "/.", RowBox[{"x", "->", RowBox[{"h0", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}]}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Psi]0"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"JJ", "=", RowBox[{"Iyy", "+", "Izz"}]}], ";", "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "EE"}], ",", RowBox[{"AA", " ", "GG"}], ",", RowBox[{"AA", " ", "GG"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"JJ", " ", "GG"}], ",", RowBox[{"Iyy", " ", "EE"}], ",", RowBox[{"Izz", " ", "EE"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A\[Rho]", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"AA", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"AA", " ", "\[Rho]\[Rho]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B\[Rho]", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"JJ", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"Iyy", " ", "\[Rho]\[Rho]"}], ",", RowBox[{"Izz", " ", "\[Rho]\[Rho]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], ".", "AE", ".", "\[Epsilon]"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]", "]"}], ".", "BE", ".", "\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"A\[Rho]", ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{"B\[Rho]", ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"QUAD", "[", RowBox[{"LIN3", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "h0"}], " ", "/.", " ", RowBox[{"x", "->", RowBox[{"h0", "*", "\[Xi]"}]}]}], ",", RowBox[{"{", "\[Xi]", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.887436622649624*^9, 3.887436638931*^9}, { 3.887436674331359*^9, 3.887436694327297*^9}, {3.887436729714511*^9, 3.887436823783098*^9}, {3.91465697885725*^9, 3.9146569847726173`*^9}, { 3.9146575676692047`*^9, 3.914657584108999*^9}, {3.914724357285387*^9, 3.914724381430527*^9}, 3.914807526078668*^9},ExpressionUUID->"ce70c29b-0e2a-474a-a89c-\ 57a0f2adb52c"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018818586525*^9}, { 3.763384404617708*^9, 3.7633844068273726`*^9}, {3.787894828329872*^9, 3.787894876950384*^9}, 3.788519172464745*^9},ExpressionUUID->"c2a7f0ad-a229-ac41-96f6-\ be886881c9a3"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "ux", ",", "uy", " ", ",", "uz", " ", ",", "\[Theta]x", " ", ",", "\[Theta]y", " ", ",", "\[Theta]z", " ", ",", "\[Delta]ux", " ", ",", "\[Delta]uy", ",", "\[Delta]uz", ",", "\[Delta]\[Theta]x", ",", "\[Delta]\[Theta]y", ",", "\[Delta]\[Theta]z"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r0", ".", "r0"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], ",", RowBox[{"\[Delta]uy", "[", "1", "]"}], ",", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]ux", "[", "2", "]"}], ",", RowBox[{"\[Delta]uy", "[", "2", "]"}], ",", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]y", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "}"}], "=", RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], ",", RowBox[{"\[Theta]y", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"60", " ", SuperscriptBox["h0", "3"]}]], RowBox[{"(", RowBox[{ RowBox[{"30", " ", "fx", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"144", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h0", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"mz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"my", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"6", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"fz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "+", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"mx", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"fz", " ", SuperscriptBox["h0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"fy", " ", SuperscriptBox["h0", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", RowBox[{"h0", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{"72", " ", "EE", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"12", " ", SuperscriptBox["h0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"GG", " ", RowBox[{"(", RowBox[{"Iyy", "+", "Izz"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "-", RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], "-", RowBox[{"\[Theta]x", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", "h0", " ", RowBox[{"(", RowBox[{ RowBox[{"36", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "-", RowBox[{"uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "-", RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"uz", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"uz", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{"h0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Theta]y", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "-", RowBox[{"4", " ", RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "-", RowBox[{"uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uz", "[", "1", "]"}], "-", RowBox[{"\[Delta]uz", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "+", RowBox[{"\[Theta]y", "[", "2", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]uy", "[", "1", "]"}], "-", RowBox[{"\[Delta]uy", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "+", RowBox[{"\[Theta]z", "[", "2", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.451278193080997*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413395`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900046`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.629787768181259*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019163`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934977`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.634954168183*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.685328798252404*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, { 3.685328968274125*^9, 3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, { 3.685329602422398*^9, 3.68532961243197*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, { 3.685330038474337*^9, 3.685330051652091*^9}, {3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, { 3.6853583292043543`*^9, 3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, { 3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, { 3.685368420160179*^9, 3.685368470430249*^9}, {3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, { 3.685369079161103*^9, 3.685369132301176*^9}, {3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, {3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, { 3.686052829875022*^9, 3.686052906242383*^9}, {3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, { 3.6860541846064873`*^9, 3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, { 3.686054874127904*^9, 3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, { 3.686055346540918*^9, 3.686055399874968*^9}, {3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, { 3.686292409650853*^9, 3.6862924109708548`*^9}, {3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, { 3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, { 3.686650765752994*^9, 3.6866507887630253`*^9}, {3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, { 3.686651007793332*^9, 3.686651159533544*^9}, {3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, { 3.686651410203893*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, { 3.686804631561979*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, { 3.686804824012248*^9, 3.686804840492271*^9}, {3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, { 3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, { 3.686821702197342*^9, 3.68682172828738*^9}, {3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, { 3.686822731888783*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, { 3.6868232450595016`*^9, 3.686823375399684*^9}, {3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, { 3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, { 3.686823980880533*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, { 3.686824544021321*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, { 3.686825518302685*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.687096208647841*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074614`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779596`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.693140291600356*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.723799012644614*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374007`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, {3.788530117667017*^9, 3.788530117980694*^9}, 3.78853036962096*^9, 3.788530509305438*^9, { 3.78853083351016*^9, 3.788530862892729*^9}, {3.788530925928982*^9, 3.788530967196046*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, { 3.788533559801361*^9, 3.788533657454881*^9}, {3.788533916375413*^9, 3.788533958924065*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, { 3.788571051580041*^9, 3.788571053084015*^9}, 3.788571485275395*^9, { 3.7885715554496145`*^9, 3.788571577200455*^9}, {3.788571696555899*^9, 3.788571738824129*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.78857185267969*^9, {3.788571904820142*^9, 3.788571938458513*^9}, { 3.788572019710774*^9, 3.788572020343374*^9}, {3.788572157948341*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.788572474799888*^9}, { 3.788572545180941*^9, 3.7885725476052*^9}, {3.788572796561078*^9, 3.788572797505796*^9}, 3.788572839094982*^9, {3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.788573171465976*^9}, { 3.788573391578893*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.78857366073237*^9, 3.788573662816255*^9}, { 3.788573695779252*^9, 3.788573697977635*^9}, {3.788573733478549*^9, 3.788573737281276*^9}, 3.788573918957203*^9, {3.788574216682594*^9, 3.788574217920394*^9}, {3.788832967910173*^9, 3.788833009852073*^9}, { 3.788833043135027*^9, 3.788833091407405*^9}, {3.788833233521905*^9, 3.788833262962839*^9}, 3.789021298963341*^9, {3.818906513404701*^9, 3.818906542445839*^9}, {3.852337533659197*^9, 3.852337585050491*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"8e78a438-02b6-2b43-b82c-cc671a5fb719"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"GENERICBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fx_", ",", "fy_", ",", "fz_", ",", "mx_", ",", "my_", ",", "mz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NL", ",", "NQ", ",", "r0", ",", "r\[Alpha]0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", ",", "iz0", ",", "s", ",", "x", ",", "jac", ",", "FF", ",", "FFINV", ",", "ns", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "EEEE", ",", "AE", ",", "CE", ",", "BE", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "up", ",", "F", ",", "M", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wstb", ",", "\[Delta]W", ",", "ux", ",", "upx", ",", "uy", ",", "uz", ",", "\[Theta]x", ",", "\[Theta]y", ",", "\[Theta]z"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{"\[Alpha]", "*", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]0", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Alpha]0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"r\[Alpha]0", ".", "r\[Alpha]0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"h", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix0", "=", RowBox[{"i\[Alpha]0", " ", "=", RowBox[{"r\[Alpha]0", "/", "h\[Alpha]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iz0", "=", RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"i\[Alpha]0", ".", "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ".", "ix0"}], "+", "s"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"jac", " ", "=", "h\[Alpha]0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"simple", " ", "metrics"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", "\[Alpha]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], ",", RowBox[{"h\[Alpha]0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "2"], " ", "\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], ",", RowBox[{"h\[Alpha]0", " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", " ", RowBox[{"\[Alpha]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"transform", " ", "to", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"ux", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"uy", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"uy", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"uz", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"uz", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]x", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]y", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]y", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]z", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", " ", RowBox[{ RowBox[{"\[Theta]z", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz0"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"upx", "[", "1", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"upx", "[", "2", "]"}], "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix0"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"ux", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"up", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"upx", "[", "1", "]"}], ",", RowBox[{"upx", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]x", "[", "1", "]"}], ",", RowBox[{"\[Theta]x", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"\[Theta]z", "[", "1", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"uz", "[", "1", "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]y", "[", "1", "]"}]}], ",", RowBox[{"uz", "[", "2", "]"}], ",", RowBox[{"-", RowBox[{"\[Theta]y", "[", "2", "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"elasticity", " ", "dyad", " ", "and", " ", "cross"}], "-", RowBox[{ "section", " ", "properties", " ", "are", " ", "known", " ", "in", " ", "the", " ", "material", " ", "system"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"AE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "AA"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"GG", " ", "AA"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"GG", " ", "AA"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"BE", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"GG", " ", "Iyy"}], "+", RowBox[{"GG", " ", "Izz"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"EE", " ", "Iyy"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"EE", " ", "Izz"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}], "/", "h\[Alpha]0"}], "+", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Cross]", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}], "/", "h\[Alpha]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "resultants"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"AE", ".", "\[Epsilon]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{"BE", ".", "\[Kappa]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expressions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], ".", "F"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]", "]"}], ".", "M"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"mx", ",", "my", ",", "mz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wstb", "=", RowBox[{ RowBox[{"-", "AA"}], " ", "EE", " ", RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "up"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[Delta]", "[", "v", "]"}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}]}], ")"}], "/", RowBox[{ RowBox[{"(", "h\[Alpha]0", ")"}], "^", "3"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wstb"}], ")"}], " ", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.4439447917425756`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.4512766132045984`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809984`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920343`*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413376`*^9, 3.5009901475333376`*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900023`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.6297802564412956`*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.6297818028224125`*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812563`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.6297878355265746`*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019144`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.6306751229631343`*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439596`*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934996`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829987`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.6352175507014117`*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.6853282636022186`*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524023`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.6853298076291356`*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.6866514102038937`*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886396`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478395`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074594`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.6874168016913056`*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.6889064680223236`*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.6889092012544384`*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779577`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.6925422549438276`*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.6930180975563188`*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003547`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446123`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040373993`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, { 3.763384318028655*^9, 3.763384321230183*^9}, {3.788530117667017*^9, 3.788530117980694*^9}, 3.78853036962096*^9, 3.788530509305438*^9, { 3.78853083351016*^9, 3.788530862892729*^9}, {3.788530925928982*^9, 3.7885309671960454`*^9}, {3.788533054135647*^9, 3.78853306391253*^9}, { 3.788533559801361*^9, 3.788533657454881*^9}, {3.788533916375413*^9, 3.788533958924065*^9}, {3.788535764582915*^9, 3.788535775009864*^9}, { 3.788571051580041*^9, 3.788571053084015*^9}, 3.7885714852753944`*^9, { 3.7885715554496126`*^9, 3.7885715772004523`*^9}, {3.788571696555899*^9, 3.7885717388241277`*^9}, {3.788571794677034*^9, 3.7885718099292316`*^9}, 3.7885718526796894`*^9, {3.788571904820142*^9, 3.788571938458513*^9}, { 3.788572019710774*^9, 3.788572020343374*^9}, {3.788572157948341*^9, 3.788572246745886*^9}, {3.788572406392971*^9, 3.788572474799888*^9}, { 3.788572545180941*^9, 3.7885725476052*^9}, {3.788572796561078*^9, 3.788572797505796*^9}, 3.788572839094982*^9, {3.788572904602244*^9, 3.788572917919137*^9}, {3.788573100895812*^9, 3.788573171465976*^9}, { 3.788573391578893*^9, 3.788573436414242*^9}, 3.788573551866688*^9, 3.788573615961852*^9, {3.7885736607323685`*^9, 3.788573662816255*^9}, { 3.788573695779252*^9, 3.788573697977635*^9}, {3.788573733478549*^9, 3.78857381117032*^9}, {3.7888332726118016`*^9, 3.788833305367669*^9}},ExpressionUUID->"5d56e5da-790c-0243-9dc8-\ e0cfbf920172"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (nonl xz) defs ", "Subsection", CellChangeTimes->{{3.753018799667997*^9, 3.753018803413909*^9}, { 3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 3.787894788194182*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 3.788519705260675*^9, {3.788530025907043*^9, 3.7885300287809124`*^9}, 3.788530678171698*^9, {3.8200271989371843`*^9, 3.82002720166254*^9}, { 3.820027434618169*^9, 3.820027440542856*^9}, {3.8216146694524984`*^9, 3.821614673065999*^9}, {3.852092974762933*^9, 3.8520929752366476`*^9}, { 3.852428052082929*^9, 3.852428054254494*^9}, {3.852428196459839*^9, 3.852428197298023*^9}},ExpressionUUID->"b490c57c-7c47-fd41-8748-\ 3ae415901676"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "rotations", " ", "are", " ", "replaced", " ", "by", " ", "first", " ", "derivatives", " ", "of", " ", "approximation"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "Iy"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]h", ",", "h0", ",", "ix", ",", "iz", ",", "NN", ",", "\[Xi]", ",", "u", ",", "w", ",", "\[Epsilon]", ",", "\[Kappa]", ",", "fx", ",", "fz", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]h", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]h", ".", "\[CapitalDelta]h"}], "]"}], ",", " ", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]h", "/", "h0"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"u", ",", "0", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"iz", ".", RowBox[{"{", RowBox[{"u", ",", "0", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "strain", " ", "measures", " ", "for", " ", "a", " ", "planar", " ", "problem"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u"}], "/", "h0"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u"}], "/", "h0"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}], "/", "h0"}], ")"}], "2"], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "w"}], "/", "h0"}], "*", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], "u"}], "/", RowBox[{"h0", "^", "2"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "u"}], "/", "h0"}]}], ")"}], RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], "w"}], "/", RowBox[{"h0", "^", "2"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]", "=", RowBox[{"\[Kappa]", "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Epsilon]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"\[Kappa]", "=", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], "w"}]}], "/", RowBox[{"h0", "^", "2"}]}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"fx", " ", "=", RowBox[{"ix", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fz", " ", "=", RowBox[{"iz", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "density"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Delta]", "[", "\[Kappa]", "]"}]}], "*", "EE", "*", "Iy", "*", "\[Kappa]"}], "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]", "]"}], "*", "EE", "*", "AA", "*", "\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], "*", "fx"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "*", "fz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", "\[Xi]"}], "]"}], "*", "h0"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.443944791742576*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.451276613204598*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809975`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.493898757592035*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413385`*^9, 3.500990147533338*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900037`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986993536188*^9, {3.557987124471619*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 3.557987216698981*^9, { 3.559961862158254*^9, 3.5599618642486577`*^9}, {3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 3.5601324458591146`*^9}, { 3.561978472080926*^9, 3.561978472392926*^9}, {3.629780256441296*^9, 3.629780295737763*^9}, {3.62978033369263*^9, 3.629780429741998*^9}, { 3.6297805790030603`*^9, 3.6297809429048996`*^9}, {3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 3.629781337663593*^9}, { 3.629781394697294*^9, 3.629781452916596*^9}, {3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 3.629781647633338*^9}, { 3.629781678833393*^9, 3.629781763120341*^9}, 3.629781802822414*^9, { 3.6297818432108817`*^9, 3.629781872570133*^9}, {3.629782355765382*^9, 3.629782427603508*^9}, {3.629782469224381*^9, 3.629782674863942*^9}, { 3.629782707218399*^9, 3.629782929534389*^9}, {3.629783005631323*^9, 3.629783057470215*^9}, {3.6297831098551064`*^9, 3.629783142786764*^9}, { 3.629783433711675*^9, 3.629783442619291*^9}, {3.629783494239781*^9, 3.629783517593023*^9}, 3.629783579493932*^9, {3.6297836160291953`*^9, 3.629783766897062*^9}, {3.6297842042438283`*^9, 3.629784269748344*^9}, { 3.629784351445688*^9, 3.629784370742921*^9}, {3.629784443829049*^9, 3.6297844678842916`*^9}, {3.629784525261194*^9, 3.629784525588793*^9}, { 3.6297846136821475`*^9, 3.629784629235375*^9}, {3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 3.6297852602096834`*^9}, { 3.629785878017569*^9, 3.629785917282837*^9}, {3.629786048057867*^9, 3.629786048681868*^9}, 3.629786327875559*^9, {3.6297867047133856`*^9, 3.629786748533863*^9}, {3.629786779156718*^9, 3.62978684915404*^9}, { 3.6297875320748396`*^9, 3.629787569795706*^9}, {3.6297876247234025`*^9, 3.6297877281983852`*^9}, {3.6297877681812577`*^9, 3.629787774015665*^9}, { 3.629787831408166*^9, 3.629787835526575*^9}, {3.629787877568647*^9, 3.629787886117462*^9}, {3.629787918534319*^9, 3.629787919064719*^9}, { 3.629788004303269*^9, 3.62978800470887*^9}, 3.629788048825748*^9, { 3.6297882100052304`*^9, 3.629788217477644*^9}, {3.6297882697533355`*^9, 3.629788294838179*^9}, {3.629788346755071*^9, 3.6297883991087623`*^9}, { 3.6297887361785545`*^9, 3.629788783961438*^9}, 3.629788825395111*^9, { 3.629789006152629*^9, 3.629789032126675*^9}, {3.6297891133248167`*^9, 3.629789145336073*^9}, {3.629789192682157*^9, 3.629789194257759*^9}, { 3.629789255316266*^9, 3.629789255628268*^9}, {3.629869102295367*^9, 3.629869160124668*^9}, {3.629869194288728*^9, 3.629869614990267*^9}, { 3.629869699386415*^9, 3.62986975897852*^9}, {3.6298698387726603`*^9, 3.629869912030389*^9}, {3.629870072227071*^9, 3.629870234560955*^9}, { 3.629870580429163*^9, 3.629870630458451*^9}, {3.630556081081209*^9, 3.630556104902451*^9}, {3.630556264350332*^9, 3.630556276393553*^9}, { 3.630556341508067*^9, 3.630556480956712*^9}, {3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 3.630556914528273*^9}, { 3.630565372597494*^9, 3.630565680712117*^9}, {3.630565758760581*^9, 3.630565773902447*^9}, {3.630565858170267*^9, 3.63056596644846*^9}, { 3.630566150261974*^9, 3.6305661523230915`*^9}, {3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019154`*^9, 3.630566790535595*^9}, { 3.6305668214773645`*^9, 3.630567044691132*^9}, {3.630567077249995*^9, 3.630567078371059*^9}, 3.630567272031135*^9, {3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 3.63056871950024*^9}, { 3.630568754213225*^9, 3.630568758623478*^9}, {3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 3.630570205199217*^9}, { 3.630570375139938*^9, 3.630570526177576*^9}, {3.630587657039589*^9, 3.630587688367381*^9}, {3.630588073302778*^9, 3.6305883365376396`*^9}, { 3.630588668911824*^9, 3.6305886717978287`*^9}, 3.630588977683165*^9, { 3.630589038944474*^9, 3.630589043718081*^9}, {3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {3.6305892509956455`*^9, 3.630589259482061*^9}, {3.630589318949365*^9, 3.6305893334729905`*^9}, { 3.630589630294712*^9, 3.6305896376267247`*^9}, {3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 3.630597340080757*^9}, { 3.630597391446695*^9, 3.630597400596218*^9}, {3.6305974350611897`*^9, 3.630597460530647*^9}, {3.630633997622449*^9, 3.630634003125764*^9}, { 3.630659322217756*^9, 3.63065932438616*^9}, {3.6306611578252788`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 3.630661257587454*^9}, { 3.630661300128728*^9, 3.630661302671533*^9}, {3.630661392075289*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 3.630670654957817*^9}, { 3.630674998192*^9, 3.630675005793434*^9}, {3.630675122963134*^9, 3.630675150017683*^9}, {3.630675203528743*^9, 3.6306752096180925`*^9}, { 3.630675315921172*^9, 3.6306753201514144`*^9}, {3.630675779328775*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 3.6306758147026625`*^9}, { 3.630676010757477*^9, 3.6306760154417443`*^9}, {3.6306789722320743`*^9, 3.63067898703092*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, { 3.630680025917725*^9, 3.630680040612952*^9}, {3.630680123932698*^9, 3.630680130016708*^9}, {3.630680769261832*^9, 3.630680780618653*^9}, { 3.630681157468514*^9, 3.630681157764915*^9}, {3.63068127442192*^9, 3.63068127471832*^9}, {3.6306817187419*^9, 3.630681791906029*^9}, { 3.630681879188182*^9, 3.630681911152638*^9}, {3.630682119179002*^9, 3.6306821283050194`*^9}, {3.630720543651497*^9, 3.630720553430057*^9}, { 3.630721035525631*^9, 3.630721092774905*^9}, {3.63072125104396*^9, 3.630721306477778*^9}, {3.630747743716971*^9, 3.63074782840952*^9}, { 3.630747861497178*^9, 3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {3.630748045624301*^9, 3.630748063876333*^9}, { 3.630748111596817*^9, 3.630748149832484*^9}, {3.6307489182430334`*^9, 3.63074894477868*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, { 3.630749104148559*^9, 3.63074913842182*^9}, {3.6307491914151134`*^9, 3.630749196890723*^9}, {3.6307492445800066`*^9, 3.630749343998981*^9}, { 3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 3.630749554724151*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, { 3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, { 3.6307512555243406`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, { 3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.630759166672107*^9, 3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, { 3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 3.630760764864518*^9}, {3.630761455000991*^9, 3.630761461674374*^9}, { 3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 3.630761695865768*^9}, {3.630761771278081*^9, 3.630761779221536*^9}, 3.63076294784248*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, { 3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.632205374699307*^9, { 3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396934986`*^9, 3.63220636484194*^9}, {3.632206441061299*^9, 3.632206449166763*^9}, { 3.632206580308264*^9, 3.632206637327525*^9}, {3.632206673643602*^9, 3.632206746773785*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, { 3.632207399774134*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, { 3.6322079043859973`*^9, 3.632207927944344*^9}, {3.632208091639706*^9, 3.632208166664998*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 3.634905408900491*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, { 3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 3.634905628121029*^9}, {3.634905701282214*^9, 3.6349057207913294`*^9}, { 3.634906137106141*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 3.63490643693329*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 3.634906706128688*^9, {3.634906924944203*^9, 3.6349069328326545`*^9}, { 3.634907015197366*^9, 3.634907024229882*^9}, {3.634907081792175*^9, 3.634907082211199*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, { 3.6349079580732946`*^9, 3.63490798682194*^9}, {3.634908200284148*^9, 3.634908315195721*^9}, {3.634908377458282*^9, 3.6349084027997313`*^9}, { 3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, { 3.634953978577153*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 3.6349541681829996`*^9}, {3.634954211263461*^9, 3.6349542495746536`*^9}, { 3.634954325125974*^9, 3.634954355882733*^9}, {3.634954389253641*^9, 3.634954474283504*^9}, {3.634954547519694*^9, 3.634954564024638*^9}, { 3.634954705165711*^9, 3.634954710793033*^9}, {3.634954745355009*^9, 3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, { 3.634954904907135*^9, 3.634954945108435*^9}, {3.634955219605135*^9, 3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, { 3.634955386393675*^9, 3.634955503927398*^9}, {3.634955766964443*^9, 3.634955767200456*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, { 3.634955951373989*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 3.634956128996149*^9}, {3.634956170072499*^9, 3.634956197890089*^9}, { 3.63495624807196*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 3.634956346057565*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 3.634956469663634*^9, {3.635152411647779*^9, 3.6351524153379908`*^9}, { 3.6352134400282927`*^9, 3.635213442148414*^9}, {3.635213474586269*^9, 3.635213495869487*^9}, {3.635213538340916*^9, 3.635213715716061*^9}, { 3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, { 3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, { 3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 3.6352169832479534`*^9, 3.635217037668066*^9, {3.635217202492494*^9, 3.635217205452663*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 3.635217386377012*^9, {3.635217519639633*^9, 3.635217550701412*^9}, 3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, { 3.6352185912849283`*^9, 3.635218598444338*^9}, {3.63521869957212*^9, 3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, { 3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 3.6352195994635925`*^9, {3.635219733648267*^9, 3.635219737452485*^9}, { 3.6352197706093817`*^9, 3.63521977232148*^9}, {3.635219941784172*^9, 3.635219948511557*^9}, {3.6352200714185867`*^9, 3.635220085432389*^9}, { 3.635220208569432*^9, 3.635220235849992*^9}, {3.635220281633611*^9, 3.6352203110962954`*^9}, {3.635220498044988*^9, 3.635220527652683*^9}, { 3.635225319144738*^9, 3.6352253299913597`*^9}, {3.6352253611111403`*^9, 3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, { 3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, { 3.635227674576463*^9, 3.635227730116639*^9}, {3.635228797991719*^9, 3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, { 3.635229365252164*^9, 3.635229390227593*^9}, {3.63522947690555*^9, 3.635229480783771*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 3.635656905452061*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, { 3.636377841493253*^9, 3.6363778525308847`*^9}, {3.636384436335312*^9, 3.636384640995018*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, { 3.6363850170465264`*^9, 3.636385030729309*^9}, {3.636385128677912*^9, 3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, { 3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 3.656076619019133*^9}, 3.656077254548649*^9, {3.66307197490297*^9, 3.663071987802709*^9}, {3.663072070255424*^9, 3.6630720807290225`*^9}, { 3.663072115574015*^9, 3.663072171371207*^9}, {3.663072270834896*^9, 3.663072288221891*^9}, 3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {3.685252204033695*^9, 3.685252234053737*^9}, { 3.6852522757137957`*^9, 3.685252311513844*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.685254068247041*^9, 3.685254166065636*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {3.685328095311981*^9, 3.685328263602219*^9}, { 3.685328356242346*^9, 3.685328598671985*^9}, {3.685328668206963*^9, 3.6853287982524033`*^9}, {3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 3.685328978713722*^9}, { 3.685329033941881*^9, 3.685329044950511*^9}, {3.685329173522865*^9, 3.685329442084226*^9}, {3.685329602422398*^9, 3.68532961243197*^9}, { 3.6853297221712456`*^9, 3.685329733349885*^9}, {3.685329807629136*^9, 3.685329873959928*^9}, {3.685330038474337*^9, 3.685330051652091*^9}, { 3.685331130942823*^9, 3.685331168378964*^9}, {3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 3.685358334834362*^9}, { 3.685358366084406*^9, 3.685358366954407*^9}, {3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 3.6853586578748145`*^9, { 3.6853588750151186`*^9, 3.685358885715134*^9}, {3.685358930205195*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 3.685359029665335*^9}, 3.685359148315501*^9, 3.685359828176453*^9, {3.685368310900027*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 3.685368470430249*^9}, { 3.685368519450319*^9, 3.685368742860631*^9}, {3.685369008901004*^9, 3.68536902061102*^9}, {3.685369079161103*^9, 3.685369132301176*^9}, { 3.685369321991442*^9, 3.6853693304114532`*^9}, 3.685369608911844*^9, { 3.685875891142916*^9, 3.685875951793*^9}, {3.68594840990822*^9, 3.685948497003202*^9}, {3.686052829875022*^9, 3.686052906242383*^9}, { 3.686053532682214*^9, 3.686053598029951*^9}, {3.68605365168902*^9, 3.686054144609199*^9}, {3.6860541846064873`*^9, 3.68605440393201*^9}, { 3.686054713802734*^9, 3.6860547858298535`*^9}, {3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 3.686054892139934*^9}, { 3.686055136014883*^9, 3.6860551460584574`*^9}, {3.686055211281188*^9, 3.686055230196263*^9}, {3.686055346540918*^9, 3.686055399874968*^9}, { 3.686055601718866*^9, 3.68605560501887*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {3.686292409650853*^9, 3.6862924109708548`*^9}, { 3.686292453610915*^9, 3.6862924596309233`*^9}, {3.686292542221039*^9, 3.68629254301104*^9}, {3.686292988803664*^9, 3.686293001033681*^9}, { 3.6866504529025555`*^9, 3.686650526682659*^9}, {3.686650671852862*^9, 3.686650724292936*^9}, {3.686650765752994*^9, 3.6866507887630253`*^9}, { 3.68665082082307*^9, 3.686650910053195*^9}, {3.686650959393264*^9, 3.686650971113281*^9}, {3.686651007793332*^9, 3.686651159533544*^9}, { 3.686651223513634*^9, 3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {3.686651410203893*^9, 3.686651429943923*^9}, { 3.686652993837468*^9, 3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {3.686804631561979*^9, 3.686804631801979*^9}, { 3.686804685872054*^9, 3.686804707092084*^9}, {3.686804738202128*^9, 3.686804767812169*^9}, {3.686804824012248*^9, 3.686804840492271*^9}, { 3.686804942142413*^9, 3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {3.6868051463526993`*^9, 3.6868052234228067`*^9}, { 3.686805307602925*^9, 3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {3.686821702197342*^9, 3.68682172828738*^9}, { 3.686822519288485*^9, 3.686822538368512*^9}, {3.6868226306886387`*^9, 3.6868226683086944`*^9}, {3.686822731888783*^9, 3.6868227627088265`*^9}, { 3.686822801638881*^9, 3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {3.6868232450595016`*^9, 3.686823375399684*^9}, { 3.68682341538974*^9, 3.686823451379791*^9}, {3.686823673610101*^9, 3.6868236786601086`*^9}, {3.6868237164601617`*^9, 3.68682375072021*^9}, { 3.68682389396041*^9, 3.68682390087042*^9}, {3.686823940790476*^9, 3.686823941690478*^9}, {3.686823980880533*^9, 3.6868239872905407`*^9}, { 3.686824051540631*^9, 3.686824051900632*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {3.686824544021321*^9, 3.686824577221367*^9}, { 3.686824685841519*^9, 3.686824697911536*^9}, 3.686824801271681*^9, 3.686825358272461*^9, {3.686825518302685*^9, 3.686825518932685*^9}, { 3.6868264466639843`*^9, 3.6868264497139883`*^9}, {3.6868267792744493`*^9, 3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 3.686827162004986*^9, {3.686827241495098*^9, 3.686827327475217*^9}, { 3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 3.686829138957753*^9}, 3.686829241097897*^9, {3.686829276837948*^9, 3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, { 3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 3.686831307180789*^9}, {3.686833127663338*^9, 3.68683328653356*^9}, { 3.6868394697195063`*^9, 3.686839493389539*^9}, 3.686839530999592*^9, { 3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 3.68683979365996*^9}, {3.686839834460017*^9, 3.686839866200061*^9}, { 3.687092084401948*^9, 3.687092117031994*^9}, {3.687092259862194*^9, 3.6870922645422*^9}, {3.6870962086478405`*^9, 3.687096265877919*^9}, 3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, { 3.68709658098836*^9, 3.687096592708376*^9}, 3.687096837948719*^9, { 3.68709688890879*^9, 3.687096985798926*^9}, {3.687097101599088*^9, 3.687097217919251*^9}, {3.687097261899314*^9, 3.687097305639374*^9}, { 3.687097335679416*^9, 3.687097518649672*^9}, {3.687097579609758*^9, 3.68709759531978*^9}, {3.6870976531898603`*^9, 3.687097684889905*^9}, 3.687097778250038*^9, {3.687413757687042*^9, 3.687413783407079*^9}, { 3.6874140542074604`*^9, 3.687414094417514*^9}, {3.68741434788787*^9, 3.687414485538061*^9}, {3.687414611608238*^9, 3.68741464894829*^9}, { 3.687414745108426*^9, 3.687414766118454*^9}, 3.687414909448655*^9, { 3.6874150416688395`*^9, 3.68741506348887*^9}, {3.687415243709123*^9, 3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 3.687415645529685*^9, {3.687416801691306*^9, 3.687416803441306*^9}, { 3.687421022677213*^9, 3.68742126860756*^9}, {3.68742948209425*^9, 3.6874294906842623`*^9}, {3.687844340668378*^9, 3.687844369808419*^9}, { 3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 3.688906468022324*^9}, {3.688906514222396*^9, 3.688906519392526*^9}, { 3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, { 3.688908466073407*^9, 3.688908499373453*^9}, 3.688908533623502*^9, { 3.688908616683618*^9, 3.688908627133633*^9}, {3.688908688563719*^9, 3.688908706343744*^9}, {3.6889091647443852`*^9, 3.688909201254439*^9}, { 3.688909301904578*^9, 3.6889093406746316`*^9}, 3.6889101071957045`*^9, { 3.689905940063133*^9, 3.689905972983179*^9}, {3.692530981927737*^9, 3.6925310416778216`*^9}, {3.692531099797902*^9, 3.6925311384779587`*^9}, { 3.692531192258032*^9, 3.692531244668105*^9}, {3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 3.692531643928664*^9}, { 3.692535489534048*^9, 3.692535648514271*^9}, {3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 3.692535899604622*^9}, { 3.692536042584822*^9, 3.692536159384986*^9}, {3.69253661211562*^9, 3.6925366207256317`*^9}, {3.69253672650578*^9, 3.69253672683578*^9}, { 3.6925368590559654`*^9, 3.6925368636559715`*^9}, {3.692537088006286*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 3.6925373869767046`*^9}, { 3.6925390913352747`*^9, 3.692539092525277*^9}, {3.692539644430175*^9, 3.692539671150213*^9}, {3.692539727510291*^9, 3.692539730440295*^9}, { 3.69253993367058*^9, 3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {3.6925401743409166`*^9, 3.6925401747509174`*^9}, { 3.692540399111232*^9, 3.692540407981244*^9}, {3.69254047647134*^9, 3.692540488611357*^9}, {3.6925406039715185`*^9, 3.69254060531152*^9}, { 3.692541494872765*^9, 3.6925414953427663`*^9}, {3.69254154785284*^9, 3.692541613062931*^9}, 3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {3.692541924473367*^9, 3.692542041693531*^9}, { 3.692542148883681*^9, 3.692542254943827*^9}, {3.692542297693888*^9, 3.692542521444203*^9}, {3.692542622184344*^9, 3.692542635734362*^9}, 3.692542739374508*^9, 3.692599799510878*^9, {3.692599834884901*^9, 3.692599895466367*^9}, {3.692599925635092*^9, 3.692600009592894*^9}, { 3.692600108929576*^9, 3.692600145638675*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {3.692600503149027*^9, 3.692600600039162*^9}, { 3.692600680251275*^9, 3.6926006814012766`*^9}, {3.692600900021582*^9, 3.69260094108164*^9}, 3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 3.692604566012716*^9, 3.692604669022859*^9, { 3.69296647863291*^9, 3.6929664798829117`*^9}, {3.692966564333029*^9, 3.692966614183099*^9}, {3.692967039003694*^9, 3.6929670405536966`*^9}, { 3.69296708610376*^9, 3.6929670952937737`*^9}, {3.692967130253822*^9, 3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, { 3.6929672596240034`*^9, 3.692967335254109*^9}, 3.692967890923268*^9, { 3.693014698203429*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, { 3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, { 3.693016312357689*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, { 3.693016737038283*^9, 3.693016755068308*^9}, {3.693016842922562*^9, 3.693016871992602*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, { 3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 3.693018097556319*^9}, {3.693018187076443*^9, 3.693018199956461*^9}, { 3.693018295406595*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 3.693139904501683*^9}, {3.6931402916003556`*^9, 3.693140295770359*^9}, { 3.693140426020541*^9, 3.693140426530542*^9}, {3.693141049223787*^9, 3.6931410888738413`*^9}, {3.693141119443884*^9, 3.693141126553894*^9}, { 3.693141412004294*^9, 3.693141454164353*^9}, {3.693141597995555*^9, 3.6931417931758275`*^9}, {3.6932199559445915`*^9, 3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, { 3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 3.693625153729786*^9}, {3.694090799566972*^9, 3.694090968887209*^9}, { 3.694091367567768*^9, 3.694091422397844*^9}, {3.694091508037963*^9, 3.694091572118053*^9}, 3.694092009628666*^9, {3.694092055328729*^9, 3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, { 3.694092453739287*^9, 3.694092457789293*^9}, 3.694092642849552*^9, { 3.694092857359853*^9, 3.694092862379859*^9}, {3.694094588622278*^9, 3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 3.694095764473923*^9}, {3.6940960602743382`*^9, 3.694096073224355*^9}, { 3.694096121104421*^9, 3.694096124194426*^9}, {3.694665030960044*^9, 3.694665063450089*^9}, {3.6946652071402903`*^9, 3.6946653490404887`*^9}, { 3.694665870221218*^9, 3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {3.694665995981395*^9, 3.694666014941421*^9}, { 3.694666050571471*^9, 3.694666054721477*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.694666752622455*^9, 3.69466680700253*^9, 3.694687076625702*^9, { 3.6946874316161985`*^9, 3.6946874621962414`*^9}, 3.694687499496294*^9, { 3.694687567516389*^9, 3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {3.694687771496675*^9, 3.694687931746899*^9}, { 3.723798739728607*^9, 3.723798744014243*^9}, {3.7237990126446133`*^9, 3.723799023974499*^9}, {3.724411667187755*^9, 3.724411673339392*^9}, { 3.724411761793063*^9, 3.724411771875399*^9}, {3.724411928386671*^9, 3.724411968296615*^9}, {3.724412131847311*^9, 3.724412188341254*^9}, { 3.729414981357122*^9, 3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.749817760154557*^9, {3.749817859674735*^9, 3.749817861044999*^9}, { 3.749817956154713*^9, 3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 3.749818617867873*^9, {3.7505621848002787`*^9, 3.750562217408511*^9}, {3.75056238761455*^9, 3.750562431347901*^9}, { 3.750562633282945*^9, 3.750562733156534*^9}, {3.7505627632642183`*^9, 3.750562763585912*^9}, {3.7515359581577415`*^9, 3.7515359614850826`*^9}, { 3.751536071974715*^9, 3.751536096172149*^9}, 3.7515362040374002`*^9, { 3.751536256080162*^9, 3.751536509910854*^9}, {3.751549231137398*^9, 3.751549333425834*^9}, {3.7515496891619577`*^9, 3.751549689458767*^9}, 3.753020403650548*^9, {3.753020511418939*^9, 3.753020525224822*^9}, { 3.753021995594639*^9, 3.753022011512741*^9}, {3.760634689749445*^9, 3.7606348247488756`*^9}, {3.760634911978335*^9, 3.7606349350197754`*^9}, { 3.76063496856853*^9, 3.760634992250469*^9}, {3.760667269592998*^9, 3.760667271545692*^9}, 3.760667928391213*^9, 3.760668039709257*^9, { 3.763302716900259*^9, 3.763302749083943*^9}, {3.763304867499642*^9, 3.7633048681948214`*^9}, {3.763337978730939*^9, 3.763338014197137*^9}, { 3.763338054806819*^9, 3.763338128911816*^9}, {3.763338224472745*^9, 3.763338244725418*^9}, 3.763338501519575*^9, {3.763338734273308*^9, 3.763338775483101*^9}, {3.7633388525735636`*^9, 3.763339013155421*^9}, { 3.763360596353942*^9, 3.763360632892218*^9}, {3.763360663877365*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 3.763360863571327*^9}, { 3.763361217769263*^9, 3.763361243271195*^9}, {3.763361578316657*^9, 3.763361582034508*^9}, {3.763362291476118*^9, 3.763362301380039*^9}, { 3.763362505004878*^9, 3.763362606421646*^9}, {3.763362742167684*^9, 3.7633627524126697`*^9}, {3.763362809024348*^9, 3.763362931819517*^9}, 3.76336306803131*^9, {3.76336360941794*^9, 3.76336367823697*^9}, { 3.763363813698273*^9, 3.763363822992702*^9}, {3.763383771426914*^9, 3.763383775708086*^9}, {3.763383986144234*^9, 3.763383996635055*^9}, { 3.7633846907375555`*^9, 3.76338471098131*^9}, 3.763426089635152*^9, { 3.763426214352034*^9, 3.763426247547048*^9}, {3.763427645852452*^9, 3.763427670511785*^9}, {3.76342927218601*^9, 3.763429284043959*^9}, { 3.76352820463631*^9, 3.763528214793988*^9}, {3.763528430960533*^9, 3.76352844132505*^9}, {3.763528511434425*^9, 3.763528537124817*^9}, { 3.763528653934307*^9, 3.7635286747218256`*^9}, {3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 3.7639579464687676`*^9}, { 3.763957980699315*^9, 3.763958092807422*^9}, {3.763959813173403*^9, 3.7639598134702053`*^9}, {3.763960801534516*^9, 3.7639608287155957`*^9}, { 3.764560338587273*^9, 3.764560365934222*^9}, {3.76456061596602*^9, 3.76456062636983*^9}, {3.764725798823108*^9, 3.764725802589659*^9}, { 3.765077713031946*^9, 3.765077791337854*^9}, {3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 3.774070098487667*^9}, { 3.7740701415628414`*^9, 3.7740702370647106`*^9}, {3.77407029325229*^9, 3.774070334854359*^9}, {3.774070397587008*^9, 3.774070454974152*^9}, { 3.774070992961035*^9, 3.774071006717294*^9}, {3.775190474681038*^9, 3.775190488415137*^9}, {3.775190590132592*^9, 3.775190642609686*^9}, 3.775190717712206*^9, {3.775195672839439*^9, 3.775195701060163*^9}, 3.775195741810079*^9, {3.775195874145057*^9, 3.775195882844048*^9}, { 3.7751959530858574`*^9, 3.775196055684782*^9}, {3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 3.7838342075157423`*^9}, { 3.783834245395508*^9, 3.783834256443788*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {3.783834319888338*^9, 3.783834404011998*^9}, { 3.783835274452033*^9, 3.783835643262226*^9}, 3.783835673435833*^9, { 3.783837186915415*^9, 3.783837252940491*^9}, 3.783838076793089*^9, { 3.783838702669109*^9, 3.783838710679405*^9}, {3.783838775133038*^9, 3.78383877586726*^9}, 3.788518461271027*^9, {3.7885197610116005`*^9, 3.788519761667694*^9}, {3.788519815581788*^9, 3.788519877459923*^9}, { 3.788519910619506*^9, 3.78851992143148*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {3.788529949778452*^9, 3.788529951112354*^9}, 3.7885729856546545`*^9, {3.795769635061987*^9, 3.795769673847355*^9}, { 3.795769852845413*^9, 3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {3.811656565836308*^9, 3.811656579625844*^9}, { 3.811656679273317*^9, 3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {3.819779237456471*^9, 3.819779375493654*^9}, { 3.819779556474127*^9, 3.8197797185600586`*^9}, 3.8200272939729*^9, 3.82002738750056*^9, 3.820027421880412*^9, {3.8200275035350485`*^9, 3.820027504935427*^9}, {3.8216146854806337`*^9, 3.8216146951363287`*^9}, { 3.821614752196926*^9, 3.821614829597368*^9}, {3.852428110418418*^9, 3.8524282580965376`*^9}, {3.852428292656695*^9, 3.8524283525785737`*^9}, { 3.8524418028142138`*^9, 3.852441835111664*^9}, {3.852615516284122*^9, 3.852615518838768*^9}, {3.852618384835059*^9, 3.852618385478886*^9}, { 3.852618565338403*^9, 3.8526185655779724`*^9}, {3.852952260237672*^9, 3.8529522878415303`*^9}, {3.8529525793242226`*^9, 3.852952585649026*^9}, { 3.852959535316224*^9, 3.85295958981769*^9}, {3.852966559913101*^9, 3.852966564916722*^9}, {3.852966693544965*^9, 3.852966727285118*^9}, { 3.8529678456095867`*^9, 3.8529678780810432`*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"0986433e-1977-2546-9995-6d697b547e4d"] }, Closed]], Cell[CellGroupData[{ Cell["BEAM ELEMENT (disp ++) defs ", "Subsection", CellChangeTimes->{{3.557986780159014*^9, 3.557986782249417*^9}, { 3.753018827946174*^9, 3.75301883733206*^9}, {3.787894862774126*^9, 3.787894875357033*^9}, {3.82161456970318*^9, 3.821614594102014*^9}},ExpressionUUID->"ddabc21f-8b61-e44a-9882-\ c89fab533474"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"CURVEDBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "II_"}], "}"}], ",", RowBox[{"{", RowBox[{"fs_", ",", "fn_", ",", "fb_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r", ",", "dr", ",", "h", ",", "es", ",", "en", ",", "eb", ",", "\[Delta]W", ",", "rule", ",", "KK", ",", "FF", ",", "R"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Zeta]"}]}], ")"}]}], ",", RowBox[{"4", RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], "*", "\[Zeta]"}], ",", RowBox[{"\[Zeta]", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Zeta]"}], "-", "1"}], ")"}]}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "1"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr", "=", RowBox[{"D", "[", RowBox[{"r", ",", "\[Zeta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"hh", "=", RowBox[{"Sqrt", "[", RowBox[{"dr", ".", "dr"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Abs", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "0"}]}], ")"}], "+", RowBox[{"4", RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], ")"}]}], "+", RowBox[{"(", RowBox[{"hh", " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "1."}]}], ")"}]}], ")"}], "/", "6"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"es", " ", "=", RowBox[{"dr", "/", "hh"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", " ", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"es", ",", "\[Zeta]"}], "]"}], "/", "hh"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]b", "=", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"en", "/", "\[Kappa]b"}]}], ";", "\[IndentingNewLine]", RowBox[{"eb", " ", "=", " ", RowBox[{"es", "\[Cross]", "en"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"basis", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2."}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"basis1", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"basis2", "=", RowBox[{ RowBox[{"{", RowBox[{"es", ",", "en", ",", "eb"}], "}"}], " ", "/.", RowBox[{"\[Zeta]", "\[Rule]", "1"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"R", "=", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "\[Kappa]b"}], ")"}], "/.", " ", RowBox[{"\[Zeta]", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"us", "[", "1", "]"}], ",", RowBox[{"un", "[", "1", "]"}], ",", RowBox[{"ub", "[", "1", "]"}]}], "}"}], "=", RowBox[{"basis1", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"us", "[", "2", "]"}], ",", RowBox[{"un", "[", "2", "]"}], ",", RowBox[{"ub", "[", "2", "]"}]}], "}"}], "=", RowBox[{"basis2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[CapitalTheta]s", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "1", "]"}]}], "}"}], "=", RowBox[{"basis1", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[CapitalTheta]s", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "2", "]"}]}], "}"}], "=", RowBox[{"basis2", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I3", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{"{", RowBox[{ RowBox[{"us", "[", "1", "]"}], ",", RowBox[{"un", "[", "1", "]"}], ",", RowBox[{"ub", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]s", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "1", "]"}], ",", RowBox[{"us", "[", "2", "]"}], ",", RowBox[{"un", "[", "2", "]"}], ",", RowBox[{"ub", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]s", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]n", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]b", "[", "2", "]"}]}], "}"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]aa", "=", RowBox[{"aa", " ", "/.", "\[Delta]rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ELEMENT", " ", "CONTRIBUTION"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"KK", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "32", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"16", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"6", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"9", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"16", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["EE", "2"]}], "-", RowBox[{"4", " ", "EE", " ", "GG"}], "-", RowBox[{"4", " ", SuperscriptBox["GG", "2"]}]}], ")"}], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["EE", "2"], " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ "8", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], "2"], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", "II"}], "-", RowBox[{"4", " ", "GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"8", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"16", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}], "-", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["II", "2"], "-", RowBox[{"2", " ", "AA", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["R", "4"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"15", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["R", "4"]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["h", "2"]}], "+", SuperscriptBox["R", "2"]}], ")"}]}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "R"}], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ "32", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"3", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"9", " ", "AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{"h", "+", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"\[ImaginaryI]", " ", "R"}]}], ")"}], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", "h"}], "R"], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "h", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[ImaginaryI]", " ", "AA", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"4", " ", "h"}], "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "h"}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"EE", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "GG", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["h", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["EE", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"AA", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], "2"], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "EE", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", "II"}], "-", RowBox[{"4", " ", "GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "AA", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{"h", "-", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"16", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"6", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"9", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"16", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["EE", "2"]}], "-", RowBox[{"4", " ", "EE", " ", "GG"}], "-", RowBox[{"4", " ", SuperscriptBox["GG", "2"]}]}], ")"}], " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{ "16", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["EE", "2"], " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ "8", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "II", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"4", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"AA", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "EE"}], "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"8", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EE", "+", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h"}], "-", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"4", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "EE", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"EE", "-", RowBox[{"2", " ", "GG"}]}], ")"}], " ", "h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "II"}], "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"7", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["h", "2"]}], "-", SuperscriptBox["R", "2"]}], ")"}]}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}], "+", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", "h"}], RowBox[{"2", " ", "R"}]], "]"}]}], "-", RowBox[{"2", " ", "h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"15", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "AA", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{ SuperscriptBox["h", "2"], " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "4", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"12", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"EE", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"GG", " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"5", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"8", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"2", " ", "EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"2", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"EE", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"GG", " ", "h", " ", "II", " ", "R", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "+", RowBox[{"AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["h", RowBox[{"2", " ", "R"}]], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "GG", " ", "h", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "-", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II", " ", "R"}], "+", RowBox[{"GG", " ", "II", " ", "R"}], "+", RowBox[{"3", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "3"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "3"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"10", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"8", " ", "AA", " ", "GG", " ", "h", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", SuperscriptBox["R", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"4", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "7"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"EE", " ", "II", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"4", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["II", "2"]}], "+", RowBox[{"8", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"2", " ", "EE", " ", "GG", " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{ SuperscriptBox["GG", "2"], " ", SuperscriptBox["II", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "II", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "II", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"16", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", SuperscriptBox["R", "6"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}], "-", RowBox[{"2", " ", "EE", " ", "GG", " ", "II", " ", RowBox[{"(", RowBox[{"II", "-", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["GG", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["II", "2"], "-", RowBox[{"2", " ", "AA", " ", "II", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["R", "4"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{ "8", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{ "2", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", "AA", " ", SuperscriptBox["GG", "2"], " ", "h", " ", "II", " ", SuperscriptBox["R", "3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["AA", "2"], " ", SuperscriptBox["GG", "2"], " ", "h", " ", SuperscriptBox["R", "5"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "h"}], "R"], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"4", " ", "AA", " ", "GG", " ", SuperscriptBox["R", "4"], " ", RowBox[{"Cos", "[", FractionBox["h", "R"], "]"}]}], "+", RowBox[{"h", " ", "R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", "II"}], "+", RowBox[{"AA", " ", "GG", " ", SuperscriptBox["R", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"h", " ", RowBox[{"(", RowBox[{ RowBox[{"EE", " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"R", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "EE"}], " ", "II"}], "+", RowBox[{"GG", " ", RowBox[{"(", RowBox[{"II", "+", RowBox[{"AA", " ", SuperscriptBox["R", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["h", "R"], "]"}]}]}], ")"}]}], ")"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"fs", " ", "h"}], "2"], "-", FractionBox[ RowBox[{"fn", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "GG", " ", "R"}]]}], ",", RowBox[{ FractionBox[ RowBox[{"fn", " ", "h"}], "2"], "+", FractionBox[ RowBox[{"fs", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "EE", " ", "R"}]]}], ",", FractionBox[ RowBox[{"fb", " ", "h"}], "2"], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", SuperscriptBox["h", "2"]}], "12"]}], ",", FractionBox[ RowBox[{"fn", " ", SuperscriptBox["h", "2"]}], "12"], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"fs", " ", "h"}], "2"]}], "-", FractionBox[ RowBox[{"fn", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "GG", " ", "R"}]]}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"fn", " ", "h"}], "2"]}], "+", FractionBox[ RowBox[{"fs", " ", RowBox[{"(", RowBox[{"EE", "+", "GG"}], ")"}], " ", SuperscriptBox["h", "2"]}], RowBox[{"12", " ", "EE", " ", "R"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", "h"}], "2"]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"fb", " ", SuperscriptBox["h", "2"]}], "12"]}], ",", FractionBox[ RowBox[{"fn", " ", SuperscriptBox["h", "2"]}], "12"]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"-", RowBox[{"\[Delta]aa", ".", RowBox[{"(", RowBox[{ RowBox[{"KK", ".", "aa"}], "-", "FF"}], ")"}]}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"CURVEDBEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "II_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "\[Delta]W", ",", "rule", ",", "KK", ",", "FF"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "needs", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rule", " ", "=", RowBox[{"RULE", "[", RowBox[{ RowBox[{"{", "iy", "}"}], ",", RowBox[{"{", RowBox[{"I1", ",", "I2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "2", "]"}], "-", RowBox[{"x", "[", "1", "]"}]}], ")"}], " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", RowBox[{"uy", "[", "1", "]"}], ",", RowBox[{"uz", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]x", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]y", "[", "1", "]"}], ",", RowBox[{"\[CapitalTheta]z", "[", "1", "]"}], ",", RowBox[{"ux", "[", "2", "]"}], ",", RowBox[{"uy", "[", "2", "]"}], ",", RowBox[{"uz", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]x", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]y", "[", "2", "]"}], ",", RowBox[{"\[CapitalTheta]z", "[", "2", "]"}]}], "}"}], " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]aa", "=", RowBox[{"aa", " ", "/.", "\[Delta]rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ELEMENT", " ", "CONTRIBUTION"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"KK", "=", RowBox[{"-", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "48"}], " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"AA", " ", "EE"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"AA", " ", "EE"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ "6", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", "GG", " ", "II"}], "h"], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"24", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "-", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "24"}], " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ "12", " ", "AA", " ", "EE", " ", "GG", " ", "h", " ", "II"}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", "0", ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"48", " ", "AA", " ", "EE", " ", "GG", " ", SuperscriptBox["h", "2"], " ", "II"}], "+", RowBox[{"144", " ", SuperscriptBox["EE", "2"], " ", SuperscriptBox["II", "2"]}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", " ", RowBox[{"Re", "[", "KK", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"fx", " ", "h"}], "2"], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fz", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fz", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{"fx", " ", "h"}], "2"]}], ",", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "4"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]]}], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", "fz", " ", "GG", " ", SuperscriptBox["h", "4"]}], "-", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "2"], " ", "II"}]}], RowBox[{ RowBox[{"2", " ", "AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"24", " ", "EE", " ", "h", " ", "II"}]}]], ",", "0", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "AA"}], " ", "fz", " ", "GG", " ", SuperscriptBox["h", "5"]}], "-", RowBox[{"12", " ", "EE", " ", "fz", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]], ",", FractionBox[ RowBox[{ RowBox[{"AA", " ", "fy", " ", "GG", " ", SuperscriptBox["h", "5"]}], "+", RowBox[{"12", " ", "EE", " ", "fy", " ", SuperscriptBox["h", "3"], " ", "II"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{"AA", " ", "GG", " ", SuperscriptBox["h", "3"]}], "+", RowBox[{"12", " ", "EE", " ", "h", " ", "II"}]}], ")"}]}]]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"-", RowBox[{"\[Delta]aa", ".", RowBox[{"(", RowBox[{ RowBox[{"KK", ".", "aa"}], "-", "FF"}], ")"}]}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, { 3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 3.4430691708072*^9}, {3.4430692071718*^9, 3.443069246359*^9}, { 3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 3.4430774104676*^9}, {3.4430775053780007`*^9, 3.4430776180598*^9}, { 3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, { 3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, { 3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 3.443935721789575*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, { 3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 3.443942314212374*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, { 3.443944783006574*^9, 3.4439447917425756`*^9}, {3.443944908541774*^9, 3.443944916060974*^9}, {3.4442731097938*^9, 3.4442731115254*^9}, { 3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, { 3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, { 3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, { 3.4443814073172*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 3.4443815147856*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, { 3.4443816138144*^9, 3.444381633174*^9}, {3.444381685044*^9, 3.4443817801728*^9}, 3.4443853618688*^9, {3.444385560737601*^9, 3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, { 3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, { 3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 3.4444084583816*^9}, {3.4444084889108*^9, 3.444408508754*^9}, { 3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 3.4444091647167997`*^9}, {3.4444092206428003`*^9, 3.4444092944464*^9}, { 3.4444093856284*^9, 3.4444094281071997`*^9}, {3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 3.4444103358712*^9}, { 3.4444103868208*^9, 3.4444104432460003`*^9}, {3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 3.4444921973668003`*^9}, { 3.4444922814351997`*^9, 3.4444922853508*^9}, {3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 3.4444923855808*^9}, { 3.4453153475226*^9, 3.445315360689*^9}, {3.446551816637366*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 3.446552159384965*^9}, { 3.446552232377365*^9, 3.4465522555589647`*^9}, {3.446553347388365*^9, 3.4465533616155653`*^9}, {3.446605852577*^9, 3.4466058529046*^9}, { 3.4466064371219997`*^9, 3.4466065097244*^9}, {3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 3.4466130037864*^9}, { 3.4466131532696*^9, 3.4466131761703997`*^9}, {3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 3.4466134932092*^9}, { 3.4466135740952*^9, 3.4466135794927998`*^9}, {3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342*^9, 3.4466139023826*^9}, { 3.4466139549858*^9, 3.4466139579654*^9}, {3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 3.4466143652033997`*^9}, { 3.4466144712834*^9, 3.4466145978929996`*^9}, {3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 3.4466152768986*^9}, { 3.4466153107506*^9, 3.4466153406558*^9}, {3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 3.446619488718*^9}, { 3.4466389495861998`*^9, 3.4466389768238*^9}, {3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 3.4466394004886*^9}, { 3.4466394475694*^9, 3.4466394487706003`*^9}, {3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515756*^9, {3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 3.446639748826*^9}, { 3.4466397974356003`*^9, 3.446639798668*^9}, 3.4466398447816*^9, { 3.446639894218*^9, 3.4466399201556*^9}, {3.446639957096401*^9, 3.4466399583288*^9}, {3.446639994006*^9, 3.4466400056904*^9}, { 3.4466400383568*^9, 3.4466400395892*^9}, {3.446640074564399*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 3.446640180607*^9}, { 3.4466402251294*^9, 3.446640227407*^9}, {3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 3.446727377781401*^9}, { 3.4467274366558*^9, 3.4467275620954*^9}, {3.446727593311*^9, 3.4467277412614*^9}, {3.446728333463999*^9, 3.4467283356012*^9}, { 3.4467283707636*^9, 3.4467283727604*^9}, {3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 3.4467786797424*^9}, { 3.4467801953803997`*^9, 3.4467802409792*^9}, {3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107526*^9, {3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 3.4467827381726*^9}, { 3.4467828623018*^9, 3.4467831045386*^9}, {3.447034411398401*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 3.4470345343108*^9}, { 3.447043591118539*^9, 3.447043642192939*^9}, {3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 3.447054834198939*^9}, { 3.447054910344939*^9, 3.447054911616939*^9}, {3.447054943902939*^9, 3.447055302710939*^9}, {3.447055334559939*^9, 3.447055353684939*^9}, { 3.447057311918539*^9, 3.447057369747739*^9}, {3.447057505857739*^9, 3.447057595136539*^9}, {3.4470581848789387`*^9, 3.4470582040825386`*^9}, { 3.451276121243*^9, 3.4512761425838*^9}, {3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 3.4512762827654*^9}, { 3.451276489091*^9, 3.451276541975*^9}, {3.4512765853118*^9, 3.4512766132045984`*^9}, {3.4512773470306*^9, 3.4512773766082*^9}, { 3.4512776069110003`*^9, 3.4512777499318*^9}, 3.4512777831286*^9, { 3.4512778785538*^9, 3.451277881627*^9}, {3.451278024273399*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {3.4512781866226*^9, 3.4512781930809984`*^9}, {3.4512863325078*^9, 3.4512863539266*^9}, { 3.4568019250434*^9, 3.4568022712698*^9}, {3.4568023177422*^9, 3.4568024125278*^9}, {3.456802469436599*^9, 3.456802475036999*^9}, { 3.4568026914402*^9, 3.4568028101094*^9}, {3.4568028406698*^9, 3.4568028564726*^9}, 3.456802888608599*^9, {3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596*^9, 3.4568040844852*^9}, { 3.4568043016684*^9, 3.4568043154744*^9}, {3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 3.4568049806116*^9}, { 3.4660560628582*^9, 3.4660560753538*^9}, {3.466067672938*^9, 3.466067673593199*^9}, {3.4660677244024*^9, 3.4660677277251997`*^9}, { 3.474264677128739*^9, 3.47426469439174*^9}, {3.47426489921974*^9, 3.474264980043739*^9}, {3.4801246373348*^9, 3.480124686053601*^9}, { 3.480124774817601*^9, 3.4801247821028*^9}, {3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 3.4801248964508*^9}, { 3.4801249330484*^9, 3.480124947884*^9}, 3.4801249886468*^9, { 3.4801251139147997`*^9, 3.48012512588*^9}, {3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920343`*^9, 3.493898758684033*^9}, { 3.494163062405*^9, 3.4941631381274*^9}, {3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 3.4941635051642*^9}, { 3.494163565115*^9, 3.4941636341762*^9}, {3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 3.494164145575401*^9}, { 3.4941641790374002`*^9, 3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 3.4941644677018003`*^9, {3.4941646208938*^9, 3.494164632235*^9}, {3.4941652592693996`*^9, 3.4941652807194*^9}, { 3.4941653119038*^9, 3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {3.495099097978*^9, 3.495099142701*^9}, { 3.495099172958*^9, 3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {3.495100428112*^9, 3.495100434958*^9}, { 3.495100649622*^9, 3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {3.4987236420666*^9, 3.4987236530646*^9}, { 3.4987237305341997`*^9, 3.4987237396914*^9}, {3.498733136159*^9, 3.498733297244601*^9}, {3.4987364783094*^9, 3.4987364860626*^9}, { 3.4987366201134*^9, 3.4987366236078*^9}, {3.4987367272386*^9, 3.498736746489001*^9}, {3.4987369428462*^9, 3.4987369670886*^9}, { 3.4987370134518003`*^9, 3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {3.498737192103*^9, 3.498737193663*^9}, { 3.4987372660938*^9, 3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {3.4987377520182*^9, 3.4987379139462*^9}, { 3.4987382030216*^9, 3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {3.4988785131146*^9, 3.4988785160162*^9}, { 3.5007170967096*^9, 3.5007170999076*^9}, 3.5007182237316*^9, { 3.5007182772864*^9, 3.5007182987832003`*^9}, {3.500957322674401*^9, 3.5009573940444*^9}, 3.5009574358710003`*^9, 3.5009604278482*^9, { 3.500989724617337*^9, 3.500989848028936*^9}, {3.5009901464413376`*^9, 3.5009901475333376`*^9}, {3.500990180199735*^9, 3.500990274096135*^9}, { 3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, { 3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, { 3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, { 3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 3.5010626790754*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 3.5010763029458*^9, {3.503221089931*^9, 3.5032212413900023`*^9}, { 3.557658203404973*^9, 3.557658219644601*^9}, {3.557658443380194*^9, 3.557658496030287*^9}, {3.557658550177983*^9, 3.5576586046064777`*^9}, { 3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, { 3.557659182221094*^9, 3.557659218771959*^9}, 3.557659413865901*^9, { 3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 3.557660724845404*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, { 3.5577526651911488`*^9, 3.557752693208798*^9}, {3.5577527272480583`*^9, 3.557752747122493*^9}, {3.557752837493451*^9, 3.557752838523053*^9}, { 3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, { 3.557753660954491*^9, 3.557753663793695*^9}, {3.5577537824631042`*^9, 3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, { 3.5577547716296415`*^9, 3.557754802112095*^9}, {3.557754950936358*^9, 3.557754977144403*^9}, 3.557755138230284*^9, {3.55775527184452*^9, 3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, { 3.557756158316077*^9, 3.557756231885806*^9}, {3.557757240848779*^9, 3.557757248835993*^9}, {3.5577572834368534`*^9, 3.55775758882299*^9}, { 3.557757812964184*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 3.557758079272251*^9}, 3.557810586960072*^9, {3.557824026200598*^9, 3.557824034536074*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, { 3.557831525255726*^9, 3.557831531979339*^9}, 3.557831571619008*^9, { 3.557831606079468*^9, 3.557831629432709*^9}, {3.557831666326774*^9, 3.557831756947335*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, { 3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 3.5578365974018345`*^9}, {3.557836642673115*^9, 3.557836658865943*^9}, { 3.557836691017599*^9, 3.557836792495778*^9}, {3.557836830544244*^9, 3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, { 3.557838353606119*^9, 3.557838373511754*^9}, {3.5578385892445335`*^9, 3.5578385978869486`*^9}, {3.557838671300678*^9, 3.557838700113928*^9}, { 3.5578387451200075`*^9, 3.557838746789211*^9}, {3.5578388951454706`*^9, 3.557838924863522*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, { 3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, { 3.55783924184048*^9, 3.557839294490572*^9}, {3.557839328592232*^9, 3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, { 3.557839537086599*^9, 3.557839544699412*^9}, {3.5578396068499207`*^9, 3.5578396118575296`*^9}, 3.55789435181051*^9, {3.557894388361374*^9, 3.557894402963*^9}, {3.557894460761101*^9, 3.5578944989499683`*^9}, { 3.5578945393696394`*^9, 3.557894561537278*^9}, {3.557894602861751*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 3.5578947812636642`*^9}, { 3.55789481884413*^9, 3.557894819124931*^9}, {3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.557896738680548*^9, 3.55789678549623*^9}, { 3.557896880469197*^9, 3.557896888643611*^9}, {3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 3.55789765120415*^9}, { 3.557921807227116*^9, 3.557921826305949*^9}, {3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 3.557922188616585*^9}, { 3.557922325881225*^9, 3.557922327066828*^9}, {3.55792245960466*^9, 3.557922461804264*^9}, 3.55798059284654*^9, {3.557981520058171*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {3.557986316479399*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 3.557986568841042*^9}, 3.557986612255919*^9, 3.557986797646644*^9, 3.55798683514911*^9, { 3.557987389828085*^9, 3.557987392261689*^9}, {3.557987513302302*^9, 3.557987514409904*^9}, {3.557997154019827*^9, 3.557997154347428*^9}, { 3.557999090999229*^9, 3.557999091576431*^9}, {3.7515496219127665`*^9, 3.7515496234124207`*^9}, {3.751549669463464*^9, 3.751549670619442*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"659ec420-cc6e-3d40-b2c0-98f02b051d99"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531574263208*^9, 3.817531589861446*^9}},ExpressionUUID->"fb5a2349-5a86-bf45-932a-\ ec651b098866"], Cell[CellGroupData[{ Cell["PLANE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.902293247089567*^9, 3.902293253961801*^9}},ExpressionUUID->"45a307c6-d609-bd47-bc56-\ 793112d2a460"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "AA", ",", "x", ",", "y", ",", "xl", ",", "yl", ",", "N3", ",", "NN", ",", "uX", ",", "uY", ",", "uZ", ",", "u", ",", "v", ",", "\[Epsilon]\[Epsilon]", ",", "EM", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "=", RowBox[{"N3", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey"}], "}"}], ".", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "and", " ", "stress", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"tt", "*", RowBox[{"EM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work", " ", "densities"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "NN"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"uX", ",", "uY", ",", "uZ"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760414`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203376`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694776`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.7831427526814938`*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933847661047`*^9}, {3.9093688768166304`*^9, 3.9093688838711033`*^9}, {3.9093721694329557`*^9, 3.909372190646823*^9}, { 3.909372489766584*^9, 3.909372512745613*^9}, {3.9093726380463285`*^9, 3.909372640921249*^9}, {3.9093727199130325`*^9, 3.909372720227641*^9}, { 3.909372779325381*^9, 3.909372779702578*^9}, {3.909372814307292*^9, 3.909372838437698*^9}, {3.909373137296845*^9, 3.9093731533934703`*^9}, { 3.909373331450612*^9, 3.909373332206536*^9}, 3.909373370357567*^9, { 3.9093734274450407`*^9, 3.909373444904494*^9}, {3.9093734820444093`*^9, 3.909373484221746*^9}, {3.90937360405326*^9, 3.909373655570702*^9}, { 3.909373686899842*^9, 3.909373711076169*^9}, {3.909373852654055*^9, 3.909373891412511*^9}, {3.909373996028303*^9, 3.90937401900063*^9}, { 3.912057521650089*^9, 3.912057547469932*^9}, {3.9129118609921474`*^9, 3.912911861793758*^9}, {3.914658088884495*^9, 3.91465809011425*^9}, { 3.914658128910772*^9, 3.9146581823864937`*^9}, {3.914658230291054*^9, 3.914658253189903*^9}, {3.914658325963629*^9, 3.9146583343411703`*^9}, { 3.9146584104273987`*^9, 3.914658540153698*^9}, 3.914658580836437*^9, { 3.914658618191015*^9, 3.914658634218201*^9}, 3.9146586808778887`*^9, { 3.914658733028788*^9, 3.914658780026413*^9}}, CellLabel-> "In[191]:=",ExpressionUUID->"524b9373-2e92-174d-adc5-1bd1eb9caf34"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"STRESS", "|", "DISP"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions", " ", "etc"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"node", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", " ", RowBox[{"en", ".", " ", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"REC9", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.688111749744352*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760414`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203376`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694776`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.7831427526814938`*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.783410858170816*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933847661047`*^9}, {3.9093688768166304`*^9, 3.9093688838711033`*^9}, {3.9093721694329557`*^9, 3.909372190646823*^9}, { 3.909372489766584*^9, 3.909372512745613*^9}, {3.9093726380463285`*^9, 3.909372640921249*^9}, {3.9093727199130325`*^9, 3.909372720227641*^9}, { 3.909372779325381*^9, 3.909372779702578*^9}, {3.909372814307292*^9, 3.909372838437698*^9}, {3.909373137296845*^9, 3.9093731533934703`*^9}, { 3.909373331450612*^9, 3.909373332206536*^9}, 3.909373370357567*^9, { 3.9093734274450407`*^9, 3.909373444904494*^9}, {3.9093734820444093`*^9, 3.909373484221746*^9}, {3.90937360405326*^9, 3.909373655570702*^9}, { 3.909373686899842*^9, 3.909373711076169*^9}, {3.909373852654055*^9, 3.909373891412511*^9}, {3.909373996028303*^9, 3.90937401900063*^9}, { 3.912057521650089*^9, 3.912057547469932*^9}, {3.9129118609921474`*^9, 3.912911861793758*^9}, {3.914658088884495*^9, 3.91465809011425*^9}, { 3.914658128910772*^9, 3.9146581823864937`*^9}, {3.914658230291054*^9, 3.914658253189903*^9}, {3.914658325963629*^9, 3.9146583343411703`*^9}, { 3.9146584104273987`*^9, 3.914658540153698*^9}, 3.914658580836437*^9, { 3.914658618191015*^9, 3.914658634218201*^9}, 3.9146586808778887`*^9, { 3.914658733028788*^9, 3.914658780026413*^9}}, CellLabel-> "In[193]:=",ExpressionUUID->"eef96f88-f856-4e4a-a586-f00e7a139363"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e1", ",", "e2", ",", "nn", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", " ", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e1", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e2", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"e3", "=", RowBox[{"e1", StyleBox["\[Cross]", "OperatorCharacter"], "e2"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"e3", "/", RowBox[{"Sqrt", "[", RowBox[{"e3", ".", "e3"}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e1", ",", " ", "e2", ",", "nn"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.442647309364642*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.632041129708026*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443504`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760405`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203366`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.693990278127705*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694766`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.694431816321939*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.7831427526814923`*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.783410022144936*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.7834108581708155`*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, {3.789021541724124*^9, 3.789021542741435*^9}, { 3.814675243788579*^9, 3.81467524657043*^9}, {3.814675296484918*^9, 3.814675302610244*^9}, 3.8146767508872194`*^9, {3.814676783363112*^9, 3.814676834028836*^9}, {3.8146768678429646`*^9, 3.814676881416951*^9}, { 3.819778869762148*^9, 3.819778881967649*^9}, {3.820028155149449*^9, 3.820028244303889*^9}, 3.820028306018581*^9, {3.820028830464693*^9, 3.820028898308877*^9}, {3.8436188654069076`*^9, 3.843618871317108*^9}, { 3.846911450742489*^9, 3.8469114924591775`*^9}, {3.846911710003416*^9, 3.846911730341361*^9}, {3.846912038982461*^9, 3.846912051966134*^9}, { 3.8469120857716913`*^9, 3.846912098433555*^9}, 3.846912467488207*^9, { 3.846912605028914*^9, 3.8469126582335243`*^9}, {3.846912823206394*^9, 3.846912857275007*^9}, {3.846912926343699*^9, 3.8469129533099966`*^9}, 3.846913299667283*^9, {3.846913396359874*^9, 3.84691341471919*^9}, { 3.846913471445997*^9, 3.8469134727490387`*^9}, {3.846913563275012*^9, 3.846913576129129*^9}, {3.847105214587804*^9, 3.847105223753584*^9}, { 3.8471055237950907`*^9, 3.8471055304047117`*^9}, {3.847105638827262*^9, 3.8471056537154665`*^9}, {3.847106253534446*^9, 3.84710626103591*^9}, { 3.847107500541426*^9, 3.847107500850346*^9}, {3.9022824720923843`*^9, 3.902282478119858*^9}, {3.902282960016908*^9, 3.9022831505965166`*^9}, { 3.902283855004303*^9, 3.9022840288092117`*^9}, 3.902284212362174*^9, 3.902284247155393*^9, {3.9022842870605817`*^9, 3.9022843922639713`*^9}, { 3.902286025221813*^9, 3.9022860751809874`*^9}, {3.9022863598113146`*^9, 3.9022864511004925`*^9}, {3.9022865636585164`*^9, 3.902286666157859*^9}, { 3.90228671311561*^9, 3.902286746467002*^9}, {3.902286797863544*^9, 3.902286839361541*^9}, {3.902286929065846*^9, 3.9022869806505194`*^9}, { 3.9022870115481963`*^9, 3.902287045117019*^9}, {3.90228710443458*^9, 3.9022872313561034`*^9}, {3.902287261429595*^9, 3.9022872621972094`*^9}, { 3.902287292237499*^9, 3.902287401189134*^9}, {3.902288454919524*^9, 3.9022884563161917`*^9}, {3.902293201206414*^9, 3.902293236063425*^9}, { 3.902293285461324*^9, 3.9022933353721776`*^9}, {3.909367911293672*^9, 3.9093679394245987`*^9}, {3.9093680822641273`*^9, 3.909368084958804*^9}, { 3.909368238055474*^9, 3.9093682713258443`*^9}, 3.9093683479378915`*^9, { 3.909368442358642*^9, 3.909368455786158*^9}, {3.90936854137303*^9, 3.909368589477632*^9}, {3.909370163861785*^9, 3.909370165610799*^9}, { 3.9129129729230223`*^9, 3.912912975375946*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"32a92db6-2fd8-9d44-b2e9-18a3940fbd7b"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stre) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.783415939356537*^9, 3.783415939864867*^9}, {3.790129829798637*^9, 3.7901298377928085`*^9}, {3.8874361725753126`*^9, 3.887436175021082*^9}},ExpressionUUID->"4142be3b-7c42-9646-98f1-\ d41738de29a3"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", "anya_", ",", "anyb_"}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", " ", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "tensor"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "en"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"en", ".", "EEEE", ".", "en"}], "]"}], ".", RowBox[{"(", RowBox[{"en", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Sigma]XX", ",", "\[Sigma]XY", ",", "\[Sigma]XZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]YX", ",", "\[Sigma]YY", ",", "\[Sigma]YZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]ZX", ",", "\[Sigma]ZY", ",", "\[Sigma]ZZ"}], "}"}]}], "}"}], "]"}], "\[Rule]", " ", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", "anya_", ",", "anyb_"}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"e\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", " ", RowBox[{"en", "=", RowBox[{"e\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "e\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"en", "/", RowBox[{"Sqrt", "[", RowBox[{"en", ".", "en"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", " ", "e\[Beta]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"Lx", ">", "0"}], "&&", RowBox[{"Ly", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "tensor"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Sigma]XX", ",", "\[Sigma]XY", ",", "\[Sigma]XZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]YX", ",", "\[Sigma]YY", ",", "\[Sigma]YZ"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Sigma]ZX", ",", "\[Sigma]ZY", ",", "\[Sigma]ZZ"}], "}"}]}], "}"}], "]"}], "\[Rule]", " ", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426473093646426`*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.6320411297080264`*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443495`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760395`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203357`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.6939902781277046`*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694757`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.6944318163219385`*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.7831427526814914`*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.7834100221449356`*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.7834108581708145`*^9, 3.783410876402059*^9}, {3.783415955475847*^9, 3.783416114681175*^9}, { 3.783416164762178*^9, 3.783416208755393*^9}, {3.783416317958857*^9, 3.7834163817031116`*^9}, {3.7834164360783715`*^9, 3.783416485056771*^9}, { 3.7834166132894554`*^9, 3.7834166233562546`*^9}, 3.783416674821188*^9, { 3.783417354030015*^9, 3.783417363917008*^9}, 3.783417417707629*^9, { 3.814675163272082*^9, 3.814675196666747*^9}, {3.847249940282611*^9, 3.8472499529957237`*^9}, {3.90936972629681*^9, 3.909369729810444*^9}, { 3.909369767295085*^9, 3.909369781563173*^9}, 3.909370085721197*^9, { 3.912057575455965*^9, 3.912057576658553*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"fe10cc2b-044f-3e4e-80c4-ce70d0976b88"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.757417862615562*^9, 3.757417866610338*^9}, { 3.788236956532066*^9, 3.788236957825534*^9}},ExpressionUUID->"354f06c0-d232-434d-9925-\ 66f9d7119e16"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "INT", ",", "MID", ",", "r", ",", "e1", ",", "e2", ",", "e3", ",", "nn", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "uvw0", ",", "uvw2", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"INT", "[", "3", "]"}], "=", "TRI7"}], ";", RowBox[{ RowBox[{"INT", "[", "4", "]"}], "=", "REC9"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MID", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"MID", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"element", " ", "plane"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e1", ",", "e2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"MID", "[", "nl", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"e3", "=", RowBox[{"e1", StyleBox["\[Cross]", "OperatorCharacter"], "e2"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"e3", "/", RowBox[{"Sqrt", "[", RowBox[{"e3", ".", "e3"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e1", ",", " ", "e2", ",", "nn"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"uvw", " ", "=", RowBox[{"uvw", "-", RowBox[{"e3", RowBox[{"(", RowBox[{"e3", ".", "uvw"}], ")"}]}]}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"uvw0", "=", RowBox[{"uvw", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", RowBox[{"uvw", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw0"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "EEEE", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", "uvw2"}]}], "*", "\[Rho]\[Rho]", "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"QUAD", "[", RowBox[{ RowBox[{"INT", "[", "nl", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426473093646426`*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.6320411297080264`*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443495`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760395`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203357`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.6939902781277046`*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694757`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.6944318163219385`*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, 3.7574180050911236`*^9, {3.788249948638031*^9, 3.788249965805548*^9}, 3.788250180826583*^9, {3.7882504752171006`*^9, 3.788250476401018*^9}, {3.788250589938117*^9, 3.788250591161209*^9}, { 3.7882506821511555`*^9, 3.788250689434934*^9}, {3.814675353941107*^9, 3.814675358135168*^9}, {3.8200284878289385`*^9, 3.820028493021848*^9}, { 3.820028529332723*^9, 3.8200285764790335`*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"93e0dec8-c354-e54f-a0df-f4ed0b6dbf6a"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.766140428784856*^9, 3.766140436767367*^9}, { 3.78824987025541*^9, 3.788249871040884*^9}, {3.789021352902676*^9, 3.78902135373832*^9}},ExpressionUUID->"238bbcff-ec89-d540-bb25-\ 512587fcb37c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426473093646426`*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.6320411297080264`*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443495`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760395`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203357`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.6939902781277046`*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694757`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.6944318163219385`*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, {3.783142158832631*^9, 3.783142170925208*^9}, { 3.783142395749114*^9, 3.783142515430614*^9}, {3.783142555730932*^9, 3.783142564092332*^9}, {3.7831427526814914`*^9, 3.783142754255293*^9}, { 3.783142809875768*^9, 3.7831428571042156`*^9}, {3.7834087348068304`*^9, 3.783408793037257*^9}, {3.783409508172189*^9, 3.783409552999109*^9}, { 3.783409588525758*^9, 3.783409590768481*^9}, {3.783409662061564*^9, 3.783409681027496*^9}, {3.7834097163188562`*^9, 3.783409889374229*^9}, { 3.7834100221449356`*^9, 3.783410060241215*^9}, {3.783410105133518*^9, 3.783410113174599*^9}, {3.783410606354042*^9, 3.783410612361685*^9}, { 3.783410755716464*^9, 3.783410791889061*^9}, {3.7834108581708145`*^9, 3.783410876402059*^9}, {3.783656780899205*^9, 3.783656816754212*^9}, { 3.783656906347945*^9, 3.783656914312093*^9}, {3.783657051037856*^9, 3.783657291265683*^9}, {3.783657346545521*^9, 3.783657358307256*^9}, { 3.783657399653203*^9, 3.783657405924858*^9}, {3.78365743635863*^9, 3.783657444445655*^9}, {3.783657544607131*^9, 3.7836575974442415`*^9}, { 3.784785690868435*^9, 3.784785711855986*^9}, {3.78479310851132*^9, 3.784793114365037*^9}, {3.784793162925936*^9, 3.784793168863771*^9}, { 3.788250819548458*^9, 3.7882508340994453`*^9}, {3.788250923421962*^9, 3.788250985225994*^9}, 3.789021362891338*^9, {3.789021393201993*^9, 3.789021408295926*^9}, {3.789021442967498*^9, 3.78902149795165*^9}, { 3.789021568111008*^9, 3.7890215803212156`*^9}, {3.789021644548484*^9, 3.789021733239565*^9}, {3.789021840769305*^9, 3.789021950403524*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"d1bdbc16-ae4b-d14d-96ae-b34d2c6dec60"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.757416977381418*^9, 3.7574169848245335`*^9}, { 3.7574180750707226`*^9, 3.757418078890803*^9}, {3.757745607122757*^9, 3.757745615277394*^9}, 3.790129668121153*^9},ExpressionUUID->"dbf906d1-fcd2-a64f-97a8-\ 480711c06180"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "INT", ",", "MID", ",", "DOM", ",", "r", ",", "e1", ",", "e2", ",", "e3", ",", "nn", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "FG", ",", "\[Delta]EG", ",", "EG", ",", "SS"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"INT", "[", "3", "]"}], "=", "TRI7"}], ";", RowBox[{ RowBox[{"INT", "[", "4", "]"}], "=", "REC9"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MID", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"MID", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"DOM", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"DOM", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "orthonomal", " ", "basis", " ", "defined", " ", "by", " ", "the", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e1", ",", "e2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"MID", "[", "nl", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"e3", "=", RowBox[{"e1", StyleBox["\[Cross]", "OperatorCharacter"], "e2"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"e3", "/", RowBox[{"Sqrt", "[", RowBox[{"e3", ".", "e3"}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e1", ",", " ", "e2", ",", " ", "nn"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"FG", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EG", "=", RowBox[{ RowBox[{"(", RowBox[{"FG", "+", RowBox[{"Transpose", "[", "FG", "]"}], "+", RowBox[{"FG", ".", RowBox[{"Transpose", "[", "FG", "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]EG", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", "FG", "]"}], "+", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "FG", "]"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "FG", "]"}], ".", RowBox[{"Transpose", "[", "FG", "]"}]}], "+", RowBox[{"FG", ".", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "FG", "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "EEEE", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"EG", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", "\[Delta]EG", "]"}], ".", RowBox[{"Flatten", "[", "SS", "]"}]}]}], " ", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"nl", "\[Equal]", "3"}], ",", RowBox[{"Return", "[", RowBox[{"QUAD", "[", RowBox[{ RowBox[{"INT", "[", "nl", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"nl", "\[Equal]", "4"}], ",", RowBox[{"Return", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}]}]}], "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426473093646426`*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.6320411297080264`*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443495`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760395`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203357`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.6939902781277046`*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694757`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.6944318163219385`*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.7574171303554697`*^9, 3.7574171843446183`*^9}, {3.757417230154053*^9, 3.757417230424534*^9}, { 3.7574172774582806`*^9, 3.757417279859251*^9}, {3.757418119406087*^9, 3.757418162231819*^9}, {3.790129674473545*^9, 3.79012968521891*^9}, { 3.814675393524129*^9, 3.814675396403953*^9}, {3.8216148844365788`*^9, 3.8216149206900663`*^9}, 3.8217798501935825`*^9}, CellLabel-> "In[204]:=",ExpressionUUID->"62fc4859-c117-e846-bf81-d5a237fc8693"] }, Closed]], Cell[CellGroupData[{ Cell["PLANE ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.757745810095319*^9, 3.757745817919499*^9}, { 3.790129774658773*^9, 3.79012978895208*^9}},ExpressionUUID->"4820cac9-4d09-2245-95b7-\ 5058089d80e5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "\[Nu]\[Nu]_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE", ",", "\[Nu]\[Nu]", ",", "\[Alpha]\[Alpha]", ",", "kk"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"ss", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "\[Nu]\[Nu]_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "INT", ",", "MID", ",", "r", ",", "e1", ",", "e2", ",", "e3", ",", "nn", ",", "FF", ",", "FFINV", ",", "jac", ",", "uvw", ",", "du", ",", "d\[CurlyTheta]", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "EEEE", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]pint", ",", "\[Delta]pext", ",", "\[CurlyTheta]\[CurlyTheta]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Length", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]", "-", "\[Eta]"}], ",", "\[Xi]", ",", "\[Eta]"}], "}"}]}], ";", RowBox[{ RowBox[{"NN", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], ",", RowBox[{"\[Xi]", RowBox[{"(", RowBox[{"1", "-", "\[Eta]"}], ")"}]}], ",", RowBox[{"\[Xi]", " ", "\[Eta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "\[Eta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"INT", "[", "3", "]"}], "=", "TRI7"}], ";", RowBox[{ RowBox[{"INT", "[", "4", "]"}], "=", "REC9"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MID", "[", "3", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Eta]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"MID", "[", "4", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Eta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"e1", ",", "e2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "r"}]}], "}"}], " ", "/.", RowBox[{"MID", "[", "nl", "]"}]}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"e3", "=", RowBox[{"e1", StyleBox["\[Cross]", "OperatorCharacter"], "e2"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"e3", "/", RowBox[{"Sqrt", "[", RowBox[{"e3", ".", "e3"}], "]"}]}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e1", ",", " ", "e2", ",", "nn"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"NN", "[", "nl", "]"}], ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "4"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "displacement", " ", "gradient", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"du", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Zeta]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"d\[CurlyTheta]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "\[CurlyTheta]\[CurlyTheta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "\[CurlyTheta]\[CurlyTheta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Zeta]"], "\[CurlyTheta]\[CurlyTheta]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plane", " ", "stress", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]\[Nu]"}]}], ")"}], "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{"EEEE", "-", RowBox[{ RowBox[{"(", RowBox[{"EEEE", ".", "nn"}], ")"}], ".", RowBox[{"Inverse", "[", RowBox[{"nn", ".", "EEEE", ".", "nn"}], "]"}], ".", RowBox[{"(", RowBox[{"nn", ".", "EEEE"}], ")"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"du", "-", RowBox[{ RowBox[{"IdentityMatrix", "[", "3", "]"}], "*", "\[Alpha]\[Alpha]", "*", RowBox[{"(", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "-", "\[CurlyTheta]0"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]\[Delta]", "[", "du", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}], "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]pint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "d\[CurlyTheta]", "]"}], ".", "d\[CurlyTheta]"}]}], "*", "kk", "*", "tt"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]pext", "=", " ", RowBox[{ RowBox[{ "\[Delta]\[Delta]", "[", "\[CurlyTheta]\[CurlyTheta]", "]"}], "*", "ss"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"QUAD", "[", RowBox[{ RowBox[{"INT", "[", "nl", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]pint", "+", "\[Delta]pext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4426473093646426`*^9, 3.442647407863045*^9}, { 3.4426597184894*^9, 3.4426597783310003`*^9}, {3.442659859139*^9, 3.4426599679021997`*^9}, {3.4426601154852*^9, 3.442660125282*^9}, 3.4426603153866*^9, {3.442660669449199*^9, 3.442660676984*^9}, { 3.4426607660341997`*^9, 3.442660767017*^9}, {3.4426607970782*^9, 3.4426609236566*^9}, {3.442660999385999*^9, 3.442661000946*^9}, { 3.4426611720156*^9, 3.4426611866796*^9}, {3.4426612192836*^9, 3.4426612396104*^9}, {3.4426613536776*^9, 3.4426613563764*^9}, { 3.4426613962188*^9, 3.4426613966556*^9}, {3.443184440921*^9, 3.4431845165186*^9}, {3.4431848052298*^9, 3.4431848237002*^9}, { 3.4431849834618*^9, 3.4431849851934*^9}, {3.4431850342574*^9, 3.443185038531801*^9}, {3.4444402127514*^9, 3.4444402360889997`*^9}, { 3.44509636787*^9, 3.445096458974*^9}, {3.4450965569264*^9, 3.4450965855056*^9}, {3.4450966736612*^9, 3.4450967018348*^9}, 3.4450967876972*^9, {3.4451000792358*^9, 3.4451001019962*^9}, { 3.445132280975*^9, 3.4451322867782*^9}, 3.4451325631488*^9, 3.4451346101028*^9, {3.4455261966926007`*^9, 3.4455262691078*^9}, { 3.4455263543462*^9, 3.445526490113*^9}, {3.4455265305794*^9, 3.4455265347602*^9}, {3.4455267552350006`*^9, 3.4455267826754*^9}, 3.445526922233*^9, {3.445527218711*^9, 3.4455272895818*^9}, { 3.4455273640094*^9, 3.445527481259*^9}, 3.4455276192202*^9, { 3.4455278074376*^9, 3.4455278187164*^9}, {3.4455279660896*^9, 3.4455279742016*^9}, 3.4455280249016*^9, 3.4455285464408*^9, { 3.4461837560238*^9, 3.4461837697986*^9}, {3.446183892165*^9, 3.4461839004486*^9}, {3.4461839570142*^9, 3.4461841265550003`*^9}, 3.4461841729182*^9, {3.4461842101398*^9, 3.4461842206074*^9}, { 3.4461845241088*^9, 3.4461845410972*^9}, {3.4461845879440002`*^9, 3.4461847021516*^9}, {3.4461848428032*^9, 3.446184854409601*^9}, { 3.4461849111956*^9, 3.4461849123344*^9}, {3.4461850134868*^9, 3.446185058608*^9}, {3.4461852067616*^9, 3.446185223282*^9}, { 3.4461852548876*^9, 3.4461852626408*^9}, {3.4461853186604*^9, 3.446185320392*^9}, {3.4512642010481997`*^9, 3.451264207413*^9}, { 3.451264278876601*^9, 3.4512643136334*^9}, {3.4512643770006*^9, 3.4512644269362*^9}, {3.4512646983138*^9, 3.4512647384994*^9}, { 3.4512647823354*^9, 3.4512647868126*^9}, {3.4939932066616*^9, 3.493993208206001*^9}, {3.4939932399988003`*^9, 3.4939932614956*^9}, { 3.493993300014*^9, 3.4939933073304*^9}, {3.4939933992174*^9, 3.493993407813*^9}, {3.4939934932314*^9, 3.493993515009*^9}, { 3.493993546855601*^9, 3.493993568543*^9}, {3.4939936486404*^9, 3.4939936621812*^9}, {3.4940328887262*^9, 3.4940328895218*^9}, { 3.499487154582*^9, 3.49948716324*^9}, {3.4994872083708*^9, 3.499487247324*^9}, {3.4994872822368*^9, 3.4994873816244*^9}, 3.499487417676*^9, {3.4994878504918003`*^9, 3.4994879045458*^9}, { 3.499487952937001*^9, 3.4994879707794*^9}, {3.4994880482042*^9, 3.4994880616826*^9}, {3.4994881084202*^9, 3.4994881177334*^9}, { 3.4994884740218*^9, 3.4994884920554*^9}, {3.499488594828198*^9, 3.4994886477434*^9}, {3.499488679036999*^9, 3.499488686025799*^9}, { 3.4994887712954*^9, 3.4994887717478*^9}, {3.630551749021987*^9, 3.6305518383945436`*^9}, 3.630551932915109*^9, {3.630552147735427*^9, 3.630552179623563*^9}, {3.630552211063363*^9, 3.630552234159684*^9}, { 3.630552309738006*^9, 3.6305523261429453`*^9}, {3.630552400293186*^9, 3.630552443246643*^9}, {3.6305524899713154`*^9, 3.630552532581753*^9}, { 3.630552564078554*^9, 3.630552660703081*^9}, {3.630806973247195*^9, 3.6308070226836824`*^9}, {3.630831568112257*^9, 3.630831577359786*^9}, { 3.632037136188613*^9, 3.6320372275628395`*^9}, {3.632037282822*^9, 3.632037286414205*^9}, {3.632037326777514*^9, 3.6320373338819203`*^9}, { 3.6320374068820953`*^9, 3.632037461262206*^9}, {3.632037495368157*^9, 3.632037599676123*^9}, {3.632037657282418*^9, 3.632037766830684*^9}, { 3.632037799397547*^9, 3.6320378258790607`*^9}, {3.6320379375314474`*^9, 3.632037944011818*^9}, {3.632037974774577*^9, 3.63203804108137*^9}, { 3.632038115937651*^9, 3.632038116847703*^9}, {3.632038171547832*^9, 3.632038172164867*^9}, {3.6320382092969913`*^9, 3.6320382642141323`*^9}, 3.632038311238822*^9, {3.6320383438376865`*^9, 3.6320384084533825`*^9}, { 3.632038502612768*^9, 3.632038536966733*^9}, {3.6320386355663724`*^9, 3.632038663028943*^9}, {3.632038757814365*^9, 3.632038876049127*^9}, { 3.632038925681966*^9, 3.63203901160988*^9}, {3.632039055957418*^9, 3.632039057440502*^9}, {3.6320390909984217`*^9, 3.6320392794842024`*^9}, { 3.6320393098219376`*^9, 3.632039322864683*^9}, {3.6320393691423306`*^9, 3.632039469157051*^9}, {3.632039540892154*^9, 3.6320395753041224`*^9}, { 3.632039607865985*^9, 3.63203962876818*^9}, {3.632039834419943*^9, 3.6320399635053263`*^9}, {3.632040008307889*^9, 3.632040011081047*^9}, { 3.632040111200774*^9, 3.63204017094119*^9}, {3.632040279701411*^9, 3.632040397466147*^9}, {3.6320411172793183`*^9, 3.6320411297080264`*^9}, 3.632041280201637*^9, {3.632041357828077*^9, 3.632041361657296*^9}, { 3.632041402765647*^9, 3.632041437279621*^9}, 3.632041474164731*^9, { 3.6320415074596353`*^9, 3.632041548877004*^9}, {3.6320415931405363`*^9, 3.632041610919553*^9}, {3.632041656484159*^9, 3.632041669168882*^9}, { 3.632042063229422*^9, 3.6320420791513343`*^9}, {3.6320424482774467`*^9, 3.632042550289282*^9}, {3.632042803353756*^9, 3.632042928840934*^9}, { 3.632042961566806*^9, 3.63204301077662*^9}, {3.632043063037609*^9, 3.632043071258079*^9}, {3.632043120691907*^9, 3.632043161148221*^9}, { 3.632043206267801*^9, 3.6320432094549837`*^9}, 3.632043258394783*^9, { 3.632043351071084*^9, 3.632043352668175*^9}, {3.63456774610097*^9, 3.634568027044036*^9}, 3.634568059784909*^9, {3.6345686692177663`*^9, 3.6345687304812703`*^9}, {3.634568765543276*^9, 3.634568827443816*^9}, { 3.6346120324026976`*^9, 3.634612041767234*^9}, {3.634612138291754*^9, 3.6346122118989644`*^9}, {3.6346122814849443`*^9, 3.634612333070895*^9}, { 3.634612471677823*^9, 3.634612552263432*^9}, {3.6346125863993845`*^9, 3.634612655495337*^9}, {3.634612698763811*^9, 3.634612702163006*^9}, { 3.634872635601731*^9, 3.634872755937614*^9}, {3.634877631123617*^9, 3.634877642776284*^9}, {3.6348782474488688`*^9, 3.6348782744724145`*^9}, { 3.63487832072106*^9, 3.634878440448908*^9}, {3.685281726403072*^9, 3.685281783453151*^9}, {3.68794462572165*^9, 3.687944776911862*^9}, { 3.6879451060223236`*^9, 3.687945144542377*^9}, {3.687945281022568*^9, 3.687945291802584*^9}, {3.687945558952958*^9, 3.687945567592969*^9}, { 3.687945621383044*^9, 3.6879456613631*^9}, {3.687945729293195*^9, 3.6879457736132574`*^9}, {3.688022923252344*^9, 3.688023002982456*^9}, { 3.68802307534256*^9, 3.688023230782775*^9}, 3.688023348002939*^9, { 3.688023553833227*^9, 3.688023562003239*^9}, {3.688023629533334*^9, 3.688023638243346*^9}, 3.688023775603538*^9, {3.688031422416407*^9, 3.688031557816597*^9}, {3.6881117497443495`*^9, 3.688111797854414*^9}, { 3.688116647711804*^9, 3.688116649471806*^9}, {3.688118444084318*^9, 3.688118579854509*^9}, {3.688118642824597*^9, 3.688118799384816*^9}, { 3.688118855204894*^9, 3.688118917084981*^9}, {3.6881194959182944`*^9, 3.688119497718297*^9}, {3.688119640438497*^9, 3.688119655048517*^9}, { 3.688119702888584*^9, 3.688119727678619*^9}, {3.6881200919291286`*^9, 3.6881201295191813`*^9}, {3.688120204489287*^9, 3.688120237039332*^9}, { 3.688120497669697*^9, 3.688120502989704*^9}, {3.688120738340034*^9, 3.68812074937005*^9}, {3.6882745101002936`*^9, 3.6882745118602986`*^9}, { 3.6883042728760395`*^9, 3.688304806616784*^9}, {3.688305102727199*^9, 3.688305108617207*^9}, {3.6883054642977047`*^9, 3.688305471637716*^9}, { 3.688306465909107*^9, 3.688306472909118*^9}, {3.6883066024792986`*^9, 3.688306655089372*^9}, {3.688307131130039*^9, 3.688307145950059*^9}, 3.688307379800387*^9, {3.688781590460318*^9, 3.6887816040203357`*^9}, 3.688781643310389*^9, {3.688781674100432*^9, 3.688781699230467*^9}, { 3.688781784740587*^9, 3.688781813880627*^9}, {3.688781885830728*^9, 3.688781902040751*^9}, {3.6889574605581684`*^9, 3.688957501788226*^9}, { 3.688960184803222*^9, 3.6889601992032423`*^9}, {3.692771817740493*^9, 3.692771905640616*^9}, {3.6927726676816826`*^9, 3.6927727032617326`*^9}, { 3.6927727333717747`*^9, 3.692772736561779*^9}, {3.692772826191905*^9, 3.692772844901931*^9}, {3.692772893741999*^9, 3.6927728997420073`*^9}, { 3.6927729636420975`*^9, 3.692773125862324*^9}, {3.6927731981924257`*^9, 3.692773236352479*^9}, {3.69277327290253*^9, 3.692773282242543*^9}, { 3.692773335352618*^9, 3.692773413782727*^9}, 3.6927736473730545`*^9, { 3.693486811544419*^9, 3.693486813494421*^9}, {3.69348685539448*^9, 3.693486917754567*^9}, {3.6934869973946786`*^9, 3.693487001174684*^9}, { 3.6934870442947445`*^9, 3.6934870479747496`*^9}, {3.693487349135171*^9, 3.6934873994352417`*^9}, {3.693487456975322*^9, 3.693487458555325*^9}, { 3.693989706666902*^9, 3.69398979079702*^9}, {3.6939898244170666`*^9, 3.693989829937074*^9}, {3.693990104207459*^9, 3.693990124237486*^9}, { 3.69399018398757*^9, 3.693990240347649*^9}, {3.6939902781277046`*^9, 3.69399032732777*^9}, {3.69399039082786*^9, 3.693990609328165*^9}, { 3.693990640658209*^9, 3.693990673878256*^9}, {3.693990761178378*^9, 3.693990776938401*^9}, {3.693990812888451*^9, 3.6939908380384855`*^9}, { 3.693990889578558*^9, 3.6939908941885643`*^9}, {3.6939909859386926`*^9, 3.693991001898715*^9}, {3.6939910395887675`*^9, 3.693991064398803*^9}, { 3.693991107098862*^9, 3.69399114078891*^9}, {3.693991195798987*^9, 3.6939913838692493`*^9}, {3.6939918465599*^9, 3.693991856479911*^9}, { 3.693991917369998*^9, 3.693991929610014*^9}, {3.693991979330083*^9, 3.693992022780144*^9}, {3.693992126650289*^9, 3.693992141610311*^9}, { 3.693992188690377*^9, 3.693992235260442*^9}, {3.6939924451107354`*^9, 3.6939924757207785`*^9}, {3.6939925308708553`*^9, 3.693992535490862*^9}, { 3.69408137357989*^9, 3.694081399039925*^9}, {3.694081492270056*^9, 3.694081500430067*^9}, 3.694085807686309*^9, 3.694336369074993*^9, { 3.694336447585103*^9, 3.694336534165224*^9}, {3.694336569545274*^9, 3.694336572935278*^9}, {3.6943366355853662`*^9, 3.694336663395405*^9}, { 3.694336707865467*^9, 3.694336813505615*^9}, {3.694336870885696*^9, 3.694336972645838*^9}, {3.694337005795884*^9, 3.69433752400661*^9}, { 3.694337943297197*^9, 3.694337973047239*^9}, {3.694338096757412*^9, 3.694338100087416*^9}, {3.694338156417496*^9, 3.694338172057517*^9}, { 3.694338211137572*^9, 3.694338217997582*^9}, {3.694338370357795*^9, 3.694338415207857*^9}, {3.694338519908004*^9, 3.694338533448023*^9}, { 3.694338742738316*^9, 3.6943387845683746`*^9}, {3.694338867248491*^9, 3.694338909398549*^9}, {3.6943394389592905`*^9, 3.694339477079344*^9}, { 3.6943395685694757`*^9, 3.6943395881795*^9}, 3.694339662709605*^9, { 3.694339797119792*^9, 3.6943398030098004`*^9}, {3.694339888599921*^9, 3.694340043830138*^9}, {3.6943517756956816`*^9, 3.694351778765686*^9}, { 3.694351814965737*^9, 3.694351920335884*^9}, {3.6943520375260487`*^9, 3.694352038046049*^9}, {3.6943546301696777`*^9, 3.694354641489694*^9}, { 3.6943547065797853`*^9, 3.694354780889889*^9}, {3.694415922397947*^9, 3.694415933787963*^9}, {3.6944160021080585`*^9, 3.6944160163480783`*^9}, { 3.694416161248281*^9, 3.694416186218316*^9}, {3.6944162181183605`*^9, 3.694416241358393*^9}, {3.694416776009142*^9, 3.694416778289145*^9}, { 3.694417304849882*^9, 3.694417340579932*^9}, {3.694417931072759*^9, 3.6944179657728076`*^9}, {3.694418292713265*^9, 3.694418302313279*^9}, { 3.694431617070564*^9, 3.6944316923568697`*^9}, {3.6944318163219385`*^9, 3.694431820105152*^9}, {3.696560954911197*^9, 3.696560966061212*^9}, { 3.696560998851258*^9, 3.6965610020812626`*^9}, {3.69656114223146*^9, 3.696561159171482*^9}, 3.696563445644683*^9, {3.6965635186347857`*^9, 3.696563532204804*^9}, {3.696563569074856*^9, 3.696563574514863*^9}, { 3.696563720555068*^9, 3.69656372185507*^9}, {3.696563780755153*^9, 3.696563824135213*^9}, {3.6965639935254507`*^9, 3.696564031985504*^9}, { 3.696596096992402*^9, 3.696596186502527*^9}, {3.696596234252594*^9, 3.696596260452631*^9}, {3.6965963110027018`*^9, 3.69659632407272*^9}, 3.696596380362799*^9, {3.724412364277983*^9, 3.724412364811951*^9}, { 3.725591242884809*^9, 3.725591249229525*^9}, {3.725591466627203*^9, 3.725591704636403*^9}, {3.725591740577665*^9, 3.725591761314259*^9}, { 3.725598078377792*^9, 3.7255980873944*^9}, {3.725598135321295*^9, 3.725598156667326*^9}, {3.725598546395881*^9, 3.7255985750395555`*^9}, { 3.725598660297285*^9, 3.725598669548276*^9}, {3.725598961344647*^9, 3.725598996301458*^9}, {3.725599092280325*^9, 3.725599092624111*^9}, { 3.7255991287997694`*^9, 3.725599180227102*^9}, 3.725599267397399*^9, { 3.725599302619891*^9, 3.725599630275236*^9}, {3.725599691797466*^9, 3.725600173598138*^9}, {3.72560026574846*^9, 3.725600276765248*^9}, 3.725600330880327*^9, {3.725600399528188*^9, 3.72560041238892*^9}, { 3.725600503405278*^9, 3.725600537768276*^9}, {3.72560062249599*^9, 3.725600660390954*^9}, {3.7256015423497496`*^9, 3.725601551460086*^9}, { 3.725602674641403*^9, 3.725602676188448*^9}, {3.725606737765007*^9, 3.7256067379681726`*^9}, {3.7259411263577843`*^9, 3.725941161974596*^9}, { 3.7259413328141994`*^9, 3.725941353032595*^9}, {3.725948620999795*^9, 3.7259486419857845`*^9}, 3.7259487502361426`*^9, {3.725948801316684*^9, 3.7259488049789305`*^9}, {3.7259488747343755`*^9, 3.725948888040884*^9}, { 3.7262144247900543`*^9, 3.726214447745636*^9}, {3.757417049322569*^9, 3.757417053184463*^9}, 3.757746126576226*^9, 3.757746187800437*^9, { 3.790129975550411*^9, 3.790129986460728*^9}, {3.822369517016216*^9, 3.8223695503530917`*^9}, 3.853212126776141*^9, {3.8532121589674606`*^9, 3.85321225468412*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"0dbb64ae-d0a0-1e43-a75b-906dc2e1a07c"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.871450004900112*^9, 3.8714500365529003`*^9}, {3.8765469159617367`*^9, 3.8765469182582664`*^9}, 3.887436199492498*^9, {3.9136918736147757`*^9, 3.913691874596293*^9}},ExpressionUUID->"a960621f-fc1f-ee4e-8da5-\ 18edd4243f52"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "uint", ",", "uext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]\[Epsilon]", ".", "N"}], "+", RowBox[{"\[Kappa]\[Kappa]", ".", "M"}], "+", RowBox[{"\[Gamma]\[Gamma]", ".", "Q"}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{"uint", "+", "uext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.629526859845335*^9}, {3.62952693938987*^9, 3.629526958655908*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723186`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.755525858838416*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.75560943440574*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.75600563314928*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.756092129325247*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.763613361846482*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.763700760307492*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.763814770927882*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.763951786342344*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.76412906722854*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577655`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.764419852287946*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.764726348337568*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.764727210909055*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079184`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.764814752582524*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.784011319771961*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103967`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.784886866702941*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.787728278982785*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369645`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.788277250336622*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.789123660311942*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887527`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.912065037824087*^9, 3.912065047096979*^9}, {3.913688264744926*^9, 3.9136883745276575`*^9}, {3.91368843804276*^9, 3.913688483434329*^9}, { 3.9136888818727975`*^9, 3.9136888954874506`*^9}, 3.91368929439236*^9, 3.913690687269609*^9, {3.9136916513807955`*^9, 3.913691731781004*^9}, { 3.913691790851969*^9, 3.9136918179738827`*^9}, {3.913691857847664*^9, 3.913691859380559*^9}, 3.913691897945921*^9, 3.9136919705031557`*^9, 3.914812193100273*^9}, CellLabel-> "In[208]:=",ExpressionUUID->"466c3840-0ea2-894b-b054-8fc88929af67"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E8001"}], "|", " ", RowBox[{"E1005", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n12_", ",", "n2_", ",", "n23_", ",", "n3_", ",", "n31_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1", ",", "n12", ",", "n2", ",", "n23", ",", "n3", ",", "n31"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n12_", ",", "n2_", ",", "n23_", ",", "n3_", ",", "n31_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "uL", ",", "vL", ",", "wL", ",", "\[Phi]L", ",", "\[Theta]L", ",", "\[Psi]L", ",", "AA", ",", "edg", ",", "N3", ",", "M3", ",", "NN", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ML", ",", "MR", ",", "aa", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "equ", ",", "sol", ",", "exp"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n12", ",", "n23", ",", "n31"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", RowBox[{"xl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", RowBox[{"yl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N3", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"M3", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}]}], "}"}], ",", "M3"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}], "+", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], ",", RowBox[{"a", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], ",", RowBox[{"a", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC7", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "y1"}], "+", RowBox[{"6", " ", "y2"}]}], ",", RowBox[{ RowBox[{"6", " ", "x1"}], "-", RowBox[{"6", " ", "x2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "y1"}], "-", RowBox[{"3", " ", "x2", " ", "y1"}], "+", RowBox[{"3", " ", "x1", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x1", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["x2", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["y1", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["y2", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "y1"}], "-", RowBox[{"3", " ", "x2", " ", "y1"}], "+", RowBox[{"3", " ", "x1", " ", "y2"}], "-", RowBox[{"3", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "x2", " ", "y1"}], "-", RowBox[{"3", " ", SuperscriptBox["x2", "2"], " ", "y1"}], "+", RowBox[{"3", " ", SuperscriptBox["x1", "2"], " ", "y2"}], "+", RowBox[{"3", " ", "x1", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", SuperscriptBox["y1", "2"]}], "+", RowBox[{"3", " ", "x1", " ", "y1", " ", "y2"}], "-", RowBox[{"3", " ", "x2", " ", "y1", " ", "y2"}], "+", RowBox[{"3", " ", "x1", " ", SuperscriptBox["y2", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "y2"}], "+", RowBox[{"6", " ", "y3"}]}], ",", RowBox[{ RowBox[{"6", " ", "x2"}], "-", RowBox[{"6", " ", "x3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", "y2"}], "-", RowBox[{"3", " ", "x3", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x2", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["x3", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["y2", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["y3", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", "x2", " ", "y2"}], "-", RowBox[{"3", " ", "x3", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", "x3", " ", "y2"}], "-", RowBox[{"3", " ", SuperscriptBox["x3", "2"], " ", "y2"}], "+", RowBox[{"3", " ", SuperscriptBox["x2", "2"], " ", "y3"}], "+", RowBox[{"3", " ", "x2", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x3", " ", SuperscriptBox["y2", "2"]}], "+", RowBox[{"3", " ", "x2", " ", "y2", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y2", " ", "y3"}], "+", RowBox[{"3", " ", "x2", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", "y1"}], "-", RowBox[{"6", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "x1"}], "+", RowBox[{"6", " ", "x3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "y1"}], "+", RowBox[{"3", " ", "x3", " ", "y1"}], "-", RowBox[{"3", " ", "x1", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["x1", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["x3", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["y3", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "y1"}], "+", RowBox[{"3", " ", "x3", " ", "y1"}], "-", RowBox[{"3", " ", "x1", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "x3", " ", "y1"}], "+", RowBox[{"3", " ", SuperscriptBox["x3", "2"], " ", "y1"}], "-", RowBox[{"3", " ", SuperscriptBox["x1", "2"], " ", "y3"}], "-", RowBox[{"3", " ", "x1", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"3", " ", "x1", " ", "y1", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y1", " ", "y3"}], "-", RowBox[{"3", " ", "x1", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y1", "2"], "-", RowBox[{"2", " ", "y1", " ", "y2"}], "+", SuperscriptBox["y2", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "+", RowBox[{"x2", " ", "y1"}], "+", RowBox[{"x1", " ", "y2"}], "-", RowBox[{"x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"x1", " ", "x2", " ", "y1"}], "-", RowBox[{ SuperscriptBox["x2", "2"], " ", "y1"}], "-", RowBox[{ SuperscriptBox["x1", "2"], " ", "y2"}], "+", RowBox[{"x1", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"x2", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"x1", " ", "y1", " ", "y2"}], "-", RowBox[{"x2", " ", "y1", " ", "y2"}], "+", RowBox[{"x1", " ", SuperscriptBox["y2", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y2", "2"], "-", RowBox[{"2", " ", "y2", " ", "y3"}], "+", SuperscriptBox["y3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x2"}], " ", "y2"}], "+", RowBox[{"x3", " ", "y2"}], "+", RowBox[{"x2", " ", "y3"}], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x2", " ", "x3", " ", "y2"}], "-", RowBox[{ SuperscriptBox["x3", "2"], " ", "y2"}], "-", RowBox[{ SuperscriptBox["x2", "2"], " ", "y3"}], "+", RowBox[{"x2", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x3", " ", SuperscriptBox["y2", "2"]}], "-", RowBox[{"x2", " ", "y2", " ", "y3"}], "-", RowBox[{"x3", " ", "y2", " ", "y3"}], "+", RowBox[{"x2", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y1", "2"], "-", RowBox[{"2", " ", "y1", " ", "y3"}], "+", SuperscriptBox["y3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "+", RowBox[{"x3", " ", "y1"}], "+", RowBox[{"x1", " ", "y3"}], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x1", " ", "x3", " ", "y1"}], "-", RowBox[{ SuperscriptBox["x3", "2"], " ", "y1"}], "-", RowBox[{ SuperscriptBox["x1", "2"], " ", "y3"}], "+", RowBox[{"x1", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"x1", " ", "y1", " ", "y3"}], "-", RowBox[{"x3", " ", "y1", " ", "y3"}], "+", RowBox[{"x1", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x1"}], "-", RowBox[{"2", " ", "x2"}], "-", RowBox[{"2", " ", "x3"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "-", RowBox[{"2", " ", "y2"}], "-", RowBox[{"2", " ", "y3"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", SuperscriptBox["x1", "2"]}], "-", RowBox[{"x1", " ", "x2"}], "-", SuperscriptBox["x2", "2"], "-", RowBox[{"x1", " ", "x3"}], "-", RowBox[{"x2", " ", "x3"}], "-", SuperscriptBox["x3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "-", FractionBox[ RowBox[{"x2", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x3", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y2"}], "2"], "-", RowBox[{"x2", " ", "y2"}], "-", FractionBox[ RowBox[{"x3", " ", "y2"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y3"}], "2"], "-", FractionBox[ RowBox[{"x2", " ", "y3"}], "2"], "-", RowBox[{"x3", " ", "y3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x1"}], "-", RowBox[{"2", " ", "x2"}], "-", RowBox[{"2", " ", "x3"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "-", RowBox[{"2", " ", "y2"}], "-", RowBox[{"2", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "-", FractionBox[ RowBox[{"x2", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x3", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y2"}], "2"], "-", RowBox[{"x2", " ", "y2"}], "-", FractionBox[ RowBox[{"x3", " ", "y2"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y3"}], "2"], "-", FractionBox[ RowBox[{"x2", " ", "y3"}], "2"], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox["y1", "2"]}], "-", RowBox[{"y1", " ", "y2"}], "-", SuperscriptBox["y2", "2"], "-", RowBox[{"y1", " ", "y3"}], "-", RowBox[{"y2", " ", "y3"}], "-", SuperscriptBox["y3", "2"]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0", ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", "0", ",", "0", ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ",", RowBox[{"x1", "-", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ",", RowBox[{"x2", "-", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{"y1", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", FractionBox["1", "10"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", FractionBox["1", "10"]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{"\[Phi]l", ",", RowBox[{"{", RowBox[{"a", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], "}"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"\[Theta]l", ",", RowBox[{"{", RowBox[{"a", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], "}"}]}], "]"}]}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", " ", "y"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", " ", "y"}], ",", RowBox[{"y", "^", "2"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"tt", "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", RowBox[{"yl", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{ 3.4426474258030434`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.4472172028994017`*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.6187226885009537`*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.6187342020363007`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.6295206788826785`*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.6295212477237387`*^9}, {3.6295213424816413`*^9, 3.629521343230441*^9}, {3.6295215363119817`*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453326`*^9}, {3.62952693938987*^9, 3.6295269586559057`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.6295272827620754`*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.6295279912529197`*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723144`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.6303897587054663`*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.6304051736118226`*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.6888843311676183`*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.6898611683243747`*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.7519672427004204`*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384137`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057436`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492844`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252497`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.7636043584877663`*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464785`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.7637001721125293`*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074884`*^9}, {3.7637137795793204`*^9, 3.763713782258724*^9}, {3.7637148704355206`*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.7637276688363695`*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278803`*^9, 3.7638147811883106`*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.7639435187320595`*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423395`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.7641268543573823`*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.7641271469362793`*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.7641276925365777`*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285366`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.7641327968340383`*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577617`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879424`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375645`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090524`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.7647349484962816`*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.7647364592833548`*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.7647653614173484`*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.7647674608323884`*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.7648118616019893`*^9, 3.7648118695079145`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.7648136479313254`*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825195`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.7648175917802978`*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613126984`*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719593`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103933`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.7848862212876143`*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029386`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.7848876786672807`*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.7848877625809565`*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827814`*^9, {3.7877286510229883`*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.7877299039179955`*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.7877320780358686`*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.7877325848303604`*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.7877330271019063`*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369607`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.7877356541994553`*^9, 3.7877356632141013`*^9}, 3.7877357913476562`*^9, 3.787736261837074*^9, {3.7882542159043393`*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.7882545888318543`*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.7882563614677377`*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.7882568724526587`*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.7882765465512366`*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.7882770424485207`*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366194`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.7883288805716743`*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.7883339555470405`*^9, 3.7883339660305185`*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.7883343918754964`*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803463`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429923`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.7890967741973276`*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.7891091628149366`*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.7891113582877164`*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.7891114952359977`*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.7891188764873796`*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.7891226653529243`*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.78912356613609*^9, 3.789123568875408*^9}, { 3.843539375196118*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, {3.843548477790007*^9, 3.843548488262038*^9}, { 3.843548969108399*^9, 3.843548981201047*^9}, {3.843549142037131*^9, 3.8435491556997023`*^9}, {3.843549197734703*^9, 3.843549198243879*^9}, 3.8435492510860806`*^9, {3.843549508166094*^9, 3.843549513194879*^9}, { 3.843549585693662*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, {3.84355004136615*^9, 3.843550041760812*^9}, { 3.843550160256809*^9, 3.8435501604677615`*^9}, {3.843553212025095*^9, 3.843553317388692*^9}, {3.843553523973165*^9, 3.8435535314678483`*^9}, { 3.843553580875799*^9, 3.843553663159541*^9}, {3.843553779645311*^9, 3.843553786004609*^9}, 3.843553906141655*^9, 3.84355405714793*^9, { 3.843554149489615*^9, 3.8435541503712645`*^9}, {3.843554206843628*^9, 3.843554207104446*^9}, {3.8435543508802266`*^9, 3.843554351606327*^9}, { 3.843554424038799*^9, 3.843554424227161*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, {3.843560832774662*^9, 3.8435608400784*^9}, { 3.843561442743278*^9, 3.843561449585733*^9}, {3.843561686280421*^9, 3.8435617473408446`*^9}, {3.843561841622026*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.843562039941851*^9, 3.8435620427564745`*^9}, 3.8435620999099693`*^9, {3.843562319425266*^9, 3.843562335822353*^9}, {3.843562479271407*^9, 3.8435624872362185`*^9}, { 3.8435625915602407`*^9, 3.843562614304778*^9}, {3.843562735879742*^9, 3.843562741836786*^9}, {3.843614355746326*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.843614888054445*^9}, { 3.843615637703328*^9, 3.843615694026068*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.843621167489939*^9}, { 3.843621224821956*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.843623522841966*^9, {3.843710421018984*^9, 3.843710422106656*^9}, {3.843710498981309*^9, 3.843710537614964*^9}, { 3.843710579319264*^9, 3.843710645627423*^9}, {3.8437106875546417`*^9, 3.843710688153476*^9}, {3.843710725428294*^9, 3.843710785146202*^9}, { 3.843710821351383*^9, 3.8437110234294205`*^9}, {3.8437111173417177`*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143297`*^9, 3.843711371873471*^9}, {3.843711579018824*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.8437118059023924`*^9, 3.843711810425566*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.843711963752302*^9, 3.8437119924289055`*^9}, { 3.843712070094509*^9, 3.843712071922304*^9}, {3.843730381197662*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.84373074599081*^9}, { 3.8437396200557556`*^9, 3.84373964194144*^9}, 3.843886670451059*^9, 3.843886720320431*^9, 3.84388678658553*^9, {3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.84388691534828*^9}, { 3.844322793599933*^9, 3.844322874140069*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, { 3.844325560745083*^9, 3.84432556531176*^9}, {3.844325729234998*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.844327189735308*^9}, 3.844327630363053*^9, 3.844327741570508*^9, {3.844327837371322*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, { 3.8443286085720396`*^9, 3.844328633889926*^9}, {3.844328780662943*^9, 3.844328797514555*^9}, 3.844328890335701*^9, 3.844329541823058*^9, 3.8443297290733314`*^9, 3.8443298258170156`*^9, 3.8443299792211103`*^9, { 3.844330023182226*^9, 3.844330024162663*^9}, {3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.844330446631555*^9, 3.84438870778086*^9, { 3.844388798979218*^9, 3.844388816606941*^9}, {3.844388850689955*^9, 3.84438889324323*^9}, 3.844389157904079*^9, {3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.844389452162907*^9}, 3.844389648527203*^9, {3.844389787619921*^9, 3.844389824625575*^9}, 3.844390010919503*^9, {3.844390820677456*^9, 3.844390827824874*^9}, { 3.844390920777023*^9, 3.844391008880832*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, { 3.844394341187828*^9, 3.84439434358472*^9}, {3.844394435078337*^9, 3.8443944719623656`*^9}, 3.844394554883594*^9, 3.844394790974487*^9, 3.844394878078925*^9, 3.844395085745798*^9, {3.8443953351049013`*^9, 3.844395416952881*^9}, {3.844395746514305*^9, 3.844395749726533*^9}, 3.8443958397241535`*^9, {3.844395921167213*^9, 3.844395924888271*^9}, { 3.844396047953732*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.844396736595009*^9, 3.8443967370378094`*^9}, 3.844397220019979*^9, {3.8444115993210382`*^9, 3.844411599518702*^9}, { 3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.844411795560471*^9, 3.844412083809191*^9, 3.844412348656451*^9, {3.8444124716223226`*^9, 3.844412479699933*^9}, {3.844412549525554*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, { 3.844500043831334*^9, 3.844500055281495*^9}, 3.844500094473071*^9, { 3.844500426135293*^9, 3.8445004336024866`*^9}, 3.844500503309535*^9, { 3.84450071418834*^9, 3.8445007145632133`*^9}, 3.84450075086576*^9, { 3.844500802343947*^9, 3.844500805685542*^9}, {3.844500857916894*^9, 3.844500860801999*^9}, {3.844500943507424*^9, 3.844501037877049*^9}, { 3.844501486443882*^9, 3.844501488956464*^9}, {3.844501593768973*^9, 3.844501608748468*^9}, {3.8445019589459066`*^9, 3.844501961840052*^9}, { 3.844514253644258*^9, 3.844514303852824*^9}, {3.844514457425339*^9, 3.844514533772487*^9}, {3.844514612109014*^9, 3.844514612805125*^9}, { 3.844515261851603*^9, 3.8445152626808715`*^9}, {3.84451667854188*^9, 3.844516697836839*^9}, {3.844516838420943*^9, 3.8445168531952915`*^9}, 3.844516936102404*^9, {3.844517144912083*^9, 3.8445171602908783`*^9}, { 3.844517313347111*^9, 3.844517374315425*^9}, {3.844563740797083*^9, 3.844563842955555*^9}, {3.844564763261811*^9, 3.844564764558693*^9}, { 3.844564893032794*^9, 3.84456489663636*^9}, 3.844566001126281*^9, { 3.8445661160863905`*^9, 3.844566152674224*^9}, {3.844566264323254*^9, 3.8445663747877293`*^9}, {3.8445664543449287`*^9, 3.844566491779601*^9}, { 3.8445666670048437`*^9, 3.844566737824574*^9}, {3.84456677184741*^9, 3.844566920849174*^9}, {3.8445681586856985`*^9, 3.844568160392629*^9}, { 3.844568433360468*^9, 3.844568473119632*^9}, {3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, {3.844569099528115*^9, 3.844569106514072*^9}, {3.84456915365086*^9, 3.8445691542699227`*^9}, { 3.844569863903719*^9, 3.844569864239865*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, {3.844570136399222*^9, 3.84457022295549*^9}, { 3.8445702927401485`*^9, 3.844570294372793*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, {3.844570433361819*^9, 3.844570434479186*^9}, { 3.8445708385437922`*^9, 3.844570865548447*^9}, 3.844571903853661*^9, { 3.84457369886672*^9, 3.844573716165063*^9}, {3.844573766574627*^9, 3.844573766741207*^9}, {3.8445738390520935`*^9, 3.8445738397153697`*^9}, { 3.844574626193658*^9, 3.844574626336315*^9}, 3.844575493401444*^9, { 3.844575765512229*^9, 3.844575767006411*^9}, {3.844579780857963*^9, 3.844579782490683*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, { 3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, {3.84458086608232*^9, 3.844580867257543*^9}, { 3.84458107041544*^9, 3.844581084375619*^9}, {3.844581257892597*^9, 3.8445812836521835`*^9}, {3.844581448612855*^9, 3.844581454694955*^9}, 3.844581591902594*^9, 3.844581696367975*^9, 3.84458187612302*^9, { 3.844581973276004*^9, 3.84458197871758*^9}, {3.844582059180128*^9, 3.844582066927915*^9}, {3.844766120152509*^9, 3.844766220989109*^9}, { 3.8447666299757333`*^9, 3.844766632861744*^9}, {3.844766992478299*^9, 3.844766998824834*^9}, {3.844767166360729*^9, 3.844767168582199*^9}, { 3.844767297264483*^9, 3.844767489140806*^9}, {3.844767520275888*^9, 3.8447677076499176`*^9}, {3.844767738616096*^9, 3.844767751930085*^9}, { 3.844767836749477*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, {3.844823802025931*^9, 3.844823815288933*^9}, { 3.844823957041947*^9, 3.844823958513931*^9}, {3.844824300419433*^9, 3.8448243149899445`*^9}, 3.8448243583360677`*^9, 3.844934867394837*^9, 3.845011466205801*^9, {3.845011720770907*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, {3.8450126148924513`*^9, 3.845012615094584*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, {3.845183946334877*^9, 3.84518395366415*^9}, { 3.845184051418418*^9, 3.845184051668001*^9}, {3.845184151642857*^9, 3.845184154374053*^9}, {3.845184357905266*^9, 3.845184358065248*^9}, { 3.845184866633246*^9, 3.845184879284834*^9}, {3.8451856542674866`*^9, 3.845185661519927*^9}, 3.845185843485832*^9, 3.845188805837329*^9, { 3.845208711326853*^9, 3.8452087400435753`*^9}, {3.845208875513284*^9, 3.845208885710583*^9}, {3.845209024071977*^9, 3.8452090275669355`*^9}, { 3.845209172626273*^9, 3.845209185986019*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, {3.8452093525944805`*^9, 3.845209356766179*^9}, { 3.845209433342643*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, {3.845209834131934*^9, 3.845209849152528*^9}, { 3.8452099760880327`*^9, 3.8452099795576*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, {3.845210149230989*^9, 3.8452101507171693`*^9}, { 3.845210218508196*^9, 3.845210220505284*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, {3.8452104469844484`*^9, 3.845210448865471*^9}, { 3.845210722276207*^9, 3.8452107618886013`*^9}, {3.845210854073549*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.845211381714527*^9, { 3.845254413854666*^9, 3.845254415221461*^9}, {3.845254468266975*^9, 3.845254497242826*^9}, {3.845254813158949*^9, 3.845254813962109*^9}, { 3.845255159389332*^9, 3.84525516029975*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, {3.845373067136979*^9, 3.845373072521226*^9}, { 3.845373587636412*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, { 3.845374498509495*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.8453747280613594`*^9}, 3.845375413181964*^9, {3.845375667874572*^9, 3.845375678759179*^9}, {3.8453757305367117`*^9, 3.8453757318964834`*^9}, { 3.845375795765346*^9, 3.8453759475892797`*^9}, 3.8453762911344376`*^9, { 3.845376343496214*^9, 3.845376394269949*^9}, 3.8454413952988806`*^9, { 3.845460521349831*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, {3.84546074955602*^9, 3.8454607590768337`*^9}, { 3.845462509735139*^9, 3.845462509985168*^9}, {3.845465592798409*^9, 3.8454655941092825`*^9}, {3.8454656351939282`*^9, 3.8454657716449366`*^9}, {3.845465903191459*^9, 3.845465909137877*^9}, { 3.845466026436695*^9, 3.845466050881938*^9}, {3.845467038806765*^9, 3.8454670407645473`*^9}, {3.845469581897285*^9, 3.8454695927423058`*^9}, 3.845862819628897*^9, {3.845862969832185*^9, 3.845862991832585*^9}, { 3.84586302904202*^9, 3.845863076602502*^9}, {3.845863144857497*^9, 3.8458632007479205`*^9}, {3.845863269580724*^9, 3.8458632726734605`*^9}, { 3.845863307748892*^9, 3.845863335394053*^9}, {3.845863395099148*^9, 3.845863498099522*^9}, 3.845863530554716*^9, {3.845872590550046*^9, 3.8458726644563165`*^9}, {3.845872707441972*^9, 3.8458727236944923`*^9}, { 3.8458728091280537`*^9, 3.845872842539483*^9}, 3.8458728978104*^9, { 3.845873028140939*^9, 3.845873035135878*^9}, {3.871450164125084*^9, 3.8714502554214287`*^9}, {3.872142572742197*^9, 3.8721427609373026`*^9}, { 3.872142840427541*^9, 3.872142840883055*^9}, {3.872142896655*^9, 3.872142917424421*^9}, {3.8721449963870077`*^9, 3.872145039507191*^9}, 3.872145191693225*^9, {3.8721452535558643`*^9, 3.8721452614683323`*^9}, { 3.8721454606452465`*^9, 3.872145461207238*^9}, {3.8721454959954486`*^9, 3.872145666439913*^9}, {3.8721463568291063`*^9, 3.8721464000304537`*^9}, 3.872146500097483*^9, {3.872146851973781*^9, 3.872146852746259*^9}, 3.872147262770652*^9, {3.872147351165675*^9, 3.8721473513128633`*^9}, { 3.872147497705192*^9, 3.8721474978919225`*^9}, 3.8721475466992073`*^9, { 3.872148139106065*^9, 3.87214813930353*^9}, {3.872148320754292*^9, 3.872148397395355*^9}, {3.87214845820913*^9, 3.872148480628766*^9}, { 3.87214859403244*^9, 3.87214860703699*^9}, {3.872148663290126*^9, 3.8721487520433817`*^9}, {3.872148824743201*^9, 3.872148902742444*^9}, { 3.872148935949839*^9, 3.872149023546156*^9}, {3.872213393009148*^9, 3.8722133934518375`*^9}, {3.87221350499675*^9, 3.872213529209974*^9}, { 3.872213659965142*^9, 3.872213681955471*^9}, {3.872213744596975*^9, 3.872213809151699*^9}, {3.8722138865871687`*^9, 3.8722139295251274`*^9}, { 3.872213982536057*^9, 3.87221403848046*^9}, {3.8722140989552727`*^9, 3.872214107845528*^9}, {3.872214137895868*^9, 3.8722142893449726`*^9}, { 3.872214417051723*^9, 3.8722145472945094`*^9}, {3.8722145786749644`*^9, 3.872214590315936*^9}, 3.87221471091652*^9, {3.872215042788278*^9, 3.872215043902081*^9}, {3.8722152572933474`*^9, 3.872215371703896*^9}, { 3.872215411022002*^9, 3.872215454388228*^9}, {3.872215550375183*^9, 3.872215740499053*^9}, {3.8722157757875776`*^9, 3.872215807198301*^9}, { 3.872215920096699*^9, 3.872215931905471*^9}, {3.8722160301905737`*^9, 3.872216078912943*^9}, {3.872216114627706*^9, 3.8722161292769437`*^9}, 3.872216309435096*^9, {3.872216936793627*^9, 3.872216939128669*^9}, { 3.872217105838874*^9, 3.8722171088004866`*^9}, {3.872303780081046*^9, 3.872303786357215*^9}, {3.8723038261085763`*^9, 3.872303872254692*^9}, { 3.872329932280166*^9, 3.8723299331835856`*^9}, {3.8723303810927143`*^9, 3.872330453374918*^9}, 3.872330551646683*^9, {3.8723306559668875`*^9, 3.8723306710310755`*^9}, 3.872330715269043*^9, {3.872331028051035*^9, 3.8723310379440203`*^9}, 3.872331487604269*^9, 3.8723316379997387`*^9, { 3.872486150906661*^9, 3.872486161039858*^9}, 3.872486279962668*^9, 3.872486393600391*^9, 3.872486468278393*^9, {3.873365469104997*^9, 3.8733654698712363`*^9}, {3.873677944453262*^9, 3.873677950380515*^9}, { 3.875499692482862*^9, 3.875499694904428*^9}, {3.875499735370851*^9, 3.875499740556001*^9}, {3.8754998347031293`*^9, 3.8754998937304335`*^9}, { 3.875499932595894*^9, 3.8754999689474635`*^9}, {3.8812849154371758`*^9, 3.881284918933765*^9}, 3.881284954231558*^9, {3.881451602713085*^9, 3.881451614093295*^9}, {3.881451714045*^9, 3.8814517157468743`*^9}, { 3.8814521694170623`*^9, 3.881452179338612*^9}, {3.8814522420137105`*^9, 3.881452256693831*^9}, {3.88145331366347*^9, 3.881453314809705*^9}, { 3.8814541164513035`*^9, 3.881454118586579*^9}, {3.881629613013402*^9, 3.881629614829296*^9}, {3.881629663029282*^9, 3.8816296633358903`*^9}, { 3.8996140402271814`*^9, 3.899614052414727*^9}, {3.899614144726322*^9, 3.899614220781108*^9}, {3.899614399184095*^9, 3.899614405995703*^9}, { 3.899614484325173*^9, 3.899614515097926*^9}, {3.89993981260349*^9, 3.899939858973516*^9}, {3.900202537457901*^9, 3.9002025510911026`*^9}, { 3.900202620939277*^9, 3.900202630202018*^9}, {3.90020267152352*^9, 3.900202738565181*^9}, {3.900203000555484*^9, 3.9002030042122483`*^9}, { 3.900203054428105*^9, 3.900203268644064*^9}, {3.90020334244709*^9, 3.900203411197331*^9}, {3.9002034424934406`*^9, 3.900203568473293*^9}, { 3.900203618968501*^9, 3.900203856912396*^9}, {3.900204035238458*^9, 3.900204057363124*^9}, {3.900645114185281*^9, 3.900645142218366*^9}, { 3.900645178356884*^9, 3.900645249212589*^9}, {3.900645330212696*^9, 3.900645333591104*^9}, 3.900645433688914*^9, 3.9006455518391867`*^9, { 3.9006455870513678`*^9, 3.900645593188841*^9}, {3.900645629987667*^9, 3.900645649347145*^9}, {3.900645767812078*^9, 3.900645774339058*^9}, { 3.9006636807791877`*^9, 3.90066368267039*^9}, {3.900719086744789*^9, 3.900719190990218*^9}, {3.9007192678826656`*^9, 3.900719285241291*^9}, { 3.900719351095579*^9, 3.9007193749411306`*^9}, {3.900719423876374*^9, 3.9007194371794863`*^9}, {3.900719488553488*^9, 3.900719502451603*^9}, { 3.900719558492564*^9, 3.900719575941984*^9}, {3.900719626662781*^9, 3.900719668279553*^9}, {3.900719731035082*^9, 3.900719798059276*^9}, { 3.900719947901816*^9, 3.900720118873615*^9}, {3.900720196008991*^9, 3.900720207973699*^9}, {3.901706152422053*^9, 3.901706163300823*^9}, { 3.902360328950551*^9, 3.902360426573103*^9}, {3.9024547057599287`*^9, 3.902455082025207*^9}, {3.902455524456551*^9, 3.902455559665468*^9}, { 3.902705203839532*^9, 3.90270527895368*^9}, {3.9027053103449783`*^9, 3.902705313451781*^9}, {3.902705388953588*^9, 3.902705397807787*^9}, 3.902705702452123*^9, {3.902706017534409*^9, 3.9027060759699917`*^9}, { 3.9027061195093584`*^9, 3.90270613225747*^9}, {3.90270640763892*^9, 3.9027064124182587`*^9}, {3.90270645896745*^9, 3.90270651421517*^9}, { 3.902706585563101*^9, 3.902706586845651*^9}, {3.9027138615096445`*^9, 3.902713863610361*^9}, {3.903052832707532*^9, 3.903052916020043*^9}, { 3.9123040622378097`*^9, 3.912304063247692*^9}},ExpressionUUID->"ba7abfa6-79b9-7547-9719-\ 736ddf1deba9"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.6303896070263996`*^9, 3.6303896080872*^9}, 3.843539451766064*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}, { 3.887436124423489*^9, 3.887436125319591*^9}},ExpressionUUID->"61d7ea2b-8703-a54a-9b71-\ c48d82d087d6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"time", " ", "derivatives"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v0"}], "-", "\[Psi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u0"}], "+", "\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]0"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]0"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w0"}], "+", "\[Theta]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w0"}], "-", "\[Phi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", "tt"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.91481238356448*^9, {3.914812443601389*^9, 3.914812444499181*^9}, { 3.914812481734718*^9, 3.914812511059257*^9}, {3.914812560549828*^9, 3.914812644059761*^9}, {3.9148127266055717`*^9, 3.9148127422091484`*^9}, { 3.914812940850784*^9, 3.91481294102128*^9}, {3.9148206602203026`*^9, 3.914820660385198*^9}}, CellLabel-> "In[212]:=",ExpressionUUID->"21718ce5-40e6-7c44-81b6-2cfa63d3b567"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "MITC3"}], "-", "defs"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "NN", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "MR", ",", "ML", ",", "a1", ",", "a2", ",", "a3", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Phi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Phi]2", ",", "\[Pi]\[Theta]2", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", "xl"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", "yl"}], ";", "\[IndentingNewLine]", RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "+", RowBox[{"2", " ", "y2"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x2", " ", "y1"}], "+", RowBox[{"2", " ", "x1", " ", "y2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y2"}], "+", RowBox[{"2", " ", "y3"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x3", " ", "y2"}], "+", RowBox[{"2", " ", "x2", " ", "y3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{"2", " ", "x3", " ", "y1"}], "-", RowBox[{"2", " ", "x1", " ", "y3"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l"}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ".", RowBox[{"{", RowBox[{"a1", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ".", RowBox[{"{", RowBox[{"a2", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"time", " ", "derivatives"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]0", ",", "\[Pi]\[Theta]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]2", ",", "\[Pi]\[Theta]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v0"}], "-", "\[Psi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u0"}], "+", "\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]0"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]0"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w0"}], "+", "\[Pi]\[Theta]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w0"}], "-", "\[Pi]\[Phi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", "AA"}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", "tt"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ")"}], "*", "AA", "*", "2"}], " ", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119407`*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887546`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.882923992120928*^9, 3.8829239931719933`*^9}, 3.882924031342839*^9, { 3.882924165353904*^9, 3.882924385597968*^9}, {3.8829244736655493`*^9, 3.8829245350893607`*^9}, {3.882924571592681*^9, 3.882924648904628*^9}, { 3.882924688614608*^9, 3.882924699643349*^9}, {3.8869300641683235`*^9, 3.886930072145953*^9}}, CellLabel-> "In[1021]:=",ExpressionUUID->"5fd1ecd9-38bb-7441-bee3-69d587961cb4"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (stab) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221285`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.871449974024082*^9, 3.871449982071842*^9}, 3.8874362080815187`*^9, {3.91369320882834*^9, 3.913693210196746*^9}},ExpressionUUID->"c99b3acb-26cc-f54b-8062-\ c71f32081b16"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119407`*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887546`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.883878524033059*^9, 3.883878552260868*^9}, {3.883878673886747*^9, 3.8838787736569095`*^9}, 3.8838789081969495`*^9, {3.8838789918027105`*^9, 3.8838790117732425`*^9}, {3.883880086846592*^9, 3.8838801009284153`*^9}, { 3.883880256860402*^9, 3.883880290044121*^9}, {3.883880780155187*^9, 3.883880780289626*^9}, {3.9153274069136124`*^9, 3.915327521101465*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"07209911-6558-054e-a0b1-a8c65956f65f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "NN", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "MR", ",", "ML", ",", "a1", ",", "a2", ",", "a3", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "map"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NN"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", "xl"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", "yl"}], ";", "\[IndentingNewLine]", RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "+", RowBox[{"2", " ", "y2"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x2", " ", "y1"}], "+", RowBox[{"2", " ", "x1", " ", "y2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y2"}], "+", RowBox[{"2", " ", "y3"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x3", " ", "y2"}], "+", RowBox[{"2", " ", "x2", " ", "y3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{"2", " ", "x3", " ", "y1"}], "-", RowBox[{"2", " ", "x1", " ", "y3"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l"}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ".", RowBox[{"{", RowBox[{"a1", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}], ".", RowBox[{"{", RowBox[{"a2", ",", "a3"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "10"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119407`*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887546`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, 3.875500284907268*^9, {3.875500611466708*^9, 3.875500613266591*^9}, {3.8755006679343586`*^9, 3.875500743572335*^9}, { 3.875500931213465*^9, 3.87550100303867*^9}, {3.8765474689470725`*^9, 3.8765474755906963`*^9}, {3.88137623767526*^9, 3.88137624172025*^9}, { 3.88145221573418*^9, 3.881452220873501*^9}, {3.8816298270827007`*^9, 3.881629827691717*^9}, {3.881631042966625*^9, 3.881631045327747*^9}, { 3.881631142975204*^9, 3.881631144525417*^9}, {3.881631322997718*^9, 3.881631361196102*^9}, {3.881631777212591*^9, 3.8816317798052287`*^9}, { 3.883878524033059*^9, 3.883878552260868*^9}, {3.883878673886747*^9, 3.8838787736569095`*^9}, 3.8838789081969495`*^9, {3.8838789918027105`*^9, 3.8838790117732425`*^9}, {3.883880086846592*^9, 3.8838801009284153`*^9}, { 3.883880256860402*^9, 3.883880290044121*^9}, {3.883880780155187*^9, 3.883880780289626*^9}, {3.9153274069136124`*^9, 3.915327490840666*^9}},ExpressionUUID->"acf2551e-64bd-4d47-8060-\ 3ea993d2d948"] }, Closed]], Cell[CellGroupData[{ Cell["PLATE ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.85088560989944*^9, 3.850885610881031*^9}, {3.87144996730003*^9, 3.871449969661963*^9}, 3.8874362142899017`*^9, {3.9136921338302*^9, 3.913692134659543*^9}},ExpressionUUID->"c377ff00-9c36-7e4e-ac8b-\ 455e80e5a0fb"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}], "}"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"potential", " ", "energy", " ", "version"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "uint", ",", "uext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{"du", ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}], "}"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"uint", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]\[Epsilon]", ".", "N"}], "+", RowBox[{"\[Kappa]\[Kappa]", ".", "M"}], "+", RowBox[{"\[Gamma]\[Gamma]", ".", "Q"}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"uext", "=", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI1", ",", RowBox[{"uint", "+", "uext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, 3.7890961565048018`*^9, {3.789096242941472*^9, 3.789096245287495*^9}, {3.789096286771101*^9, 3.789096287939043*^9}, { 3.7890963300637918`*^9, 3.789096330454324*^9}, {3.789096421623994*^9, 3.789096482010544*^9}, {3.789123616007924*^9, 3.7891236603119407`*^9}, { 3.82004560462539*^9, 3.820045628865552*^9}, {3.820045711583801*^9, 3.82004571444415*^9}, {3.82004574552601*^9, 3.820045814665622*^9}, { 3.8200459471200194`*^9, 3.820045947496038*^9}, {3.820113346283964*^9, 3.820113420687029*^9}, {3.843547853319944*^9, 3.843547859681176*^9}, { 3.843547901950356*^9, 3.8435479743034277`*^9}, {3.843560932189252*^9, 3.8435609338416433`*^9}, {3.843561191426139*^9, 3.843561192063248*^9}, { 3.8435624320536933`*^9, 3.8435624411683536`*^9}, {3.8437295238924494`*^9, 3.843729569229367*^9}, {3.844392042557998*^9, 3.844392043749901*^9}, { 3.844392085066965*^9, 3.84439210220125*^9}, 3.844392133895133*^9, { 3.8443921701680193`*^9, 3.84439219379717*^9}, {3.844513395563983*^9, 3.844513408599645*^9}, {3.844768367410435*^9, 3.844768368670556*^9}, { 3.8447684443309875`*^9, 3.8447684484900866`*^9}, 3.8447686520157948`*^9, { 3.844768745687599*^9, 3.844768745855211*^9}, 3.845183304458513*^9, { 3.8451835940010877`*^9, 3.845183594542489*^9}, {3.845184390302038*^9, 3.845184391945329*^9}, {3.845184518465135*^9, 3.845184537503073*^9}, { 3.845184725810747*^9, 3.845184727862517*^9}, 3.8451848085573*^9, { 3.845255005543473*^9, 3.8452550701614428`*^9}, {3.845255116528925*^9, 3.845255130817441*^9}, {3.845255315949143*^9, 3.845255398239421*^9}, { 3.8452554316887546`*^9, 3.845255516323632*^9}, {3.845255572312236*^9, 3.84525558031181*^9}, {3.8452556104383307`*^9, 3.845255693908064*^9}, { 3.845527992682146*^9, 3.845528011954951*^9}, {3.8455280677849493`*^9, 3.845528206863275*^9}, 3.845528296510269*^9, {3.84552838544649*^9, 3.845528397266265*^9}, {3.845528511115641*^9, 3.845528620724532*^9}, { 3.8455286507394857`*^9, 3.845528677853769*^9}, {3.84552875397721*^9, 3.8455287832150126`*^9}, {3.8455288134263644`*^9, 3.845528824265949*^9}, { 3.845528882756366*^9, 3.845528933497317*^9}, {3.845529287839986*^9, 3.8455293012812443`*^9}, {3.8455293978278055`*^9, 3.845529398111139*^9}, { 3.845529499537836*^9, 3.8455295004065795`*^9}, {3.845609477072257*^9, 3.845609606518939*^9}, {3.845609662788809*^9, 3.845609668689152*^9}, { 3.845609712860342*^9, 3.8456097209108343`*^9}, {3.845609845478004*^9, 3.845609907655341*^9}, {3.845610309490755*^9, 3.845610323020236*^9}, { 3.845610368769788*^9, 3.845610376316151*^9}, {3.845610434176654*^9, 3.84561049090069*^9}, 3.845610522214707*^9, 3.845610786642021*^9, { 3.8456108553684444`*^9, 3.845610855574578*^9}, {3.845611041459861*^9, 3.845611043810052*^9}, {3.845611616549171*^9, 3.845611728349157*^9}, { 3.845611776996984*^9, 3.845611822036349*^9}, {3.8456118703237553`*^9, 3.845611983115148*^9}, {3.845612402298138*^9, 3.845612422458346*^9}, { 3.845612716473353*^9, 3.845612740344495*^9}, {3.845780852075635*^9, 3.845780865711434*^9}, {3.8457821230286*^9, 3.845782123716519*^9}, { 3.845782552192021*^9, 3.845782609179036*^9}, {3.845782729323619*^9, 3.8457827515157847`*^9}, {3.845782785128273*^9, 3.845782803453997*^9}, { 3.845782834473631*^9, 3.8457828358311925`*^9}, {3.845783094796917*^9, 3.8457830991701584`*^9}, {3.845783336154287*^9, 3.845783501335464*^9}, { 3.845783531957113*^9, 3.845783568052552*^9}, 3.845783764414663*^9, 3.84578597144022*^9, 3.8457864896793737`*^9, {3.845787119546991*^9, 3.84578713411397*^9}, {3.845787696751997*^9, 3.8457877204318814`*^9}, 3.8457882983714895`*^9, {3.8457885986921697`*^9, 3.84578861690474*^9}, { 3.845788708870752*^9, 3.8457887217894297`*^9}, {3.845788790921081*^9, 3.8457888144201937`*^9}, {3.845788890651933*^9, 3.8457889466368628`*^9}, { 3.845789041645983*^9, 3.845789052312254*^9}, {3.845789116545609*^9, 3.845789118074416*^9}, {3.845789226429738*^9, 3.845789229202458*^9}, { 3.845790510151396*^9, 3.845790519684927*^9}, 3.845790635757055*^9, { 3.8458635760826883`*^9, 3.845863582446103*^9}, {3.845863669673208*^9, 3.845863680633752*^9}, {3.845863719878361*^9, 3.845863725217595*^9}, 3.845864303996428*^9, {3.845864896377093*^9, 3.845864922857035*^9}, 3.845865459297726*^9, {3.8458655305222178`*^9, 3.845865533812125*^9}, 3.8458656269752*^9, 3.8458662253983583`*^9, {3.845866315341114*^9, 3.845866316735467*^9}, {3.845866463023888*^9, 3.845866520383334*^9}, { 3.845866555205945*^9, 3.845866566614134*^9}, {3.845866724894957*^9, 3.8458667295073595`*^9}, {3.8458670210920024`*^9, 3.845867023102818*^9}, 3.845867112906357*^9, 3.845867229569983*^9, 3.845867522574538*^9, { 3.845867616322856*^9, 3.845867616819559*^9}, {3.8458677144565196`*^9, 3.8458677161961637`*^9}, {3.845867821061138*^9, 3.845867825279958*^9}, 3.845868006648507*^9, {3.845868278532402*^9, 3.845868302364672*^9}, { 3.8458688185729504`*^9, 3.845868834819693*^9}, {3.845869294519817*^9, 3.845869295105886*^9}, {3.850885621590944*^9, 3.85088563233187*^9}, 3.8508857589241548`*^9, {3.861841963365331*^9, 3.861841997560587*^9}, { 3.861842048744185*^9, 3.861842114128385*^9}, {3.861842163009183*^9, 3.861842223351238*^9}, 3.861842386723676*^9, 3.8816319430759635`*^9, 3.8816319753570204`*^9, {3.881632016294094*^9, 3.881632029370707*^9}, { 3.881632064066745*^9, 3.881632070103604*^9}, {3.8816321503156757`*^9, 3.881632174804228*^9}, {3.8816322150035825`*^9, 3.881632330298866*^9}, { 3.881632397219624*^9, 3.8816324149554744`*^9}, {3.881632779885769*^9, 3.8816327838631463`*^9}, {3.881634845865536*^9, 3.8816348490255485`*^9}, 3.881636148984031*^9, {3.881636722021798*^9, 3.881636729311616*^9}, { 3.881636957563582*^9, 3.881636964193262*^9}, {3.881647304639271*^9, 3.881647315918081*^9}, {3.881647363529108*^9, 3.8816473661962705`*^9}, { 3.8816492673250976`*^9, 3.881649282688704*^9}, {3.881902003658046*^9, 3.8819020105924845`*^9}, {3.91369063169688*^9, 3.913690674817251*^9}, { 3.913690772901119*^9, 3.913690780459395*^9}, {3.913690833928227*^9, 3.9136908803565955`*^9}, 3.913691217208093*^9, {3.913692148921995*^9, 3.913692183905402*^9}, {3.913692214717695*^9, 3.9136922917553687`*^9}}, CellLabel-> "In[216]:=",ExpressionUUID->"c713b8e7-41a3-004c-9f63-592b2f01322c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["SHELL MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531574263208*^9, 3.817531589861446*^9}, {3.906854925804427*^9, 3.906854927362543*^9}},ExpressionUUID->"58dbf096-4407-ac44-bfe2-\ 434a7d43962d"], Cell[CellGroupData[{ Cell["SHELL ELEMENT (disp) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070263996`*^9, 3.6303896080872*^9}, 3.843539451766064*^9},ExpressionUUID->"43ec597b-1ee6-0c49-b99b-\ f7203ee2206f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "edg", ",", "ull", ",", "vll", ",", "wll", ",", "dv", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"midnode", " ", "displacements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ull", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dv", "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"ull", ",", "vll", ",", "wll"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"du", "+", "dv"}], ")"}], ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.906856415971823*^9, 3.906856429096719*^9}, 3.906856917076063*^9, {3.90685695054868*^9, 3.906856950898304*^9}, { 3.9068570706161394`*^9, 3.906857115947425*^9}, {3.90685739364529*^9, 3.906857410298019*^9}, {3.907635677874367*^9, 3.9076356878761315`*^9}, { 3.907635721360049*^9, 3.907635772461808*^9}, {3.907635823020349*^9, 3.9076358341704893`*^9}, {3.912057728433032*^9, 3.9120577851937127`*^9}, { 3.912058364885042*^9, 3.912058421096153*^9}, 3.914893716525513*^9, { 3.914894646030657*^9, 3.9148946549640408`*^9}, {3.915327785960003*^9, 3.915327865015663*^9}}, CellLabel-> "In[220]:=",ExpressionUUID->"fb429d89-627f-8a4f-a1eb-35711ef5467f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "uL", ",", "vL", ",", "wL", ",", "\[Phi]L", ",", "\[Theta]L", ",", "\[Psi]L", ",", "AA", ",", "NN", ",", "MM", ",", "NM", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ML", ",", "MR", ",", "aa", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "fx", ",", "fy", ",", "fz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "edg"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"uL", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vL", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wL", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]L", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]L", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]L", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"uL", ",", "vL", ",", "wL"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"\[Phi]L", ",", "\[Theta]L", ",", "\[Psi]L"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], "=", "xl"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}], "=", "yl"}], ";", "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "x2", ",", "x3"}], "}"}], ",", RowBox[{"{", RowBox[{"y1", ",", "y2", ",", "y3"}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"NM", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "2"}], "-", RowBox[{ RowBox[{"MM", "[", RowBox[{"[", "3", "]"}], "]"}], "/", "2"}]}]}], "}"}], ",", "MM"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NM"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NM"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "NM"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "NM"}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], ",", RowBox[{"a", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], ",", RowBox[{"a", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC7", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "y1"}], "+", RowBox[{"6", " ", "y2"}]}], ",", RowBox[{ RowBox[{"6", " ", "x1"}], "-", RowBox[{"6", " ", "x2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "y1"}], "-", RowBox[{"3", " ", "x2", " ", "y1"}], "+", RowBox[{"3", " ", "x1", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x1", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["x2", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["y1", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["y2", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "y1"}], "-", RowBox[{"3", " ", "x2", " ", "y1"}], "+", RowBox[{"3", " ", "x1", " ", "y2"}], "-", RowBox[{"3", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "x2", " ", "y1"}], "-", RowBox[{"3", " ", SuperscriptBox["x2", "2"], " ", "y1"}], "+", RowBox[{"3", " ", SuperscriptBox["x1", "2"], " ", "y2"}], "+", RowBox[{"3", " ", "x1", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", SuperscriptBox["y1", "2"]}], "+", RowBox[{"3", " ", "x1", " ", "y1", " ", "y2"}], "-", RowBox[{"3", " ", "x2", " ", "y1", " ", "y2"}], "+", RowBox[{"3", " ", "x1", " ", SuperscriptBox["y2", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "y2"}], "+", RowBox[{"6", " ", "y3"}]}], ",", RowBox[{ RowBox[{"6", " ", "x2"}], "-", RowBox[{"6", " ", "x3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", "y2"}], "-", RowBox[{"3", " ", "x3", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x2", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["x3", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["y2", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["y3", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", "x2", " ", "y2"}], "-", RowBox[{"3", " ", "x3", " ", "y2"}], "+", RowBox[{"3", " ", "x2", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x2", " ", "x3", " ", "y2"}], "-", RowBox[{"3", " ", SuperscriptBox["x3", "2"], " ", "y2"}], "+", RowBox[{"3", " ", SuperscriptBox["x2", "2"], " ", "y3"}], "+", RowBox[{"3", " ", "x2", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x3", " ", SuperscriptBox["y2", "2"]}], "+", RowBox[{"3", " ", "x2", " ", "y2", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y2", " ", "y3"}], "+", RowBox[{"3", " ", "x2", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"6", " ", "y1"}], "-", RowBox[{"6", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", "x1"}], "+", RowBox[{"6", " ", "x3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "y1"}], "+", RowBox[{"3", " ", "x3", " ", "y1"}], "-", RowBox[{"3", " ", "x1", " ", "y3"}], "-", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["x1", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["x3", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["y3", "2"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "x1", " ", "y1"}], "+", RowBox[{"3", " ", "x3", " ", "y1"}], "-", RowBox[{"3", " ", "x1", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x1", " ", "x3", " ", "y1"}], "+", RowBox[{"3", " ", SuperscriptBox["x3", "2"], " ", "y1"}], "-", RowBox[{"3", " ", SuperscriptBox["x1", "2"], " ", "y3"}], "-", RowBox[{"3", " ", "x1", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"3", " ", "x3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"3", " ", "x1", " ", "y1", " ", "y3"}], "+", RowBox[{"3", " ", "x3", " ", "y1", " ", "y3"}], "-", RowBox[{"3", " ", "x1", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y1", "2"], "-", RowBox[{"2", " ", "y1", " ", "y2"}], "+", SuperscriptBox["y2", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "+", RowBox[{"x2", " ", "y1"}], "+", RowBox[{"x1", " ", "y2"}], "-", RowBox[{"x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"x1", " ", "x2", " ", "y1"}], "-", RowBox[{ SuperscriptBox["x2", "2"], " ", "y1"}], "-", RowBox[{ SuperscriptBox["x1", "2"], " ", "y2"}], "+", RowBox[{"x1", " ", "x2", " ", "y2"}]}], ",", RowBox[{ RowBox[{"x2", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"x1", " ", "y1", " ", "y2"}], "-", RowBox[{"x2", " ", "y1", " ", "y2"}], "+", RowBox[{"x1", " ", SuperscriptBox["y2", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y2", "2"], "-", RowBox[{"2", " ", "y2", " ", "y3"}], "+", SuperscriptBox["y3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x2"}], " ", "y2"}], "+", RowBox[{"x3", " ", "y2"}], "+", RowBox[{"x2", " ", "y3"}], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x2", " ", "x3", " ", "y2"}], "-", RowBox[{ SuperscriptBox["x3", "2"], " ", "y2"}], "-", RowBox[{ SuperscriptBox["x2", "2"], " ", "y3"}], "+", RowBox[{"x2", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x3", " ", SuperscriptBox["y2", "2"]}], "-", RowBox[{"x2", " ", "y2", " ", "y3"}], "-", RowBox[{"x3", " ", "y2", " ", "y3"}], "+", RowBox[{"x2", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}], "2"]}], ",", RowBox[{ SuperscriptBox["y1", "2"], "-", RowBox[{"2", " ", "y1", " ", "y3"}], "+", SuperscriptBox["y3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "+", RowBox[{"x3", " ", "y1"}], "+", RowBox[{"x1", " ", "y3"}], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x1", " ", "x3", " ", "y1"}], "-", RowBox[{ SuperscriptBox["x3", "2"], " ", "y1"}], "-", RowBox[{ SuperscriptBox["x1", "2"], " ", "y3"}], "+", RowBox[{"x1", " ", "x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"x3", " ", SuperscriptBox["y1", "2"]}], "-", RowBox[{"x1", " ", "y1", " ", "y3"}], "-", RowBox[{"x3", " ", "y1", " ", "y3"}], "+", RowBox[{"x1", " ", SuperscriptBox["y3", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x1"}], "-", RowBox[{"2", " ", "x2"}], "-", RowBox[{"2", " ", "x3"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "-", RowBox[{"2", " ", "y2"}], "-", RowBox[{"2", " ", "y3"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", SuperscriptBox["x1", "2"]}], "-", RowBox[{"x1", " ", "x2"}], "-", SuperscriptBox["x2", "2"], "-", RowBox[{"x1", " ", "x3"}], "-", RowBox[{"x2", " ", "x3"}], "-", SuperscriptBox["x3", "2"]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "-", FractionBox[ RowBox[{"x2", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x3", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y2"}], "2"], "-", RowBox[{"x2", " ", "y2"}], "-", FractionBox[ RowBox[{"x3", " ", "y2"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y3"}], "2"], "-", FractionBox[ RowBox[{"x2", " ", "y3"}], "2"], "-", RowBox[{"x3", " ", "y3"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "x1"}], "-", RowBox[{"2", " ", "x2"}], "-", RowBox[{"2", " ", "x3"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "y1"}], "-", RowBox[{"2", " ", "y2"}], "-", RowBox[{"2", " ", "y3"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", "y1"}], "-", FractionBox[ RowBox[{"x2", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x3", " ", "y1"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y2"}], "2"], "-", RowBox[{"x2", " ", "y2"}], "-", FractionBox[ RowBox[{"x3", " ", "y2"}], "2"], "-", FractionBox[ RowBox[{"x1", " ", "y3"}], "2"], "-", FractionBox[ RowBox[{"x2", " ", "y3"}], "2"], "-", RowBox[{"x3", " ", "y3"}]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox["y1", "2"]}], "-", RowBox[{"y1", " ", "y2"}], "-", SuperscriptBox["y2", "2"], "-", RowBox[{"y1", " ", "y3"}], "-", RowBox[{"y2", " ", "y3"}], "-", SuperscriptBox["y3", "2"]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0", ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", "0", ",", "0", ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", RowBox[{"4", " ", RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ",", RowBox[{"x1", "-", "x2"}], ",", RowBox[{"y1", "-", "y2"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ",", RowBox[{"x2", "-", "x3"}], ",", RowBox[{"y2", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ",", RowBox[{"x1", "-", "x3"}], ",", "0", ",", "0", ",", RowBox[{"y1", "-", "y3"}], ",", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", FractionBox["1", "10"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", FractionBox["1", "10"]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{"\[Phi]l", ",", RowBox[{"{", RowBox[{"a", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], "}"}]}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"\[Theta]l", ",", RowBox[{"{", RowBox[{"a", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], "]"}], "}"}]}], "]"}]}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", " ", "y"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "y", ",", RowBox[{"x", " ", "y"}], ",", RowBox[{"y", "^", "2"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MITC7", " ", "projection"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"ML", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x2"}], "2"], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x2"}], "2"], ",", "0", ",", "0", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x1", "+", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x2"}], " ", "y1"}], "+", RowBox[{"x1", " ", "y2"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"y1", "+", "y2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2", " ", "y1"}], "-", RowBox[{"x1", " ", "y2"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"y1", "-", "y2"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x2"}], "12"], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox["1", "12"]}], " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x2"}], " ", "y1"}], "+", RowBox[{"x1", " ", "y2"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2", " ", "y1"}], "-", RowBox[{"x1", " ", "y2"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x2", "-", "x3"}], "2"], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x2", "-", "x3"}], "2"], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x2", "+", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x3"}], " ", "y2"}], "+", RowBox[{"x2", " ", "y3"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"y2", "+", "y3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x3", " ", "y2"}], "-", RowBox[{"x2", " ", "y3"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"y2", "-", "y3"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x2", "-", "x3"}], "12"], ",", RowBox[{ RowBox[{"-", FractionBox["1", "12"]}], " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x3"}], " ", "y2"}], "+", RowBox[{"x2", " ", "y3"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x3", " ", "y2"}], "-", RowBox[{"x2", " ", "y3"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"y1", "-", "y3"}], "2"], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"y1", "-", "y3"}], "2"], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"x1", "+", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x3"}], " ", "y1"}], "+", RowBox[{"x1", " ", "y3"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"y1", "+", "y3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x3", " ", "y1"}], "-", RowBox[{"x1", " ", "y3"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"y1", "-", "y3"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", "0", ",", "0", ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x3"}], "12"], ",", RowBox[{ RowBox[{"-", FractionBox["1", "12"]}], " ", RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x3"}], " ", "y1"}], "+", RowBox[{"x1", " ", "y3"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x3", " ", "y1"}], "-", RowBox[{"x1", " ", "y3"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], ",", "0", ",", RowBox[{"-", FractionBox["1", "3"]}], ",", "0", ",", RowBox[{"-", FractionBox["1", "3"]}], ",", "0", ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x1", "2"]}], "-", SuperscriptBox["x2", "2"], "-", RowBox[{"x2", " ", "x3"}], "-", SuperscriptBox["x3", "2"], "-", RowBox[{"x1", " ", RowBox[{"(", RowBox[{"x2", "+", "x3"}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "y1"}], "+", "y2", "+", "y3"}], ")"}]}], "-", RowBox[{"x2", " ", RowBox[{"(", RowBox[{"y1", "+", RowBox[{"2", " ", "y2"}], "+", "y3"}], ")"}]}], "-", RowBox[{"x3", " ", RowBox[{"(", RowBox[{"y1", "+", "y2", "+", RowBox[{"2", " ", "y3"}]}], ")"}]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", "3"]}], ",", "0", ",", RowBox[{"-", FractionBox["1", "3"]}], ",", "0", ",", RowBox[{"-", FractionBox["1", "3"]}], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x1"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "y1"}], "+", "y2", "+", "y3"}], ")"}]}], "-", RowBox[{"x2", " ", RowBox[{"(", RowBox[{"y1", "+", RowBox[{"2", " ", "y2"}], "+", "y3"}], ")"}]}], "-", RowBox[{"x3", " ", RowBox[{"(", RowBox[{"y1", "+", "y2", "+", RowBox[{"2", " ", "y3"}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["y1", "2"]}], "-", SuperscriptBox["y2", "2"], "-", RowBox[{"y2", " ", "y3"}], "-", SuperscriptBox["y3", "2"], "-", RowBox[{"y1", " ", RowBox[{"(", RowBox[{"y2", "+", "y3"}], ")"}]}]}], ")"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"y1", "-", "y2"}], "6"], ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ")"}]}], ",", FractionBox[ RowBox[{"y1", "-", "y2"}], "6"], ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ")"}]}], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], "3"], ",", RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], " ", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y2"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x2"}], "12"], ",", FractionBox[ RowBox[{"y1", "-", "y2"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"y2", "-", "y3"}], "6"], ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ")"}]}], ",", FractionBox[ RowBox[{"y2", "-", "y3"}], "6"], ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ")"}]}], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"y2", "-", "y3"}], ")"}]}], "3"], ",", RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], " ", RowBox[{"(", RowBox[{"x2", "-", "x3"}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x2", "-", "x3"}], "12"], ",", FractionBox[ RowBox[{"y2", "-", "y3"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x2"}], "+", "x3"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x3"}], "6"], ",", "0", ",", "0", ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x3"}], "6"], ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"x1", "-", "x3"}], ")"}]}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y3"}], ")"}]}], ",", FractionBox[ RowBox[{"x1", "-", "x3"}], "12"], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"y1", "-", "y3"}], "12"], ",", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x3"}], ")"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox["1", "3"], ",", "0", ",", FractionBox["1", "3"], ",", "0", ",", FractionBox["1", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox["1", "3"], ",", "0", ",", FractionBox["1", "3"], ",", "0", ",", FractionBox["1", "3"]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"aa", "=", RowBox[{"-", RowBox[{ RowBox[{"Inverse", "[", "ML", "]"}], ".", "MR", ".", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l"}], "}"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{"NN", ",", RowBox[{"x", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{"NN", ",", RowBox[{"y", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"aa", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"strain", " ", "measures"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"1", "-", "\[Nu]\[Nu]"}]}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"tt", "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI7", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.788328880571675*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.788333955547042*^9, 3.78833396603052*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.788334391875498*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803487`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429947`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.789096774197328*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.789109162814938*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.789111358287718*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.789111495235999*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.78911887648738*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.789122665352926*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.78912356613609*^9, 3.789123568875408*^9}, { 3.843539375196118*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, {3.843548477790007*^9, 3.843548488262038*^9}, { 3.843548969108399*^9, 3.843548981201047*^9}, {3.843549142037131*^9, 3.8435491556997023`*^9}, {3.843549197734703*^9, 3.843549198243879*^9}, 3.8435492510860806`*^9, {3.843549508166094*^9, 3.843549513194879*^9}, { 3.843549585693662*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, {3.84355004136615*^9, 3.843550041760812*^9}, { 3.843550160256809*^9, 3.8435501604677615`*^9}, {3.843553212025095*^9, 3.843553317388692*^9}, {3.843553523973165*^9, 3.8435535314678483`*^9}, { 3.843553580875799*^9, 3.843553663159541*^9}, {3.843553779645311*^9, 3.843553786004609*^9}, 3.843553906141655*^9, 3.84355405714793*^9, { 3.843554149489615*^9, 3.8435541503712645`*^9}, {3.843554206843628*^9, 3.843554207104446*^9}, {3.8435543508802266`*^9, 3.843554351606327*^9}, { 3.843554424038799*^9, 3.843554424227161*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, {3.843560832774662*^9, 3.8435608400784*^9}, { 3.843561442743278*^9, 3.843561449585733*^9}, {3.843561686280421*^9, 3.843561747340845*^9}, {3.843561841622026*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.843562039941851*^9, 3.843562042756475*^9}, 3.8435620999099693`*^9, {3.843562319425266*^9, 3.843562335822353*^9}, {3.843562479271407*^9, 3.8435624872362185`*^9}, { 3.8435625915602407`*^9, 3.843562614304778*^9}, {3.843562735879742*^9, 3.843562741836786*^9}, {3.843614355746326*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.843614888054445*^9}, { 3.843615637703328*^9, 3.843615694026068*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.843621167489939*^9}, { 3.843621224821956*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.843623522841966*^9, {3.843710421018984*^9, 3.843710422106656*^9}, {3.843710498981309*^9, 3.843710537614964*^9}, { 3.843710579319264*^9, 3.843710645627423*^9}, {3.8437106875546417`*^9, 3.843710688153476*^9}, {3.843710725428294*^9, 3.843710785146202*^9}, { 3.843710821351383*^9, 3.8437110234294205`*^9}, {3.843711117341719*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143316`*^9, 3.843711371873471*^9}, {3.843711579018824*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.843711805902394*^9, 3.843711810425566*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.843711963752302*^9, 3.8437119924289055`*^9}, { 3.843712070094509*^9, 3.843712071922304*^9}, {3.843730381197662*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.84373074599081*^9}, { 3.8437396200557556`*^9, 3.84373964194144*^9}, 3.843886670451059*^9, 3.843886720320431*^9, 3.84388678658553*^9, {3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.84388691534828*^9}, { 3.844322793599933*^9, 3.844322874140069*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, { 3.844325560745083*^9, 3.84432556531176*^9}, {3.844325729234998*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.844327189735308*^9}, 3.844327630363053*^9, 3.844327741570508*^9, {3.844327837371322*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, { 3.8443286085720396`*^9, 3.844328633889926*^9}, {3.844328780662943*^9, 3.844328797514555*^9}, 3.844328890335701*^9, 3.844329541823058*^9, 3.8443297290733314`*^9, 3.8443298258170156`*^9, 3.8443299792211103`*^9, { 3.844330023182226*^9, 3.844330024162663*^9}, {3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.844330446631555*^9, 3.84438870778086*^9, { 3.844388798979218*^9, 3.844388816606941*^9}, {3.844388850689955*^9, 3.84438889324323*^9}, 3.844389157904079*^9, {3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.844389452162907*^9}, 3.844389648527203*^9, {3.844389787619921*^9, 3.844389824625575*^9}, 3.844390010919503*^9, {3.844390820677456*^9, 3.844390827824874*^9}, { 3.844390920777023*^9, 3.844391008880832*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, { 3.844394341187828*^9, 3.84439434358472*^9}, {3.844394435078337*^9, 3.844394471962366*^9}, 3.844394554883594*^9, 3.844394790974487*^9, 3.844394878078925*^9, 3.844395085745798*^9, {3.8443953351049013`*^9, 3.844395416952881*^9}, {3.844395746514305*^9, 3.844395749726533*^9}, 3.8443958397241535`*^9, {3.844395921167213*^9, 3.844395924888271*^9}, { 3.844396047953732*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.844396736595009*^9, 3.8443967370378094`*^9}, 3.844397220019979*^9, {3.8444115993210382`*^9, 3.844411599518702*^9}, { 3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.844411795560471*^9, 3.844412083809191*^9, 3.844412348656451*^9, {3.8444124716223226`*^9, 3.844412479699933*^9}, {3.844412549525554*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, { 3.844500043831334*^9, 3.844500055281495*^9}, 3.844500094473071*^9, { 3.844500426135293*^9, 3.8445004336024866`*^9}, 3.844500503309535*^9, { 3.84450071418834*^9, 3.8445007145632133`*^9}, 3.84450075086576*^9, { 3.844500802343947*^9, 3.844500805685542*^9}, {3.844500857916894*^9, 3.844500860801999*^9}, {3.844500943507424*^9, 3.844501037877049*^9}, { 3.844501486443882*^9, 3.844501488956464*^9}, {3.844501593768973*^9, 3.844501608748468*^9}, {3.844501958945907*^9, 3.844501961840052*^9}, { 3.844514253644258*^9, 3.844514303852824*^9}, {3.844514457425339*^9, 3.844514533772487*^9}, {3.844514612109014*^9, 3.844514612805125*^9}, { 3.844515261851603*^9, 3.8445152626808715`*^9}, {3.84451667854188*^9, 3.844516697836839*^9}, {3.844516838420943*^9, 3.8445168531952915`*^9}, 3.844516936102404*^9, {3.844517144912083*^9, 3.8445171602908783`*^9}, { 3.844517313347111*^9, 3.844517374315425*^9}, {3.844563740797083*^9, 3.844563842955555*^9}, {3.844564763261811*^9, 3.844564764558693*^9}, { 3.844564893032794*^9, 3.84456489663636*^9}, 3.844566001126281*^9, { 3.8445661160863905`*^9, 3.844566152674224*^9}, {3.844566264323254*^9, 3.8445663747877293`*^9}, {3.8445664543449287`*^9, 3.844566491779601*^9}, { 3.8445666670048437`*^9, 3.844566737824574*^9}, {3.84456677184741*^9, 3.844566920849174*^9}, {3.8445681586856985`*^9, 3.844568160392629*^9}, { 3.844568433360468*^9, 3.844568473119632*^9}, {3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, {3.844569099528115*^9, 3.844569106514072*^9}, {3.84456915365086*^9, 3.8445691542699227`*^9}, { 3.844569863903719*^9, 3.844569864239865*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, {3.844570136399222*^9, 3.84457022295549*^9}, { 3.8445702927401485`*^9, 3.844570294372793*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, {3.844570433361819*^9, 3.844570434479186*^9}, { 3.8445708385437922`*^9, 3.844570865548447*^9}, 3.844571903853661*^9, { 3.84457369886672*^9, 3.844573716165063*^9}, {3.844573766574627*^9, 3.844573766741207*^9}, {3.8445738390520935`*^9, 3.8445738397153697`*^9}, { 3.844574626193658*^9, 3.844574626336315*^9}, 3.844575493401444*^9, { 3.844575765512229*^9, 3.844575767006411*^9}, {3.844579780857963*^9, 3.844579782490683*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, { 3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, {3.84458086608232*^9, 3.844580867257543*^9}, { 3.84458107041544*^9, 3.844581084375619*^9}, {3.844581257892597*^9, 3.8445812836521835`*^9}, {3.844581448612855*^9, 3.844581454694955*^9}, 3.844581591902594*^9, 3.844581696367975*^9, 3.84458187612302*^9, { 3.844581973276004*^9, 3.84458197871758*^9}, {3.844582059180128*^9, 3.844582066927915*^9}, {3.844766120152509*^9, 3.844766220989109*^9}, { 3.8447666299757333`*^9, 3.844766632861744*^9}, {3.844766992478299*^9, 3.844766998824834*^9}, {3.844767166360729*^9, 3.844767168582199*^9}, { 3.844767297264483*^9, 3.844767489140806*^9}, {3.844767520275888*^9, 3.844767707649918*^9}, {3.844767738616096*^9, 3.844767751930085*^9}, { 3.844767836749477*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, {3.844823802025931*^9, 3.844823815288933*^9}, { 3.844823957041947*^9, 3.844823958513931*^9}, {3.844824300419433*^9, 3.8448243149899445`*^9}, 3.8448243583360686`*^9, 3.844934867394837*^9, 3.845011466205801*^9, {3.845011720770907*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, {3.8450126148924513`*^9, 3.845012615094584*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, {3.845183946334877*^9, 3.84518395366415*^9}, { 3.845184051418418*^9, 3.845184051668001*^9}, {3.845184151642857*^9, 3.845184154374053*^9}, {3.845184357905266*^9, 3.845184358065248*^9}, { 3.845184866633246*^9, 3.845184879284834*^9}, {3.8451856542674866`*^9, 3.845185661519927*^9}, 3.845185843485832*^9, 3.845188805837329*^9, { 3.845208711326853*^9, 3.8452087400435753`*^9}, {3.845208875513284*^9, 3.845208885710583*^9}, {3.845209024071977*^9, 3.8452090275669355`*^9}, { 3.845209172626273*^9, 3.845209185986019*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, {3.8452093525944805`*^9, 3.845209356766179*^9}, { 3.845209433342643*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, {3.845209834131934*^9, 3.845209849152528*^9}, { 3.8452099760880327`*^9, 3.8452099795576*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, {3.845210149230989*^9, 3.8452101507171693`*^9}, { 3.845210218508196*^9, 3.845210220505284*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, {3.8452104469844484`*^9, 3.845210448865471*^9}, { 3.845210722276207*^9, 3.8452107618886013`*^9}, {3.845210854073549*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.845211381714527*^9, { 3.845254413854666*^9, 3.845254415221461*^9}, {3.845254468266975*^9, 3.845254497242826*^9}, {3.845254813158949*^9, 3.845254813962109*^9}, { 3.845255159389332*^9, 3.84525516029975*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, {3.845373067136979*^9, 3.845373072521226*^9}, { 3.845373587636412*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, { 3.845374498509495*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.845374728061361*^9}, 3.845375413181964*^9, {3.845375667874572*^9, 3.845375678759179*^9}, {3.8453757305367117`*^9, 3.8453757318964834`*^9}, { 3.845375795765346*^9, 3.8453759475892797`*^9}, 3.8453762911344376`*^9, { 3.845376343496214*^9, 3.845376394269949*^9}, 3.8454413952988787`*^9, { 3.845460521349831*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, {3.84546074955602*^9, 3.8454607590768337`*^9}, { 3.845462509735139*^9, 3.845462509985168*^9}, {3.845465592798409*^9, 3.8454655941092806`*^9}, {3.845465635193927*^9, 3.8454657716449366`*^9}, { 3.845465903191459*^9, 3.845465909137877*^9}, {3.845466026436695*^9, 3.845466050881938*^9}, {3.845467038806765*^9, 3.8454670407645473`*^9}, { 3.845469581897285*^9, 3.8454695927423058`*^9}, 3.845862819628897*^9, { 3.845862969832185*^9, 3.845862991832585*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, {3.845863144857497*^9, 3.8458632007479205`*^9}, { 3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.845863335394053*^9}, {3.845863395099148*^9, 3.845863498099522*^9}, 3.845863530554716*^9, {3.845872590550046*^9, 3.8458726644563165`*^9}, { 3.845872707441972*^9, 3.8458727236944923`*^9}, {3.845872809128053*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.845873028140939*^9, 3.845873035135878*^9}, {3.871450164125084*^9, 3.8714502554214287`*^9}, { 3.872142572742197*^9, 3.8721427609373026`*^9}, {3.872142840427541*^9, 3.872142840883055*^9}, {3.872142896655*^9, 3.872142917424421*^9}, { 3.8721449963870077`*^9, 3.872145039507191*^9}, 3.872145191693225*^9, { 3.872145253555863*^9, 3.8721452614683323`*^9}, {3.872145460645244*^9, 3.872145461207238*^9}, {3.8721454959954467`*^9, 3.872145666439913*^9}, { 3.8721463568291063`*^9, 3.8721464000304537`*^9}, 3.872146500097483*^9, { 3.872146851973781*^9, 3.872146852746259*^9}, 3.872147262770652*^9, { 3.872147351165675*^9, 3.8721473513128633`*^9}, {3.872147497705192*^9, 3.8721474978919225`*^9}, 3.8721475466992073`*^9, {3.872148139106065*^9, 3.87214813930353*^9}, {3.872148320754292*^9, 3.872148397395355*^9}, { 3.87214845820913*^9, 3.872148480628766*^9}, {3.87214859403244*^9, 3.87214860703699*^9}, {3.872148663290126*^9, 3.8721487520433817`*^9}, { 3.872148824743201*^9, 3.872148902742444*^9}, {3.872148935949839*^9, 3.872149023546156*^9}, {3.872213393009148*^9, 3.872213393451836*^9}, { 3.87221350499675*^9, 3.872213529209974*^9}, {3.872213659965142*^9, 3.872213681955471*^9}, {3.872213744596975*^9, 3.872213809151699*^9}, { 3.8722138865871687`*^9, 3.8722139295251255`*^9}, {3.872213982536057*^9, 3.87221403848046*^9}, {3.8722140989552727`*^9, 3.872214107845528*^9}, { 3.872214137895868*^9, 3.8722142893449726`*^9}, {3.872214417051723*^9, 3.8722145472945094`*^9}, {3.8722145786749644`*^9, 3.872214590315936*^9}, 3.87221471091652*^9, {3.872215042788278*^9, 3.872215043902081*^9}, { 3.8722152572933474`*^9, 3.872215371703896*^9}, {3.872215411022002*^9, 3.872215454388228*^9}, {3.872215550375183*^9, 3.872215740499053*^9}, { 3.8722157757875776`*^9, 3.872215807198301*^9}, {3.872215920096699*^9, 3.872215931905471*^9}, {3.8722160301905737`*^9, 3.872216078912943*^9}, { 3.872216114627706*^9, 3.872216129276943*^9}, 3.872216309435096*^9, { 3.872216936793627*^9, 3.872216939128669*^9}, {3.872217105838874*^9, 3.8722171088004866`*^9}, {3.872303780081046*^9, 3.872303786357215*^9}, { 3.8723038261085763`*^9, 3.872303872254692*^9}, {3.872329932280166*^9, 3.872329933183584*^9}, {3.8723303810927143`*^9, 3.872330453374918*^9}, 3.872330551646683*^9, {3.8723306559668875`*^9, 3.8723306710310755`*^9}, 3.872330715269043*^9, {3.872331028051035*^9, 3.8723310379440203`*^9}, 3.872331487604269*^9, 3.8723316379997387`*^9, {3.872486150906661*^9, 3.872486161039858*^9}, 3.872486279962668*^9, 3.872486393600391*^9, 3.872486468278393*^9, {3.873365469104997*^9, 3.8733654698712363`*^9}, { 3.873677944453262*^9, 3.873677950380515*^9}, {3.875499692482862*^9, 3.875499694904428*^9}, {3.875499735370851*^9, 3.875499740556001*^9}, { 3.8754998347031274`*^9, 3.8754998937304335`*^9}, {3.875499932595894*^9, 3.8754999689474635`*^9}, {3.906855197760467*^9, 3.906855218134542*^9}, { 3.906855319086643*^9, 3.9068553911348047`*^9}, {3.91205792606444*^9, 3.912057938990844*^9}}, CellLabel-> "In[1031]:=",ExpressionUUID->"11d8c705-1a60-784b-bd70-a8f466341cf0"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (vibr) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070264*^9, 3.6303896080872*^9}, 3.843539451766064*^9, {3.8518302209271307`*^9, 3.851830225833006*^9}},ExpressionUUID->"e36b09ff-6537-6149-a148-\ d04e78be5d95"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "edg", ",", "ull", ",", "vll", ",", "wll", ",", "dv", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wine", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"midnode", " ", "displacements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ull", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dv", "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"ull", ",", "vll", ",", "wll"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"du", "+", "dv"}], ")"}], ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u0"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v0"}], "-", "\[Psi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u0"}], "+", "\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]0"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]0"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]0"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w0"}], "+", "\[Theta]0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w0"}], "-", "\[Phi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", "tt"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.906856415971823*^9, 3.906856429096719*^9}, 3.906856917076063*^9, {3.90685695054868*^9, 3.906856950898304*^9}, { 3.9068570706161394`*^9, 3.906857115947425*^9}, {3.90685739364529*^9, 3.906857410298019*^9}, {3.907635677874367*^9, 3.9076356878761315`*^9}, { 3.907635721360049*^9, 3.907635772461808*^9}, {3.907635823020349*^9, 3.9076358341704893`*^9}, {3.912057728433032*^9, 3.9120577851937127`*^9}, { 3.912058364885042*^9, 3.912058421096153*^9}, 3.914893716525513*^9, 3.914893836163315*^9, {3.914893870385948*^9, 3.914893920750948*^9}, { 3.914893996962345*^9, 3.914894025494152*^9}, {3.914894076321368*^9, 3.91489410433262*^9}, {3.9148941609555683`*^9, 3.914894218626484*^9}, { 3.9148945877842007`*^9, 3.914894590325229*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"947938ba-228f-ca48-ac00-fe6a7c7ef697"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "NN", ",", "mat", ",", "MM", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "e\[Beta]", ",", "en", ",", "e\[Gamma]", ",", "FF", ",", "\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]", ",", "edg", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]", ",", "u0", ",", "v0", ",", "w0", ",", "\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0", ",", "\[Pi]u0", ",", "\[Pi]v0", ",", "\[Pi]w0", ",", "\[Pi]\[Phi]0", ",", "\[Pi]\[Theta]0", ",", "\[Pi]\[Psi]0", ",", "u2", ",", "v2", ",", "w2", ",", "\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2", ",", "\[Pi]u2", ",", "\[Pi]v2", ",", "\[Pi]w2", ",", "\[Pi]\[Phi]2", ",", "\[Pi]\[Theta]2", ",", "\[Pi]\[Psi]2", ",", "f\[Alpha]", ",", "f\[Gamma]", ",", "fn", ",", "m\[Alpha]", ",", "m\[Gamma]", ",", "mn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]", ",", "Q\[Alpha]", ",", "Q\[Gamma]", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[Delta]wext", ",", "\[Delta]wmap", ",", "AA"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"r\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", " ", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"jac", "=", RowBox[{"Norm", "[", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", " ", RowBox[{"en", "=", RowBox[{ RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], " ", "/", "jac"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], " ", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Gamma]", "=", RowBox[{"Norm", "[", "r\[Gamma]", "]"}]}], ";", RowBox[{"e\[Gamma]", "=", RowBox[{"r\[Gamma]", "/", "h\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Gamma]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Alpha]"}], ",", RowBox[{"r\[Alpha]", ".", "r\[Beta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Beta]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Beta]"}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Gamma]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Gamma]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "projections", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]w", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"time", " ", "derivatives"}], "*)"}], "\[IndentingNewLine]", RowBox[{"u0", "=", RowBox[{"u", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"u2", "=", RowBox[{"u", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v0", "=", RowBox[{"v", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"v2", "=", RowBox[{"v", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w0", "=", RowBox[{"w", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"w2", "=", RowBox[{"w", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]0", "=", RowBox[{"\[Phi]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Phi]2", "=", RowBox[{"\[Phi]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]0", "=", RowBox[{"\[Theta]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Theta]2", "=", RowBox[{"\[Theta]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]0", "=", RowBox[{"\[Psi]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Psi]2", "=", RowBox[{"\[Psi]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]u0", "=", RowBox[{"\[Pi]u", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]u2", "=", RowBox[{"\[Pi]u", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]v0", "=", RowBox[{"\[Pi]v", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]v2", "=", RowBox[{"\[Pi]v", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]w0", "=", RowBox[{"\[Pi]w", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]w2", "=", RowBox[{"\[Pi]w", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]0", "=", RowBox[{"\[Pi]\[Phi]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]\[Phi]2", "=", RowBox[{"\[Pi]\[Phi]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]0", "=", RowBox[{"\[Pi]\[Theta]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]\[Theta]2", "=", RowBox[{"\[Pi]\[Theta]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]0", "=", RowBox[{"\[Pi]\[Psi]", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", RowBox[{"\[Pi]\[Psi]2", "=", RowBox[{"\[Pi]\[Psi]", " ", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"strain", " ", "measures", " ", "with", " ", "non"}], "-", RowBox[{"symmetric", " ", "\[Epsilon]"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u0"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v0"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v0"}]}]}], ")"}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v0"}], "/", "h\[Alpha]"}], "-", "\[Pi]\[Psi]0"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u0"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u0"}]}]}], ")"}], "/", "h\[Gamma]"}], "+", "\[Pi]\[Psi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]0"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]0"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]0"}]}]}], ")"}]}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]0"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]0"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]0"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w0"}], "/", "h\[Alpha]"}], "+", "\[Pi]\[Theta]0"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w0"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w0"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", "\[Pi]\[Phi]0"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "stress", " ", "resultants", " ", "with", " ", "a", " ", "nonsymmetric", " ", "N"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Alpha]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Gamma]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Gamma]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Alpha]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Alpha]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", " ", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "\[Kappa]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], " ", "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Gamma]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Gamma]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{ RowBox[{"-", "tt"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}]}]}], "-", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", "\[Rho]\[Rho]", "*", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Phi]0", ",", "\[Theta]0", ",", "\[Psi]0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"\[Phi]2", ",", "\[Theta]2", ",", "\[Psi]2"}], "}"}]}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u0", ",", "v0", ",", "w0"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "100000"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]u0", "-", "u0"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]u0", "-", "u0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]v0", "-", "v0"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]v0", "-", "v0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]w0", "-", "w0"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]w0", "-", "w0"}], ")"}]}]}], ")"}], "*", "tt", "*", RowBox[{"EE", "/", "jac"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wine", "+", "\[Delta]wext", "+", "\[Delta]wmap"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.629526859845335*^9}, {3.62952693938987*^9, 3.629526958655908*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723177`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.755525858838416*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057407`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492815`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252473`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464813`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.763700760307492*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.763814770927882*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423424`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285395`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577645`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879453`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.764726348337568*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.764727210909055*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079174`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825224`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.784011319771961*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103957`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.784886866702941*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827843`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369636`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366218`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.788328880571675*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.788333955547042*^9, 3.78833396603052*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.788334391875498*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803496`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429956`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.789096774197328*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.789109162814938*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.789111358287718*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.789111495235999*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.78911887648738*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.789122665352926*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.78912356613609*^9, 3.789123568875408*^9}, { 3.843539375196118*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, {3.843548477790007*^9, 3.843548488262038*^9}, { 3.843548969108399*^9, 3.843548981201047*^9}, {3.843549142037131*^9, 3.8435491556997023`*^9}, {3.843549197734703*^9, 3.843549198243879*^9}, 3.8435492510860806`*^9, {3.843549508166094*^9, 3.843549513194879*^9}, { 3.843549585693662*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, {3.84355004136615*^9, 3.843550041760812*^9}, { 3.843550160256809*^9, 3.8435501604677615`*^9}, {3.843553212025095*^9, 3.843553317388692*^9}, {3.843553523973165*^9, 3.8435535314678483`*^9}, { 3.843553580875799*^9, 3.843553663159541*^9}, {3.843553779645311*^9, 3.843553786004609*^9}, 3.843553906141655*^9, 3.84355405714793*^9, { 3.843554149489615*^9, 3.8435541503712645`*^9}, {3.843554206843628*^9, 3.843554207104446*^9}, {3.8435543508802266`*^9, 3.843554351606327*^9}, { 3.843554424038799*^9, 3.843554424227161*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, {3.843560832774662*^9, 3.8435608400784*^9}, { 3.843561442743278*^9, 3.843561449585733*^9}, {3.843561686280421*^9, 3.843561747340845*^9}, {3.843561841622026*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.843562039941851*^9, 3.843562042756475*^9}, 3.8435620999099693`*^9, {3.843562319425266*^9, 3.843562335822353*^9}, {3.843562479271407*^9, 3.8435624872362185`*^9}, { 3.8435625915602407`*^9, 3.843562614304778*^9}, {3.843562735879742*^9, 3.843562741836786*^9}, {3.843614355746326*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.843614888054445*^9}, { 3.843615637703328*^9, 3.843615694026068*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.843621167489939*^9}, { 3.843621224821956*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.843623522841966*^9, {3.843710421018984*^9, 3.843710422106656*^9}, {3.843710498981309*^9, 3.843710537614964*^9}, { 3.843710579319264*^9, 3.843710645627423*^9}, {3.8437106875546417`*^9, 3.843710688153476*^9}, {3.843710725428294*^9, 3.843710785146202*^9}, { 3.843710821351383*^9, 3.8437110234294205`*^9}, {3.843711117341719*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.843711357214332*^9, 3.843711371873471*^9}, {3.843711579018824*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.843711805902394*^9, 3.843711810425566*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.843711963752302*^9, 3.8437119924289055`*^9}, { 3.843712070094509*^9, 3.843712071922304*^9}, {3.843730381197662*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.84373074599081*^9}, { 3.8437396200557556`*^9, 3.84373964194144*^9}, 3.843886670451059*^9, 3.843886720320431*^9, 3.84388678658553*^9, {3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.84388691534828*^9}, { 3.844322793599933*^9, 3.844322874140069*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, { 3.844325560745083*^9, 3.84432556531176*^9}, {3.844325729234998*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.844327189735308*^9}, 3.844327630363053*^9, 3.844327741570508*^9, {3.844327837371322*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, { 3.8443286085720396`*^9, 3.844328633889926*^9}, {3.844328780662943*^9, 3.844328797514555*^9}, 3.844328890335701*^9, 3.844329541823058*^9, 3.8443297290733314`*^9, 3.8443298258170156`*^9, 3.8443299792211103`*^9, { 3.844330023182226*^9, 3.844330024162663*^9}, {3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.844330446631555*^9, 3.84438870778086*^9, { 3.844388798979218*^9, 3.844388816606941*^9}, {3.844388850689955*^9, 3.84438889324323*^9}, 3.844389157904079*^9, {3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.844389452162907*^9}, 3.844389648527203*^9, {3.844389787619921*^9, 3.844389824625575*^9}, 3.844390010919503*^9, {3.844390820677456*^9, 3.844390827824874*^9}, { 3.844390920777023*^9, 3.844391008880832*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, { 3.844394341187828*^9, 3.84439434358472*^9}, {3.844394435078337*^9, 3.844394471962366*^9}, 3.844394554883594*^9, 3.844394790974487*^9, 3.844394878078925*^9, 3.844395085745798*^9, {3.8443953351049013`*^9, 3.844395416952881*^9}, {3.844395746514305*^9, 3.844395749726533*^9}, 3.8443958397241535`*^9, {3.844395921167213*^9, 3.844395924888271*^9}, { 3.844396047953732*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.844396736595009*^9, 3.8443967370378094`*^9}, 3.844397220019979*^9, {3.8444115993210382`*^9, 3.844411599518702*^9}, { 3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.844411795560471*^9, 3.844412083809191*^9, 3.844412348656451*^9, {3.8444124716223226`*^9, 3.844412479699933*^9}, {3.844412549525554*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, { 3.844500043831334*^9, 3.844500055281495*^9}, 3.844500094473071*^9, { 3.844500426135293*^9, 3.8445004336024866`*^9}, 3.844500503309535*^9, { 3.84450071418834*^9, 3.8445007145632133`*^9}, 3.84450075086576*^9, { 3.844500802343947*^9, 3.844500805685542*^9}, {3.844500857916894*^9, 3.844500860801999*^9}, {3.844500943507424*^9, 3.844501037877049*^9}, { 3.844501486443882*^9, 3.844501488956464*^9}, {3.844501593768973*^9, 3.844501608748468*^9}, {3.844501958945907*^9, 3.844501961840052*^9}, { 3.844514253644258*^9, 3.844514303852824*^9}, {3.844514457425339*^9, 3.844514533772487*^9}, {3.844514612109014*^9, 3.844514612805125*^9}, { 3.844515261851603*^9, 3.8445152626808715`*^9}, {3.84451667854188*^9, 3.844516697836839*^9}, {3.844516838420943*^9, 3.8445168531952915`*^9}, 3.844516936102404*^9, {3.844517144912083*^9, 3.8445171602908783`*^9}, { 3.844517313347111*^9, 3.844517374315425*^9}, {3.844563740797083*^9, 3.844563842955555*^9}, {3.844564763261811*^9, 3.844564764558693*^9}, { 3.844564893032794*^9, 3.84456489663636*^9}, 3.844566001126281*^9, { 3.8445661160863905`*^9, 3.844566152674224*^9}, {3.844566264323254*^9, 3.8445663747877293`*^9}, {3.8445664543449287`*^9, 3.844566491779601*^9}, { 3.8445666670048437`*^9, 3.844566737824574*^9}, {3.84456677184741*^9, 3.844566920849174*^9}, {3.8445681586856985`*^9, 3.844568160392629*^9}, { 3.844568433360468*^9, 3.844568473119632*^9}, {3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, {3.844569099528115*^9, 3.844569106514072*^9}, {3.84456915365086*^9, 3.8445691542699227`*^9}, { 3.844569863903719*^9, 3.844569864239865*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, {3.844570136399222*^9, 3.84457022295549*^9}, { 3.8445702927401485`*^9, 3.844570294372793*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, {3.844570433361819*^9, 3.844570434479186*^9}, { 3.8445708385437922`*^9, 3.844570865548447*^9}, 3.844571903853661*^9, { 3.84457369886672*^9, 3.844573716165063*^9}, {3.844573766574627*^9, 3.844573766741207*^9}, {3.8445738390520935`*^9, 3.8445738397153697`*^9}, { 3.844574626193658*^9, 3.844574626336315*^9}, 3.844575493401444*^9, { 3.844575765512229*^9, 3.844575767006411*^9}, {3.844579780857963*^9, 3.844579782490683*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, { 3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, {3.84458086608232*^9, 3.844580867257543*^9}, { 3.84458107041544*^9, 3.844581084375619*^9}, {3.844581257892597*^9, 3.8445812836521835`*^9}, {3.844581448612855*^9, 3.844581454694955*^9}, 3.844581591902594*^9, 3.844581696367975*^9, 3.84458187612302*^9, { 3.844581973276004*^9, 3.84458197871758*^9}, {3.844582059180128*^9, 3.844582066927915*^9}, {3.844766120152509*^9, 3.844766220989109*^9}, { 3.8447666299757333`*^9, 3.844766632861744*^9}, {3.844766992478299*^9, 3.844766998824834*^9}, {3.844767166360729*^9, 3.844767168582199*^9}, { 3.844767297264483*^9, 3.844767489140806*^9}, {3.844767520275888*^9, 3.844767707649918*^9}, {3.844767738616096*^9, 3.844767751930085*^9}, { 3.844767836749477*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, {3.844823802025931*^9, 3.844823815288933*^9}, { 3.844823957041947*^9, 3.844823958513931*^9}, {3.844824300419433*^9, 3.8448243149899445`*^9}, 3.8448243583360686`*^9, 3.844934867394837*^9, 3.845011466205801*^9, {3.845011720770907*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, {3.8450126148924513`*^9, 3.845012615094584*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, {3.845183946334877*^9, 3.84518395366415*^9}, { 3.845184051418418*^9, 3.845184051668001*^9}, {3.845184151642857*^9, 3.845184154374053*^9}, {3.845184357905266*^9, 3.845184358065248*^9}, { 3.845184866633246*^9, 3.845184879284834*^9}, {3.8451856542674866`*^9, 3.845185661519927*^9}, 3.845185843485832*^9, 3.845188805837329*^9, { 3.845208711326853*^9, 3.8452087400435753`*^9}, {3.845208875513284*^9, 3.845208885710583*^9}, {3.845209024071977*^9, 3.8452090275669355`*^9}, { 3.845209172626273*^9, 3.845209185986019*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, {3.8452093525944805`*^9, 3.845209356766179*^9}, { 3.845209433342643*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, {3.845209834131934*^9, 3.845209849152528*^9}, { 3.8452099760880327`*^9, 3.8452099795576*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, {3.845210149230989*^9, 3.8452101507171693`*^9}, { 3.845210218508196*^9, 3.845210220505284*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, {3.8452104469844484`*^9, 3.845210448865471*^9}, { 3.845210722276207*^9, 3.8452107618886013`*^9}, {3.845210854073549*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.845211381714527*^9, { 3.845254413854666*^9, 3.845254415221461*^9}, {3.845254468266975*^9, 3.845254497242826*^9}, {3.845254813158949*^9, 3.845254813962109*^9}, { 3.845255159389332*^9, 3.84525516029975*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, {3.845373067136979*^9, 3.845373072521226*^9}, { 3.845373587636412*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, { 3.845374498509495*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.845374728061361*^9}, 3.845375413181964*^9, {3.845375667874572*^9, 3.845375678759179*^9}, {3.8453757305367117`*^9, 3.8453757318964834`*^9}, { 3.845375795765346*^9, 3.8453759475892797`*^9}, 3.8453762911344376`*^9, { 3.845376343496214*^9, 3.845376394269949*^9}, 3.845441395298878*^9, { 3.845460521349831*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, {3.84546074955602*^9, 3.8454607590768337`*^9}, { 3.845462509735139*^9, 3.845462509985168*^9}, {3.845465592798409*^9, 3.8454655941092796`*^9}, {3.845465635193927*^9, 3.8454657716449366`*^9}, { 3.845465903191459*^9, 3.845465909137877*^9}, {3.845466026436695*^9, 3.845466050881938*^9}, {3.845467038806765*^9, 3.8454670407645473`*^9}, { 3.845469581897285*^9, 3.8454695927423058`*^9}, 3.845862819628897*^9, { 3.845862969832185*^9, 3.845862991832585*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, {3.845863144857497*^9, 3.8458632007479205`*^9}, { 3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.845863335394053*^9}, {3.845863395099148*^9, 3.845863498099522*^9}, 3.845863530554716*^9, {3.845872590550046*^9, 3.8458726644563165`*^9}, { 3.845872707441972*^9, 3.8458727236944923`*^9}, {3.845872809128053*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.845873028140939*^9, 3.845873035135878*^9}, {3.851830237371579*^9, 3.85183025145358*^9}, { 3.851830506375298*^9, 3.851830530831549*^9}, {3.85183140764212*^9, 3.85183143774364*^9}, {3.8518315502903214`*^9, 3.851831695377967*^9}, { 3.851831764521837*^9, 3.8518318373277397`*^9}, {3.851831868636403*^9, 3.85183191161867*^9}, 3.85183263936782*^9, {3.851832709838562*^9, 3.851832727887757*^9}, {3.851832805558394*^9, 3.851832875924304*^9}, { 3.8518329524762464`*^9, 3.851833079376422*^9}, {3.8518331291035*^9, 3.851833130299578*^9}, {3.851833160508073*^9, 3.8518331634172173`*^9}, { 3.851833237532813*^9, 3.851833414086164*^9}, {3.851833456249548*^9, 3.851833493143743*^9}, {3.851833544068002*^9, 3.8518335453597345`*^9}, { 3.851833575552421*^9, 3.8518336800045*^9}, {3.851833714388123*^9, 3.851833725824615*^9}, {3.8518346908371735`*^9, 3.8518347174611683`*^9}, { 3.851834753080979*^9, 3.8518347692487164`*^9}, {3.851834959753228*^9, 3.851835071000081*^9}}, CellLabel-> "In[1033]:=",ExpressionUUID->"9f4578f9-ad4d-fd44-becc-9e782e7d07f4"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (stab) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6302475626780834`*^9, 3.6302475636452847`*^9}, { 3.630389620411221*^9, 3.630389621175623*^9}, {3.7658855359334097`*^9, 3.765885556394274*^9}, {3.7882511594490995`*^9, 3.788251160663724*^9}, { 3.7883213876221285`*^9, 3.788321388914168*^9}, {3.7890220324441195`*^9, 3.789022033389088*^9}, {3.852336979003788*^9, 3.8523369803815904`*^9}},ExpressionUUID->"7394e6fb-b12c-2244-a513-\ 0ddab383c5e2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "edg", ",", "ull", ",", "vll", ",", "wll", ",", "dv", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"midnode", " ", "displacements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ull", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dv", "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"ull", ",", "vll", ",", "wll"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"du", "+", "dv"}], ")"}], ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"N", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.788328880571675*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.788333955547042*^9, 3.78833396603052*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.788334391875498*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803487`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429947`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.789096774197328*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.789109162814938*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.789111358287718*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.789111495235999*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.78911887648738*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.789122665352926*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.789124218156231*^9, 3.789124220106046*^9}, { 3.789124254593116*^9, 3.789124258377772*^9}, {3.789124315601478*^9, 3.789124326373148*^9}, {3.789125154499303*^9, 3.789125222803191*^9}, { 3.820045470891107*^9, 3.820045484071852*^9}, {3.8509666497276897`*^9, 3.8509666516620097`*^9}, {3.850966717721876*^9, 3.8509667189933705`*^9}, 3.8509667763101106`*^9, {3.850966822884164*^9, 3.850966844061469*^9}, { 3.850966879485558*^9, 3.8509669485542307`*^9}, {3.850966982527851*^9, 3.850967039738031*^9}, 3.915327627603243*^9, {3.915327659474917*^9, 3.915327668530585*^9}, {3.91532771416502*^9, 3.9153277307162457`*^9}, { 3.915327913274315*^9, 3.915327942682913*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"fbf850d8-baeb-314e-9c7a-5fb7aa2d146a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "NN", ",", "mat", ",", "MM", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "e\[Beta]", ",", "en", ",", "e\[Gamma]", ",", "FF", ",", "\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]", ",", "edg", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]", ",", "f\[Alpha]", ",", "f\[Gamma]", ",", "fn", ",", "m\[Alpha]", ",", "m\[Gamma]", ",", "mn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]", ",", "Q\[Alpha]", ",", "Q\[Gamma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wsta", ",", "\[Delta]wmap", ",", "AA"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"r\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", " ", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"jac", "=", RowBox[{"Norm", "[", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", " ", RowBox[{"en", "=", RowBox[{ RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], " ", "/", "jac"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], " ", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Gamma]", "=", RowBox[{"Norm", "[", "r\[Gamma]", "]"}]}], ";", RowBox[{"e\[Gamma]", "=", RowBox[{"r\[Gamma]", "/", "h\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Gamma]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Alpha]"}], ",", RowBox[{"r\[Alpha]", ".", "r\[Beta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Beta]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Beta]"}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Gamma]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Gamma]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"projection", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]w", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"strain", " ", "measures", " ", "with", " ", "non"}], "-", RowBox[{"symmetric", " ", "\[Epsilon]"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}]}]}], ")"}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}]}]}], ")"}], "/", "h\[Gamma]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}]}], ")"}]}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "stress", " ", "resultants", " ", "with", " ", "a", " ", "nonsymmetric", " ", "N"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Alpha]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Gamma]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Gamma]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Alpha]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Alpha]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", " ", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "\[Kappa]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], " ", "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Gamma]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Gamma]"}], "}"}]}]}]}], ";", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"N\[Alpha]\[Alpha]", ",", "N\[Alpha]\[Gamma]"}], "}"}], ",", RowBox[{"{", RowBox[{"N\[Gamma]\[Alpha]", ",", "N\[Gamma]\[Gamma]"}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}]}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "100000"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]u", "-", "u"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]u", "-", "u"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]v", "-", "v"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]v", "-", "v"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]w", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]w", "-", "w"}], ")"}]}]}], ")"}], "*", "tt", "*", RowBox[{"EE", "/", "jac"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wsta", "+", "\[Delta]wmap"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.788328880571675*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.788333955547042*^9, 3.78833396603052*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.788334391875498*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803487`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429947`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.789096774197328*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.789109162814938*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.789111358287718*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.789111495235999*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.78911887648738*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.789122665352926*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.789124218156231*^9, 3.789124220106046*^9}, { 3.789124254593116*^9, 3.789124258377772*^9}, {3.789124315601478*^9, 3.789124326373148*^9}, {3.789125154499303*^9, 3.789125222803191*^9}, { 3.820045470891107*^9, 3.820045484071852*^9}, {3.8509666497276897`*^9, 3.8509666516620097`*^9}, {3.850966717721876*^9, 3.8509667189933705`*^9}, 3.8509667763101106`*^9, {3.850966822884164*^9, 3.850966844061469*^9}, { 3.850966879485558*^9, 3.8509669485542307`*^9}, {3.850966982527851*^9, 3.850967039738031*^9}, 3.915327627603243*^9, {3.915327659474917*^9, 3.915327668530585*^9}},ExpressionUUID->"4a82fd22-1d9e-8047-a28a-\ 8dd27a42cea2"] }, Closed]], Cell[CellGroupData[{ Cell["SHELL ELEMENT (nonl) defs ", "Subsection", InitializationCell->True, CellChangeTimes->{{3.6303896070263996`*^9, 3.6303896080872*^9}, 3.843539451766064*^9, {3.8533873958221235`*^9, 3.853387408038947*^9}, 3.8618404867698*^9},ExpressionUUID->"c05ec9a4-c229-9044-9cee-24370951c37e"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], " ", "|", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "rx", ",", "ry", ",", "rz", ",", "ex", ",", "ey", ",", "ez", ",", "x", ",", "y", ",", "x1", ",", "x2", ",", "x3", ",", "y1", ",", "y2", ",", "y3", ",", "xl", ",", "yl", ",", "zl", ",", "AA", ",", "N3", ",", "M3", ",", "ul", ",", "vl", ",", "wl", ",", "\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Phi]\[Theta]\[Psi]", ",", "xyz", ",", "uvw", ",", "u12", ",", "u23", ",", "u31", ",", "edg", ",", "ull", ",", "vll", ",", "wll", ",", "dv", ",", "du", ",", "fx", ",", "fy", ",", "fz", ",", "mx", ",", "my", ",", "mz", ",", "\[Epsilon]\[Epsilon]", ",", "\[Kappa]\[Kappa]", ",", "\[Gamma]\[Gamma]", ",", "EM", ",", "EMM", ",", "GM", ",", "N", ",", "M", ",", "Q", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "map", ",", "GG"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rx", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ry", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n3", ",", "1", ",", ";;"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1", ",", ";;"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rz", "=", RowBox[{"rx", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ry", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"rx", "/", RowBox[{"Sqrt", "[", RowBox[{"rx", ".", "rx"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ez", "=", RowBox[{"rz", "/", RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ey", "=", RowBox[{"ez", StyleBox["\[Cross]", "OperatorCharacter"], StyleBox["ex", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"AA", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"rz", ".", "rz"}], "]"}], "/", "2"}]}], " ", ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "quantities", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"Transpose", "[", StyleBox[ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}], "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"midnode", " ", "displacements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ull", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wll", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dv", "=", RowBox[{ RowBox[{"{", RowBox[{"ex", ",", "ey", ",", "ez"}], "}"}], ".", RowBox[{"{", RowBox[{"ull", ",", "vll", ",", "wll"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N3", " ", "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "xl", ",", "yl"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "x", ",", "y"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M3", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"N3", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"N3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "*", "4"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"inverse", " ", "MITC3", " ", "projection"}], "*)"}], "\[IndentingNewLine]", RowBox[{"xyz", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u12", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"u23", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"u31", " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Phi]\[Theta]\[Psi]", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], StyleBox["\[Cross]", "OperatorCharacter"], StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "OperatorCharacter"]}], StyleBox["/", "OperatorCharacter"], StyleBox["8", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox[ RowBox[{"du", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"u12", ",", "u23", ",", "u31"}], "}"}], "]"}]}], "OperatorCharacter"], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"u", ",", "v", ",", "w"}], "}"}], StyleBox["=", "OperatorCharacter"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ul", ",", "vl", ",", "wl"}], "}"}], ".", "N3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"du", "+", "dv"}], ")"}], ".", "M3"}]}], "OperatorCharacter"]}], StyleBox[";", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]l", ",", "\[Theta]l", ",", "\[Psi]l"}], "}"}], ".", "N3"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Epsilon]\[Epsilon]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ",", " ", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", "\[Psi]"}]}], "}"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}], "}"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Kappa]\[Kappa]", "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Theta]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Phi]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[Theta]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", "\[Theta]"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], "-", "\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"isotropic", " ", "material"}], "*)"}], "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "GG"}], ";", "\[IndentingNewLine]", RowBox[{"EMM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]\[Nu]", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]\[Nu]", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"EMM", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "=", RowBox[{"2", " ", "GG"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"GG", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"N", "=", RowBox[{"tt", "*", RowBox[{"EMM", ".", "\[Epsilon]\[Epsilon]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], "*", RowBox[{"EM", ".", "\[Kappa]\[Kappa]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{ RowBox[{ RowBox[{"tt", "^", "3"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "2"}], "+", RowBox[{"AA", "/", "20"}]}], ")"}]}], "*", RowBox[{"5", "/", "6"}], "*", RowBox[{"GM", ".", "\[Gamma]\[Gamma]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Epsilon]\[Epsilon]", "]"}], ".", "N"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Kappa]\[Kappa]", "]"}], ".", "M"}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "\[Gamma]\[Gamma]", "]"}], ".", "Q"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"map", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"xl", ",", "yl"}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "&"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"QUAD", "[", RowBox[{"TRI4", ",", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "map"}], "]"}], "*", "AA", "*", "2"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.906856415971823*^9, 3.906856429096719*^9}, 3.906856917076063*^9, {3.90685695054868*^9, 3.906856950898304*^9}, { 3.9068570706161394`*^9, 3.906857115947425*^9}, {3.90685739364529*^9, 3.906857410298019*^9}, {3.907635677874367*^9, 3.9076356878761315`*^9}, { 3.907635721360049*^9, 3.907635772461808*^9}, {3.907635823020349*^9, 3.9076358341704893`*^9}, {3.912057728433032*^9, 3.9120577851937127`*^9}, { 3.912058364885042*^9, 3.912058421096153*^9}, 3.914893716525513*^9, { 3.914894646030657*^9, 3.9148946549640408`*^9}, {3.915327785960003*^9, 3.915327865015663*^9}, {3.9159732326377144`*^9, 3.91597324553463*^9}, { 3.9159733415304546`*^9, 3.915973344238865*^9}, {3.915973470896448*^9, 3.915973489039053*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"d47048b1-4073-0543-a52d-f3037b87b9e8"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "NN", ",", "mat", ",", "MM", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "e\[Beta]", ",", "en", ",", "e\[Gamma]", ",", "FF", ",", "\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]", ",", "edg", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]", ",", "f\[Alpha]", ",", "f\[Gamma]", ",", "fn", ",", "m\[Alpha]", ",", "m\[Gamma]", ",", "mn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]", ",", "GG", ",", "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]", ",", "Q\[Alpha]", ",", "Q\[Gamma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wmap", ",", "AA"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"r\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", " ", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"jac", "=", RowBox[{"Norm", "[", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", " ", RowBox[{"en", "=", RowBox[{ RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], " ", "/", "jac"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], " ", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Gamma]", "=", RowBox[{"Norm", "[", "r\[Gamma]", "]"}]}], ";", RowBox[{"e\[Gamma]", "=", RowBox[{"r\[Gamma]", "/", "h\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Gamma]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Alpha]"}], ",", RowBox[{"r\[Alpha]", ".", "r\[Beta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Beta]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Beta]"}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Gamma]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Gamma]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"(", RowBox[{"mat", ".", "NN"}], ")"}], ".", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"#", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "#", "]"}]}], "]"}], "&"}], ",", "edg"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"projection", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]", "=", RowBox[{ RowBox[{ RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}], "/", "60"}], "+", " ", RowBox[{"Mean", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]u", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]v", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Pi]w", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]u", ",", "\[Pi]v", ",", "\[Pi]w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"strain", " ", "measures", " ", "with", " ", "non"}], "-", RowBox[{"symmetric", " ", "\[Epsilon]"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}]}]}], ")"}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}]}]}], ")"}], "/", "h\[Gamma]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}]}], ")"}]}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "stress", " ", "resultants", " ", "with", " ", "a", " ", "nonsymmetric", " ", "N"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Alpha]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Gamma]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Gamma]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Alpha]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Alpha]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", " ", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "\[Kappa]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], " ", "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Gamma]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Gamma]"}], "}"}]}]}]}], ";", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "100000"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]u", "-", "u"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]u", "-", "u"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]v", "-", "v"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]v", "-", "v"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]w", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]w", "-", "w"}], ")"}]}]}], ")"}], "*", "tt", "*", RowBox[{"EE", "/", "jac"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI3", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wmap"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "GG", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", "tt", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "NN", ",", "mat", ",", "MM", ",", "r", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "r\[Gamma]", ",", "rn", ",", "jac", ",", "h\[Alpha]", ",", "e\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "e\[Beta]", ",", "en", ",", "e\[Gamma]", ",", "FF", ",", "\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]", ",", "edg", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]", ",", "f\[Alpha]", ",", "f\[Gamma]", ",", "fn", ",", "m\[Alpha]", ",", "m\[Gamma]", ",", "mn", ",", "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]", ",", "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]", ",", "\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]", ",", "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]", ",", "Q\[Alpha]", ",", "Q\[Gamma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Delta]wmap"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n12", ",", "n23", ",", "n31"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MM", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"3", " ", "\[Beta]"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Beta]", "2"]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "\[Beta]"}]}], ")"}]}]}], ",", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], ",", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "\[Beta]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "4"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}], ",", RowBox[{"4", " ", "\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "\[Beta]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]", "+", "\[Beta]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", RowBox[{"r\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Norm", "[", "r\[Beta]", "]"}]}], ";", " ", RowBox[{"h\[Alpha]", "=", RowBox[{"Norm", "[", "r\[Alpha]", "]"}]}], ";", RowBox[{"jac", "=", RowBox[{"Norm", "[", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", "=", RowBox[{"r\[Alpha]", "/", "h\[Alpha]"}]}], ";", RowBox[{"e\[Beta]", "=", RowBox[{"r\[Beta]", "/", "h\[Beta]"}]}], ";", " ", RowBox[{"en", "=", RowBox[{ RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}], " ", "/", "jac"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"orthonormal", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r\[Gamma]", "=", RowBox[{"r\[Beta]", "-", RowBox[{ RowBox[{"(", RowBox[{"r\[Beta]", ".", "e\[Alpha]"}], ")"}], " ", "e\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Gamma]", "=", RowBox[{"Norm", "[", "r\[Gamma]", "]"}]}], ";", RowBox[{"e\[Gamma]", "=", RowBox[{"r\[Gamma]", "/", "h\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Gamma]", ",", "en"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]\[Gamma]", ",", "\[Beta]\[Gamma]"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Alpha]"}], ",", RowBox[{"r\[Alpha]", ".", "r\[Beta]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Beta]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Beta]"}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"r\[Alpha]", ".", "r\[Gamma]"}], ",", RowBox[{"r\[Beta]", ".", "r\[Gamma]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"edg", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sort", "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uX", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uX", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uY", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uY", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"uZ", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "1", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "2", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}]}], "+", RowBox[{ RowBox[{"NN", "[", RowBox[{"[", "3", "]"}], "]"}], "*", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{"NN", ".", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "5"}], "}"}]}], "}"}], "/", "420"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "projection", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Pi]\[Phi]", "=", RowBox[{"NN", ".", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "5"}], "}"}]}], "}"}], "/", "420"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"\[Theta]X", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Theta]", "=", RowBox[{"NN", ".", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "5"}], "}"}]}], "}"}], "/", "420"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "5"}], "}"}]}], "}"}], "/", "420"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "1"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "2"}], "}"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "3"}], "}"}], "]"}]}], "}"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]u", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uX", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]v", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uY", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Pi]w", "=", RowBox[{"MM", ".", RowBox[{"Join", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "&"}], ",", "edg"}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "the", " ", "material", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"\[Pi]\[Phi]", ",", "\[Pi]\[Theta]", ",", "\[Pi]\[Psi]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}], "=", RowBox[{"FF", ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"strain", " ", "measures", " ", "with", " ", "non"}], "-", RowBox[{"symmetric", " ", "\[Epsilon]"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "v"}]}]}], ")"}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "v"}], "/", "h\[Alpha]"}], "-", "\[Psi]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "u"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "u"}]}]}], ")"}], "/", "h\[Gamma]"}], "+", "\[Psi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}], "/", "h\[Alpha]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Phi]"}]}]}], ")"}]}], "/", "h\[Gamma]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Theta]"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "\[Theta]"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "\[Phi]"}], "/", "h\[Alpha]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}], "/", "h\[Alpha]"}], "+", "\[Pi]\[Theta]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "w"}]}], "+", RowBox[{"\[Beta]\[Gamma]", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "w"}]}]}], ")"}], "/", "h\[Gamma]"}], "-", "\[Pi]\[Phi]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "stress", " ", "resultants", " ", "with", " ", "a", " ", "nonsymmetric", " ", "N"}], "-", "part"}], "*)"}], "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Alpha]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Gamma]", "=", RowBox[{"tt", "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Epsilon]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Epsilon]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Alpha]\[Gamma]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"N\[Gamma]\[Alpha]", "=", RowBox[{ "tt", "*", "2", " ", "GG", "*", "\[Epsilon]\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Alpha]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Alpha]\[Alpha]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Gamma]\[Gamma]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Gamma]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"\[Kappa]\[Gamma]\[Gamma]", "+", RowBox[{"\[Nu]\[Nu]", "*", "\[Kappa]\[Alpha]\[Alpha]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M\[Alpha]\[Gamma]", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tt", "^", "3"}], "/", "12"}], ")"}], "*", " ", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "\[Kappa]\[Alpha]\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Alpha]", "=", RowBox[{ RowBox[{"5", "/", "6"}], " ", "*", "GG", "*", "tt", "*", "\[Gamma]\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q\[Gamma]", "=", RowBox[{ RowBox[{"5", "/", "6"}], "*", "GG", "*", "tt", "*", "\[Gamma]\[Gamma]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"virtual", " ", "work"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Epsilon]\[Alpha]\[Alpha]", ",", "\[Epsilon]\[Gamma]\[Gamma]", ",", "\[Epsilon]\[Alpha]\[Gamma]", ",", "\[Epsilon]\[Gamma]\[Alpha]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "N\[Alpha]\[Alpha]", ",", "N\[Gamma]\[Gamma]", ",", "N\[Alpha]\[Gamma]", ",", "N\[Gamma]\[Alpha]"}], "}"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ "\[Kappa]\[Alpha]\[Alpha]", ",", "\[Kappa]\[Gamma]\[Gamma]", ",", "\[Kappa]\[Alpha]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ "M\[Alpha]\[Alpha]", ",", "M\[Gamma]\[Gamma]", ",", "M\[Alpha]\[Gamma]"}], "}"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"\[Gamma]\[Alpha]", ",", "\[Gamma]\[Gamma]"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"Q\[Alpha]", ",", "Q\[Gamma]"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{"f\[Alpha]", ",", "f\[Gamma]", ",", "fn"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wmap", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "100"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]u", "-", "u"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]u", "-", "u"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]v", "-", "v"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]v", "-", "v"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Pi]w", "-", "w"}], "]"}], "*", RowBox[{"(", RowBox[{"\[Pi]w", "-", "w"}], ")"}]}]}], ")"}], "*", "tt", "*", RowBox[{"EE", "/", "jac"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TRI28", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, {3.6294628543371735`*^9, 3.629462867097191*^9}, { 3.629468063172048*^9, 3.6294681151669397`*^9}, {3.6295205836757097`*^9, 3.6295206295085897`*^9}, {3.62952067888268*^9, 3.629520706791126*^9}, { 3.629520740892786*^9, 3.629520753700408*^9}, {3.629521020590745*^9, 3.629521035439595*^9}, {3.629521110736902*^9, 3.62952114882508*^9}, { 3.62952123273488*^9, 3.62952124772374*^9}, {3.629521342481643*^9, 3.629521343230441*^9}, {3.629521536311982*^9, 3.629521675355025*^9}, { 3.629521922272258*^9, 3.629521993985584*^9}, {3.6295220298188467`*^9, 3.629522446058778*^9}, {3.629522499348471*^9, 3.629522604352256*^9}, { 3.629522755188921*^9, 3.62952288580795*^9}, {3.629522918084407*^9, 3.629523342108752*^9}, {3.6295233808436193`*^9, 3.629523390936837*^9}, { 3.629523424274096*^9, 3.629523453336947*^9}, {3.6295235190130625`*^9, 3.629523521680667*^9}, 3.629523589431587*^9, {3.6295237270706286`*^9, 3.629523799454755*^9}, {3.629523851480847*^9, 3.629523883460902*^9}, { 3.629523937608598*^9, 3.6295239442386093`*^9}, {3.6295241089905*^9, 3.629524177537019*^9}, 3.629524211888279*^9, {3.629524277423994*^9, 3.629524396904604*^9}, {3.6295244794839497`*^9, 3.6295246248450055`*^9}, 3.629524657090262*^9, {3.629525959910951*^9, 3.629526013465844*^9}, { 3.6295261092188125`*^9, 3.629526201414974*^9}, 3.6295263436092243`*^9, { 3.6295263910333076`*^9, 3.629526583303645*^9}, {3.629526616672104*^9, 3.629526647653758*^9}, {3.629526687558628*^9, 3.629526744888729*^9}, { 3.629526804075233*^9, 3.6295268598453345`*^9}, {3.62952693938987*^9, 3.6295269586559076`*^9}, {3.62952714900744*^9, 3.629527214901956*^9}, { 3.629527255368426*^9, 3.629527282762078*^9}, {3.629527413708703*^9, 3.629527476124414*^9}, {3.6295275252801*^9, 3.629527991252921*^9}, { 3.6295281572216096`*^9, 3.629528160435215*^9}, {3.629528290555044*^9, 3.6295284308616905`*^9}, 3.629528540202283*^9, {3.629528582088356*^9, 3.629528616798417*^9}, {3.629528766683481*^9, 3.6295290316343455`*^9}, { 3.629529086515242*^9, 3.629529118432898*^9}, {3.6295291548121614`*^9, 3.629529292794404*^9}, {3.629529342620892*^9, 3.629529349126104*^9}, { 3.629529420699029*^9, 3.629529571535694*^9}, {3.629529653950639*^9, 3.629529656103442*^9}, {3.6295296894407005`*^9, 3.629529692295506*^9}, { 3.629529744555599*^9, 3.629529766426836*^9}, {3.629529805333305*^9, 3.629529820948932*^9}, {3.629530838055119*^9, 3.62953083866352*^9}, { 3.629532377840223*^9, 3.6295323811630287`*^9}, {3.629532480020402*^9, 3.629532482454006*^9}, {3.629532520720874*^9, 3.629532564619351*^9}, { 3.62953259842461*^9, 3.629532600265414*^9}, {3.629532632775871*^9, 3.629532671510739*^9}, {3.629532742428463*^9, 3.629532828805815*^9}, { 3.6295329692184625`*^9, 3.6295330530062094`*^9}, {3.6295331824396386`*^9, 3.629533193562456*^9}, 3.629535032172092*^9, 3.629535158485513*^9, { 3.629535245471266*^9, 3.629535268746508*^9}, {3.62953541293756*^9, 3.629535446384019*^9}, {3.6295355043381205`*^9, 3.62953552622496*^9}, { 3.629543790136781*^9, 3.629543791181983*^9}, {3.629543871350524*^9, 3.629544001673153*^9}, {3.629544668200924*^9, 3.629544668466124*^9}, { 3.6296010216162376`*^9, 3.629601023644241*^9}, {3.629601079336339*^9, 3.629601090287559*^9}, 3.629601142547652*^9, {3.6296043522397404`*^9, 3.629604399031022*^9}, {3.629623884428093*^9, 3.629623914723346*^9}, { 3.629623966219037*^9, 3.629623973800649*^9}, {3.629624051473187*^9, 3.629624092017658*^9}, {3.629624125947717*^9, 3.629624369432945*^9}, { 3.629625651224797*^9, 3.629625681707249*^9}, {3.629626047262692*^9, 3.629626047434292*^9}, {3.629628055568204*^9, 3.629628056098605*^9}, { 3.6296280911206665`*^9, 3.629628108826698*^9}, {3.629628140681954*^9, 3.629628273032586*^9}, {3.629628378831972*^9, 3.6296283814995766`*^9}, { 3.629628459562114*^9, 3.629628466379326*^9}, {3.629628519419419*^9, 3.6296285390754533`*^9}, {3.629633008133008*^9, 3.629633008835009*^9}, { 3.629633776496758*^9, 3.6296338344040594`*^9}, {3.629634299768477*^9, 3.629634432150309*^9}, {3.629634494035618*^9, 3.629634532006085*^9}, { 3.629634594499794*^9, 3.629634812182576*^9}, {3.629634859981061*^9, 3.629634874691887*^9}, {3.629634907186744*^9, 3.629635023172947*^9}, 3.629635099581881*^9, {3.629636379720129*^9, 3.629636386896143*^9}, { 3.629636462025874*^9, 3.6296364833355117`*^9}, {3.629636555922439*^9, 3.62963656780966*^9}, {3.629636770469616*^9, 3.629636774151222*^9}, { 3.629636919278277*^9, 3.629636931883099*^9}, {3.629637058539722*^9, 3.6296370719401455`*^9}, {3.629637278172508*^9, 3.629637286814923*^9}, { 3.629637641809147*^9, 3.629637662385583*^9}, {3.629637773551378*^9, 3.629637795360216*^9}, {3.6296390041751394`*^9, 3.629639039571602*^9}, 3.629639382975005*^9, {3.629639554606507*^9, 3.629639564996125*^9}, { 3.62964113386068*^9, 3.629641250704885*^9}, {3.629641303167777*^9, 3.629641313744596*^9}, {3.6296416285116315`*^9, 3.629641628886032*^9}, { 3.6296416658736973`*^9, 3.6296416815049243`*^9}, 3.6296417376338234`*^9, { 3.629685555126974*^9, 3.629685580427008*^9}, {3.629707906579625*^9, 3.6297079070476255`*^9}, {3.629708085043938*^9, 3.629708135728427*^9}, { 3.629708349651603*^9, 3.6297084025512953`*^9}, {3.629708781767563*^9, 3.629708790940379*^9}, {3.629708940248241*^9, 3.629708961854279*^9}, { 3.6297105345398417`*^9, 3.629710538580249*^9}, {3.629710781051475*^9, 3.6297107850138817`*^9}, {3.629710910048101*^9, 3.629710915710911*^9}, { 3.629711201534613*^9, 3.629711204311418*^9}, {3.629711236307074*^9, 3.62971150072754*^9}, {3.629711537746405*^9, 3.629711544111215*^9}, 3.629711602564518*^9, {3.629871650538936*^9, 3.629871851841689*^9}, { 3.62987837458679*^9, 3.629878383510006*^9}, {3.6298784402629056`*^9, 3.629878447345318*^9}, {3.629878522178649*^9, 3.6298786580236883`*^9}, { 3.629878689613744*^9, 3.629878737147027*^9}, 3.629878783853509*^9, { 3.629878832322794*^9, 3.629878917172344*^9}, {3.6298802128122005`*^9, 3.6298802929723163`*^9}, 3.6298813644148126`*^9, {3.629882428887303*^9, 3.629882435887313*^9}, {3.6298986251827383`*^9, 3.6298988530367384`*^9}, { 3.629898903674427*^9, 3.629898948649307*^9}, {3.629899016868226*^9, 3.629899162244881*^9}, {3.6298997154530535`*^9, 3.629899740147897*^9}, { 3.6298998248560457`*^9, 3.629899978048314*^9}, {3.6299000396372223`*^9, 3.6299001557638264`*^9}, {3.6299001966826982`*^9, 3.629900259535209*^9}, 3.629900501123635*^9, {3.629900546831715*^9, 3.629900567642151*^9}, { 3.629900887676713*^9, 3.629900990153293*^9}, {3.629901168922009*^9, 3.629901229512515*^9}, {3.629901375403971*^9, 3.6299014166036434`*^9}, 3.629901458973318*^9, {3.629901509673407*^9, 3.629901588765546*^9}, { 3.629901662569275*^9, 3.629901697466537*^9}, {3.629901952339784*^9, 3.629901959905798*^9}, 3.629902030605121*^9, {3.629902233093477*^9, 3.62990226825594*^9}, {3.6299023020455985`*^9, 3.629902332808852*^9}, { 3.6299024532566643`*^9, 3.629902462850681*^9}, {3.629949880225117*^9, 3.6299498807867184`*^9}, {3.629950310115073*^9, 3.629950315699882*^9}, { 3.629950355058751*^9, 3.629950498937804*^9}, {3.6299555415202007`*^9, 3.629955550708617*^9}, {3.629955606166714*^9, 3.629955755349777*^9}, { 3.629955788499834*^9, 3.62995589486082*^9}, {3.629956042764681*^9, 3.629956043809883*^9}, {3.6299560914211664`*^9, 3.6299561017327843`*^9}, 3.629956145849662*^9, {3.6299584813821354`*^9, 3.629958508276583*^9}, 3.6299585652946825`*^9, {3.629958616587573*^9, 3.629958635650806*^9}, { 3.629958715073346*^9, 3.629958818641929*^9}, {3.629958857454797*^9, 3.629958927249319*^9}, {3.629959427994599*^9, 3.629959494669116*^9}, { 3.629959529332377*^9, 3.6299596037913074`*^9}, {3.62995966795422*^9, 3.62995967360143*^9}, {3.6299597835972233`*^9, 3.629959784112025*^9}, { 3.629959826622099*^9, 3.629959862533362*^9}, {3.6299599051682367`*^9, 3.629959923591869*^9}, 3.629959979939168*^9, {3.6299601345354395`*^9, 3.62996014612626*^9}, 3.6299601769831142`*^9, {3.629960253142448*^9, 3.629960269538077*^9}, {3.6299603041701374`*^9, 3.6299603078205442`*^9}, { 3.6299604300467587`*^9, 3.629960435491168*^9}, {3.6299605300585346`*^9, 3.629960563660994*^9}, {3.6299606195870914`*^9, 3.62996065819716*^9}, { 3.629960824228251*^9, 3.6299608755367413`*^9}, {3.629960906658796*^9, 3.629960997840956*^9}, {3.629961031225015*^9, 3.629961070646284*^9}, { 3.629961135698398*^9, 3.629961164308848*^9}, {3.6299720458358483`*^9, 3.6299721791536827`*^9}, {3.629972243971797*^9, 3.629972300007095*^9}, { 3.629972367087213*^9, 3.629972393700859*^9}, {3.629972457801372*^9, 3.6299724710613956`*^9}, {3.629972740193068*^9, 3.6299728251196175`*^9}, { 3.6299729203577843`*^9, 3.62997293502181*^9}, {3.629972972087476*^9, 3.6299730462188053`*^9}, {3.629973116044528*^9, 3.62997312301774*^9}, { 3.629973184310248*^9, 3.6299732090830917`*^9}, {3.629973349982539*^9, 3.6299734360166903`*^9}, 3.629973534562063*^9, {3.629973577446539*^9, 3.629973586104554*^9}, {3.629974037413347*^9, 3.629974083823428*^9}, { 3.629974250556521*^9, 3.629974337089873*^9}, {3.629974382907153*^9, 3.629974446617666*^9}, {3.629974589794717*^9, 3.629974590761918*^9}, { 3.629974776215044*^9, 3.62997478501346*^9}, {3.629974822609526*^9, 3.629974823748328*^9}, 3.629974861843595*^9, {3.629975198476586*^9, 3.6299752545898843`*^9}, {3.62997531475919*^9, 3.629975317551595*^9}, { 3.629975460198244*^9, 3.629975462538249*^9}, {3.629975592034077*^9, 3.629975592502078*^9}, {3.629983277446268*^9, 3.6299832946842985`*^9}, { 3.62998342081052*^9, 3.629983543988337*^9}, {3.629983615514462*^9, 3.629983931009416*^9}, {3.629991980704045*^9, 3.6299919808912444`*^9}, { 3.629992028330928*^9, 3.6299920922130404`*^9}, 3.629992198480427*^9, { 3.629992229930083*^9, 3.629992250506518*^9}, {3.629992292657792*^9, 3.629992360315111*^9}, {3.629992438767649*^9, 3.6299924398440504`*^9}, { 3.629992576484691*^9, 3.629992609634748*^9}, {3.629992812232305*^9, 3.629992818768716*^9}, {3.6299929049120674`*^9, 3.629992905411268*^9}, { 3.6299929850338078`*^9, 3.6299929866250105`*^9}, {3.6299931061992207`*^9, 3.62999312270405*^9}, {3.629993172312137*^9, 3.629993261871896*^9}, { 3.629993327657211*^9, 3.6299933842073092`*^9}, {3.630287775665962*^9, 3.630287795852398*^9}, {3.630389638710054*^9, 3.630389666774503*^9}, { 3.630389696788956*^9, 3.630389709534179*^9}, {3.630389758705467*^9, 3.630389880448078*^9}, {3.6303899127557354`*^9, 3.630390009444705*^9}, 3.630390057321189*^9, 3.630390443484267*^9, {3.63039095720877*^9, 3.630390978924008*^9}, {3.630391057220546*^9, 3.6303911291054716`*^9}, { 3.630391163035531*^9, 3.630391174080351*^9}, {3.630391240224467*^9, 3.6303912875081496`*^9}, {3.6303913396902413`*^9, 3.630391404570755*^9}, { 3.630391479513287*^9, 3.630391757287376*^9}, {3.630391868905571*^9, 3.630392002722606*^9}, {3.630392064327114*^9, 3.630392219843787*^9}, { 3.63039226121506*^9, 3.63039232943398*^9}, {3.6303924315985594`*^9, 3.630392444109781*^9}, {3.6303926866122074`*^9, 3.630392711853052*^9}, { 3.630392795671999*^9, 3.6303928006172075`*^9}, {3.630398603219048*^9, 3.630398604623051*^9}, {3.6303986654631586`*^9, 3.6303987936485834`*^9}, { 3.63039889979117*^9, 3.6303989091199865`*^9}, {3.630399006323757*^9, 3.630399007259759*^9}, {3.630399117224352*^9, 3.630399214771323*^9}, { 3.630399255518595*^9, 3.6303993036758795`*^9}, {3.630399467725767*^9, 3.630399502731636*^9}, {3.6303995748037624`*^9, 3.630399595614199*^9}, { 3.6303996329294643`*^9, 3.630399658076709*^9}, {3.630399711335202*^9, 3.630399745312063*^9}, {3.630399854699455*^9, 3.6303999880484886`*^9}, { 3.6304000742074394`*^9, 3.630400123441126*^9}, {3.630400172456413*^9, 3.630400251595351*^9}, {3.630400324166679*^9, 3.630400327052684*^9}, { 3.630400358190338*^9, 3.6304003597503414`*^9}, {3.6304004587481155`*^9, 3.630400464052124*^9}, {3.630400521975026*^9, 3.630400526124634*^9}, { 3.630400567199506*^9, 3.630400593516752*^9}, {3.630401234007077*^9, 3.6304013035207987`*^9}, {3.630401361474901*^9, 3.630401367933312*^9}, { 3.630401686939398*^9, 3.6304017294598303`*^9}, {3.630401794020523*^9, 3.6304018922061386`*^9}, {3.630401968777519*^9, 3.630401987153569*^9}, { 3.630402072749465*^9, 3.63040208297405*^9}, {3.630402224788161*^9, 3.630402255931943*^9}, 3.630402329306139*^9, {3.6304023806970787`*^9, 3.6304024212403975`*^9}, {3.6304025002259154`*^9, 3.630402528595538*^9}, { 3.630402562069453*^9, 3.630402575015193*^9}, {3.6304026411829786`*^9, 3.630402649073429*^9}, {3.630402695548087*^9, 3.6304027128260756`*^9}, { 3.630402783923142*^9, 3.6304027982389607`*^9}, {3.630402879723621*^9, 3.6304030111811404`*^9}, {3.6304030562107162`*^9, 3.630403159884645*^9}, { 3.630403236330018*^9, 3.630403240407252*^9}, {3.630403373001835*^9, 3.6304033888147397`*^9}, {3.6304039420953856`*^9, 3.630403951282912*^9}, 3.630403983143733*^9, {3.630404015975611*^9, 3.630404066362494*^9}, { 3.630404173614628*^9, 3.630404246945822*^9}, {3.6304042891772375`*^9, 3.630404299595834*^9}, {3.630404391083066*^9, 3.630404392406142*^9}, { 3.6304045301800222`*^9, 3.630404557948611*^9}, {3.630404640215316*^9, 3.630404762796327*^9}, {3.630404877629895*^9, 3.630404883104208*^9}, { 3.6304050364729805`*^9, 3.630405098270515*^9}, {3.630405173611822*^9, 3.630405196590138*^9}, {3.630405380253643*^9, 3.63040539242334*^9}, { 3.630406035965148*^9, 3.630406041998493*^9}, {3.630406072049212*^9, 3.6304060962065935`*^9}, {3.630406264081196*^9, 3.630406270702575*^9}, { 3.63040632219952*^9, 3.630406385461138*^9}, {3.630406477200385*^9, 3.630406482095665*^9}, {3.6304066170883865`*^9, 3.6304066222256804`*^9}, { 3.630406957868878*^9, 3.630406973411767*^9}, {3.630407008144754*^9, 3.630407018199329*^9}, {3.630407411376817*^9, 3.630407412542884*^9}, { 3.630408060933969*^9, 3.630408121202417*^9}, {3.6304081585485525`*^9, 3.630408183212963*^9}, {3.63040821409673*^9, 3.630408421131572*^9}, 3.630493433336327*^9, {3.63049350751357*^9, 3.630493677593298*^9}, { 3.630493716898546*^9, 3.630493784668423*^9}, 3.630493922944331*^9, { 3.6304939556752033`*^9, 3.630494117430455*^9}, {3.6304941486092386`*^9, 3.630494176778849*^9}, {3.630494211864857*^9, 3.630494253027211*^9}, { 3.630494283839974*^9, 3.630494284582016*^9}, {3.6304943454054956`*^9, 3.6304944442451477`*^9}, {3.63080749995092*^9, 3.630807548080124*^9}, { 3.630807586536323*^9, 3.630807621440319*^9}, {3.630807680459695*^9, 3.630807682914836*^9}, {3.630807736889923*^9, 3.630807764474501*^9}, { 3.630807808108997*^9, 3.630807867012366*^9}, {3.630807991648494*^9, 3.630807997541831*^9}, {3.630808108089154*^9, 3.630808191959951*^9}, { 3.630808306368495*^9, 3.630808345060708*^9}, {3.6308087281906223`*^9, 3.6308087555171847`*^9}, {3.630809110815507*^9, 3.630809169033837*^9}, { 3.630809199819597*^9, 3.630809448512822*^9}, {3.6308095328996487`*^9, 3.630809544822331*^9}, {3.630809582269472*^9, 3.6308095873607635`*^9}, { 3.630809665529235*^9, 3.630809684808337*^9}, {3.6308316258485594`*^9, 3.6308318380886984`*^9}, {3.63083188164919*^9, 3.630831966930068*^9}, 3.632040055835607*^9, {3.6354749882908883`*^9, 3.635474989418953*^9}, { 3.635475084557395*^9, 3.635475087514563*^9}, {3.635475133409188*^9, 3.635475162315842*^9}, {3.6354754001974483`*^9, 3.635475482033128*^9}, 3.635475512931896*^9, {3.63547562227815*^9, 3.635475622861184*^9}, { 3.635475691642118*^9, 3.6354757057969275`*^9}, {3.63547577982916*^9, 3.635475797395167*^9}, {3.635475884848169*^9, 3.6354758981309285`*^9}, { 3.635475961488552*^9, 3.635475973838258*^9}, {3.635476021372978*^9, 3.6354760572050266`*^9}, {3.6354761282470903`*^9, 3.635476136040536*^9}, { 3.635476171936589*^9, 3.635476212217893*^9}, {3.6593346599546614`*^9, 3.659334660890663*^9}, {3.659334707721947*^9, 3.659334720701168*^9}, { 3.65933487529744*^9, 3.6593348758122406`*^9}, {3.6593349140947075`*^9, 3.659335007024071*^9}, {3.659335046694941*^9, 3.6593350543701544`*^9}, { 3.659335103791041*^9, 3.6593351614487424`*^9}, 3.659335217686841*^9, { 3.659335262084519*^9, 3.6593352995869846`*^9}, {3.6593356899482727`*^9, 3.659335701819893*^9}, {3.659335964227954*^9, 3.659335964602355*^9}, { 3.65933603594128*^9, 3.659336062960528*^9}, {3.6593361352354546`*^9, 3.659336150445482*^9}, {3.659336392947908*^9, 3.6593364061611304`*^9}, 3.6593368946915884`*^9, {3.688474826565616*^9, 3.688474826871633*^9}, { 3.688474860007529*^9, 3.688474861420609*^9}, {3.688524285824078*^9, 3.688524300114098*^9}, {3.688884291167561*^9, 3.688884331167619*^9}, { 3.688966242423658*^9, 3.688966263933688*^9}, {3.68973935878976*^9, 3.6897393649897685`*^9}, 3.689739477049925*^9, {3.689859597062174*^9, 3.689859597272174*^9}, {3.6898596707522764`*^9, 3.6898597190523443`*^9}, { 3.689859768552414*^9, 3.68985977214242*^9}, {3.689859855272535*^9, 3.689859859882541*^9}, {3.6898605078334484`*^9, 3.6898607266237545`*^9}, 3.689860881113971*^9, {3.6898609634740863`*^9, 3.689860974304102*^9}, 3.6898610140141573`*^9, {3.689861149604347*^9, 3.689861168324375*^9}, { 3.689861462024784*^9, 3.689861562484926*^9}, {3.689861614214998*^9, 3.6898616164350004`*^9}, 3.6898616657950697`*^9, {3.689861716805141*^9, 3.689861749905187*^9}, {3.732677920575506*^9, 3.73267792081902*^9}, { 3.751967242700422*^9, 3.751967244496888*^9}, {3.7519674022097683`*^9, 3.75196742976579*^9}, {3.751967484127989*^9, 3.751967510853814*^9}, { 3.75196754094049*^9, 3.751967541549782*^9}, {3.7519675797751045`*^9, 3.751967592209671*^9}, {3.751967682938328*^9, 3.7519676841255474`*^9}, { 3.751967715477556*^9, 3.751967795349941*^9}, 3.751967827811061*^9, { 3.7519679545625095`*^9, 3.751967957999185*^9}, {3.751968003754015*^9, 3.7519681477513895`*^9}, {3.751968264817631*^9, 3.751968270722477*^9}, { 3.751968961811991*^9, 3.751968969888235*^9}, {3.7519691168917775`*^9, 3.75196913958956*^9}, {3.751969242782174*^9, 3.751969258169179*^9}, { 3.7519693625211954`*^9, 3.751969378579924*^9}, {3.751969409572627*^9, 3.751969438643936*^9}, {3.751969589452673*^9, 3.751969614306203*^9}, { 3.752320010858665*^9, 3.752320012354121*^9}, {3.755383131561971*^9, 3.755383134119626*^9}, {3.755383189319779*^9, 3.755383241814331*^9}, { 3.755383273626797*^9, 3.755383281075712*^9}, {3.755433653622297*^9, 3.755433684797229*^9}, {3.7554337764737434`*^9, 3.7554338315300155`*^9}, { 3.755433998047738*^9, 3.7554340265485487`*^9}, {3.755446573138784*^9, 3.755446636911299*^9}, {3.75544667493072*^9, 3.755446753435521*^9}, { 3.755446891541581*^9, 3.755446892154742*^9}, {3.755446932358853*^9, 3.755446936867403*^9}, {3.755447019033297*^9, 3.7554472776872244`*^9}, { 3.755521732369203*^9, 3.755521732847602*^9}, {3.755521767127169*^9, 3.75552179720418*^9}, {3.755522561453134*^9, 3.755522564231819*^9}, { 3.755522601885935*^9, 3.75552260372874*^9}, {3.7555226758687305`*^9, 3.755522678585092*^9}, {3.7555234832604623`*^9, 3.755523592044442*^9}, { 3.755523950600755*^9, 3.755524013893358*^9}, {3.755524076791689*^9, 3.755524081279345*^9}, {3.755524123813827*^9, 3.7555241268985643`*^9}, { 3.7555242930449886`*^9, 3.755524337857702*^9}, {3.755525667376783*^9, 3.755525680820534*^9}, {3.7555258588384156`*^9, 3.755525900317296*^9}, { 3.755525930708299*^9, 3.755526043653114*^9}, {3.755607147401991*^9, 3.7556071504143705`*^9}, {3.755607992884314*^9, 3.755608002538299*^9}, { 3.7556094344057417`*^9, 3.755609434869044*^9}, {3.7559613653116636`*^9, 3.755961445097105*^9}, 3.755961484246889*^9, {3.755961897923199*^9, 3.755961939470047*^9}, {3.755962032372491*^9, 3.7559620330864*^9}, { 3.755962155557907*^9, 3.7559621601593847`*^9}, {3.755962303755834*^9, 3.755962343830135*^9}, {3.7559624058018165`*^9, 3.7559624450501757`*^9}, 3.756002186674869*^9, 3.756002962685539*^9, {3.756003222110388*^9, 3.756003295034633*^9}, {3.7560056331492825`*^9, 3.756005666385545*^9}, { 3.7560057813555765`*^9, 3.756005786383661*^9}, {3.7560058917172394`*^9, 3.756005927847292*^9}, 3.756006092376186*^9, 3.756009112317705*^9, { 3.756091886039587*^9, 3.756091887764086*^9}, {3.756092005435152*^9, 3.756092072733768*^9}, {3.75609212911592*^9, 3.7560921293252482`*^9}, { 3.756092262958163*^9, 3.756092263157668*^9}, {3.756092342487877*^9, 3.756092347894502*^9}, {3.7560929036769304`*^9, 3.7560929278911*^9}, { 3.7560930741522417`*^9, 3.756093083420331*^9}, {3.756093298623654*^9, 3.7560933139459305`*^9}, {3.756093449985523*^9, 3.7560934874491863`*^9}, { 3.756093592694581*^9, 3.756093601945658*^9}, {3.756093634438078*^9, 3.756093673866626*^9}, {3.756093873069885*^9, 3.756093897964734*^9}, { 3.7560940650109406`*^9, 3.756094078056768*^9}, {3.756442536546026*^9, 3.756442607904289*^9}, {3.756443639745136*^9, 3.756443640323125*^9}, { 3.763603498457024*^9, 3.7636034989933815`*^9}, {3.763603551051456*^9, 3.763603552761782*^9}, {3.76360360493842*^9, 3.7636036392233057`*^9}, { 3.7636036850937223`*^9, 3.763603692587598*^9}, {3.763603725827226*^9, 3.7636037459031096`*^9}, {3.763603779225438*^9, 3.76360387572289*^9}, { 3.763603971837229*^9, 3.763604034142366*^9}, {3.763604066526084*^9, 3.763604075679869*^9}, {3.763604145211854*^9, 3.763604278007333*^9}, { 3.763604317710966*^9, 3.763604327138757*^9}, {3.763604358487767*^9, 3.763604415561053*^9}, {3.763604445680462*^9, 3.763604450411495*^9}, { 3.763604615444647*^9, 3.76360480825542*^9}, 3.763604854904996*^9, { 3.763613359409549*^9, 3.7636133618464804`*^9}, {3.763613606375671*^9, 3.7636136315671196`*^9}, {3.763699037382771*^9, 3.7636990431157646`*^9}, { 3.763699090332087*^9, 3.763699110952259*^9}, {3.763699227420497*^9, 3.763699364294351*^9}, {3.763700085627533*^9, 3.763700088329999*^9}, { 3.76370017211253*^9, 3.763700181422837*^9}, {3.763700248063385*^9, 3.763700391863047*^9}, {3.763700591783223*^9, 3.7637006017496295`*^9}, { 3.763700758357673*^9, 3.7637007603074903`*^9}, {3.763713779579322*^9, 3.763713782258724*^9}, {3.763714870435521*^9, 3.763714870624051*^9}, { 3.763727592158518*^9, 3.763727593344506*^9}, {3.763727668836372*^9, 3.76372766947566*^9}, 3.763803448896332*^9, {3.76380349501632*^9, 3.7638036835067654`*^9}, {3.763804829093463*^9, 3.763804838567526*^9}, 3.763805103364615*^9, 3.7638053924528885`*^9, {3.763805557684454*^9, 3.763805634255308*^9}, {3.763806843847647*^9, 3.763806847966059*^9}, { 3.763806942652097*^9, 3.7638071770752254`*^9}, {3.763814118459412*^9, 3.763814134133461*^9}, {3.7638146808628216`*^9, 3.763814692564512*^9}, { 3.7638147709278817`*^9, 3.763814781188312*^9}, {3.763814815528105*^9, 3.763814819843194*^9}, {3.763815025964744*^9, 3.763815028601293*^9}, { 3.76381515295952*^9, 3.763815155849978*^9}, {3.763816377026214*^9, 3.763816380851597*^9}, {3.7638164181856346`*^9, 3.7638164950537987`*^9}, 3.763816568304102*^9, {3.763816617364563*^9, 3.763816618808757*^9}, { 3.7638167204462805`*^9, 3.763816721012859*^9}, {3.763857602253485*^9, 3.7638579604183645`*^9}, {3.7638580038507566`*^9, 3.763858006052645*^9}, { 3.763858082269992*^9, 3.7638581746835337`*^9}, {3.763858216335157*^9, 3.763858241527512*^9}, {3.7638582983238*^9, 3.763858907503306*^9}, { 3.763858941318697*^9, 3.763858956626134*^9}, {3.763860243560254*^9, 3.763860245408451*^9}, {3.763869463645635*^9, 3.763869464717728*^9}, { 3.7638708199536576`*^9, 3.763870829436488*^9}, {3.763871287170555*^9, 3.763871287618401*^9}, {3.763943214376035*^9, 3.763943298459148*^9}, { 3.763943418832348*^9, 3.7639434335508127`*^9}, {3.76394347113767*^9, 3.763943518732061*^9}, {3.763943585908682*^9, 3.763943612525541*^9}, { 3.763951722152746*^9, 3.76395172989299*^9}, {3.7639517863423414`*^9, 3.763951994590067*^9}, {3.763952081515512*^9, 3.763952153071078*^9}, { 3.763952353248129*^9, 3.763952357026309*^9}, {3.7639524211903834`*^9, 3.763952424397918*^9}, {3.763952717492514*^9, 3.763952718025227*^9}, { 3.7641265625746*^9, 3.764126563231418*^9}, {3.764126605555829*^9, 3.76412660750954*^9}, {3.764126831396415*^9, 3.764126854357385*^9}, { 3.764127044657903*^9, 3.76412704794221*^9}, {3.76412714423327*^9, 3.764127146936281*^9}, {3.764127227626192*^9, 3.764127259264025*^9}, { 3.764127335707515*^9, 3.764127338648476*^9}, {3.764127429843852*^9, 3.764127436430419*^9}, {3.764127507185932*^9, 3.764127516803895*^9}, 3.764127604354801*^9, {3.764127692536579*^9, 3.764127697080591*^9}, 3.764127798472331*^9, 3.764127853631323*^9, 3.764127908496078*^9, { 3.764128005034333*^9, 3.764128022046494*^9}, {3.764128128597419*^9, 3.764128154116727*^9}, {3.7641286864636617`*^9, 3.764128701643106*^9}, { 3.764128991092445*^9, 3.76412901266808*^9}, {3.7641290672285385`*^9, 3.764129073779857*^9}, {3.764132542512038*^9, 3.764132565390477*^9}, { 3.764132742500468*^9, 3.764132750040793*^9}, 3.764132796834039*^9, { 3.764133146776842*^9, 3.764133204874522*^9}, {3.764133348818705*^9, 3.7641333525577636`*^9}, {3.764413145593136*^9, 3.764413147123611*^9}, { 3.764413201645049*^9, 3.764413234960971*^9}, {3.764413325008136*^9, 3.7644133748980193`*^9}, {3.764413411342567*^9, 3.7644135151187*^9}, { 3.764413554409053*^9, 3.764413616067494*^9}, {3.76441371984758*^9, 3.764413730103909*^9}, 3.764419641962368*^9, {3.7644198522879443`*^9, 3.764419879249356*^9}, 3.764419909536559*^9, {3.764419991012162*^9, 3.764420000171088*^9}, {3.764420079886205*^9, 3.764420095096192*^9}, { 3.76442015294717*^9, 3.764420153715966*^9}, {3.764420210346301*^9, 3.764420255343707*^9}, {3.764420296178318*^9, 3.76442030009394*^9}, { 3.764420380335928*^9, 3.7644203931390867`*^9}, 3.764420441872728*^9, { 3.764725972070021*^9, 3.764726104726053*^9}, {3.7647263483375664`*^9, 3.76472635879602*^9}, 3.764726656736601*^9, {3.764727009127914*^9, 3.764727020100875*^9}, {3.764727059182879*^9, 3.7647270819631042`*^9}, { 3.7647272109090543`*^9, 3.764727227846332*^9}, {3.76473247809907*^9, 3.764732481392512*^9}, {3.764734948496282*^9, 3.7647349979358416`*^9}, { 3.764735109725817*^9, 3.764735124772463*^9}, {3.764735281067446*^9, 3.764735290113992*^9}, {3.764735374642952*^9, 3.764735379550926*^9}, { 3.764735459653981*^9, 3.764735507677454*^9}, {3.7647355546341*^9, 3.764735728811817*^9}, {3.764735837449795*^9, 3.76473584132898*^9}, { 3.76473603649269*^9, 3.764736059298267*^9}, {3.764736099822881*^9, 3.76473621551197*^9}, {3.764736254559901*^9, 3.764736286430997*^9}, { 3.764736459283355*^9, 3.764736464019006*^9}, {3.764736566167658*^9, 3.764736591895823*^9}, {3.764764761680134*^9, 3.764764848247376*^9}, 3.764764917763693*^9, {3.764764964821686*^9, 3.764765090741813*^9}, { 3.7647651742140284`*^9, 3.764765251733508*^9}, {3.764765341266399*^9, 3.764765361417349*^9}, 3.764765400284145*^9, {3.764765691384389*^9, 3.764765708710143*^9}, 3.764765745427589*^9, {3.76476578351686*^9, 3.764765871262255*^9}, {3.7647661045180917`*^9, 3.76476612822571*^9}, { 3.764766196422384*^9, 3.764766239375331*^9}, {3.764766330361228*^9, 3.764766338297905*^9}, {3.764767015060799*^9, 3.764767019302905*^9}, { 3.764767076590926*^9, 3.764767116027799*^9}, {3.764767149313921*^9, 3.764767207923643*^9}, {3.764767458938404*^9, 3.764767460832389*^9}, { 3.764810938444873*^9, 3.764810939935345*^9}, {3.76481186160199*^9, 3.7648118695079165`*^9}, {3.764812058947782*^9, 3.764812460041324*^9}, { 3.76481250476682*^9, 3.7648125259602103`*^9}, {3.764812601341893*^9, 3.764812657776325*^9}, {3.7648126944039307`*^9, 3.764812885562763*^9}, { 3.764812924923909*^9, 3.764812926481821*^9}, {3.764813041485982*^9, 3.764813131254232*^9}, {3.7648134679328885`*^9, 3.764813647931326*^9}, { 3.764813691777732*^9, 3.764813697753367*^9}, {3.764813729757066*^9, 3.764813747862262*^9}, 3.764813784221693*^9, {3.7648138370678406`*^9, 3.764814138796994*^9}, {3.764814321050164*^9, 3.764814422489184*^9}, { 3.764814461366684*^9, 3.764814583572849*^9}, {3.764814614769511*^9, 3.7648147525825214`*^9}, {3.764815363375289*^9, 3.7648153644907384`*^9}, { 3.764815451671169*^9, 3.764815460153375*^9}, {3.764817591780298*^9, 3.764817640191057*^9}, {3.765885491237231*^9, 3.765885501131465*^9}, { 3.766572999289345*^9, 3.7665729996020145`*^9}, {3.7665730613127*^9, 3.766573061670607*^9}, {3.784010326212555*^9, 3.784010354641354*^9}, { 3.784011309725755*^9, 3.7840113197719607`*^9}, {3.784013374800973*^9, 3.784013384298177*^9}, {3.784023853366545*^9, 3.78402395932942*^9}, { 3.784024091276659*^9, 3.784024112209529*^9}, {3.784024279321965*^9, 3.784024296655184*^9}, {3.784029067089268*^9, 3.784029134838885*^9}, { 3.784029222997594*^9, 3.784029542926179*^9}, {3.784375172285057*^9, 3.784375319701829*^9}, {3.784375367842181*^9, 3.7843753788103952`*^9}, { 3.7843754844339557`*^9, 3.784375827494117*^9}, {3.784375862317687*^9, 3.784375956756385*^9}, {3.784376004941759*^9, 3.784376008015719*^9}, { 3.784376101918992*^9, 3.7843761244332943`*^9}, {3.784376181191763*^9, 3.784376214509187*^9}, {3.784379248996035*^9, 3.78437926273014*^9}, { 3.7843793293934345`*^9, 3.784379368676588*^9}, {3.784379652983522*^9, 3.784379685886227*^9}, {3.784450863324359*^9, 3.784450898607655*^9}, { 3.784451020839233*^9, 3.784451027915551*^9}, {3.784451117631562*^9, 3.784451167379196*^9}, {3.784451235055628*^9, 3.78445132575735*^9}, { 3.784451995615477*^9, 3.7844520110330954`*^9}, {3.784452290755154*^9, 3.7844523421551*^9}, {3.784700119490345*^9, 3.784700162791302*^9}, { 3.784700422129061*^9, 3.784700438076732*^9}, 3.784700791350615*^9, { 3.784781955129138*^9, 3.784781977787957*^9}, {3.78488170216677*^9, 3.784881704210422*^9}, 3.784882130557441*^9, {3.78488220347418*^9, 3.784882206469703*^9}, {3.784883393455822*^9, 3.784883458551924*^9}, 3.784883530649583*^9, {3.7848836822092113`*^9, 3.784883730369693*^9}, 3.784883819900958*^9, {3.784884250752787*^9, 3.7848842836585226`*^9}, 3.7848843847882996`*^9, {3.784884461405264*^9, 3.784884464504112*^9}, { 3.784884559404122*^9, 3.784884565663492*^9}, {3.784885240994485*^9, 3.7848852740337477`*^9}, {3.784885454892939*^9, 3.7848854893046365`*^9}, { 3.7848856741783943`*^9, 3.784885691704702*^9}, {3.784885809660874*^9, 3.784885811424426*^9}, {3.7848860031948376`*^9, 3.784886020570098*^9}, 3.784886105710563*^9, {3.784886162772612*^9, 3.784886221287616*^9}, { 3.784886306497995*^9, 3.784886350932223*^9}, 3.784886472690192*^9, { 3.7848866596243*^9, 3.784886664116289*^9}, {3.7848866987282944`*^9, 3.78488670779119*^9}, {3.78488676128524*^9, 3.7848868667029405`*^9}, { 3.784886938122401*^9, 3.784886941428147*^9}, {3.784887010450876*^9, 3.784887039889447*^9}, {3.7848871795058794`*^9, 3.7848871976746817`*^9}, { 3.784887231144632*^9, 3.78488724075662*^9}, 3.784887405188785*^9, { 3.784887591926689*^9, 3.784887611930515*^9}, {3.784887676620901*^9, 3.784887678667281*^9}, {3.78488771054331*^9, 3.784887714354906*^9}, { 3.784887762580958*^9, 3.784887810304116*^9}, 3.784887886288158*^9, { 3.787717235155089*^9, 3.787717269464238*^9}, {3.787717459260761*^9, 3.787717467403808*^9}, {3.7877271032841845`*^9, 3.787727136247201*^9}, 3.787727355369296*^9, 3.787727497327841*^9, {3.787727855959008*^9, 3.78772792141208*^9}, 3.787728113487193*^9, {3.787728170457156*^9, 3.7877281735077004`*^9}, 3.7877282789827833`*^9, {3.78772865102299*^9, 3.787728665729192*^9}, {3.787728794222509*^9, 3.787728807671986*^9}, { 3.787729044867985*^9, 3.787729045536916*^9}, {3.787729589732438*^9, 3.787729606209063*^9}, {3.787729794037467*^9, 3.787729795034788*^9}, { 3.787729855548402*^9, 3.787729903917996*^9}, {3.787730037324119*^9, 3.787730068136018*^9}, {3.787730199985935*^9, 3.787730201415079*^9}, { 3.787732033225385*^9, 3.787732047163402*^9}, {3.787732077195259*^9, 3.787732078035869*^9}, 3.787732189759206*^9, {3.78773231889835*^9, 3.787732327710633*^9}, {3.787732485716665*^9, 3.787732496655479*^9}, { 3.787732584830361*^9, 3.78773258503596*^9}, {3.787732850463118*^9, 3.787732862589242*^9}, {3.787733025488495*^9, 3.787733027101909*^9}, { 3.787733136128061*^9, 3.787733142225884*^9}, {3.787733243513567*^9, 3.78773324558677*^9}, 3.787733310555999*^9, 3.787733408532936*^9, { 3.78773379559323*^9, 3.787733797049826*^9}, {3.787733867727028*^9, 3.787733868732492*^9}, {3.7877352224369626`*^9, 3.787735224161746*^9}, { 3.787735343322833*^9, 3.787735348772827*^9}, {3.787735422704711*^9, 3.787735426894578*^9}, {3.787735510035564*^9, 3.787735514671461*^9}, { 3.787735654199456*^9, 3.7877356632141013`*^9}, 3.787735791347657*^9, 3.787736261837074*^9, {3.78825421590434*^9, 3.7882542747998285`*^9}, { 3.788254310967661*^9, 3.788254318430212*^9}, {3.788254585790197*^9, 3.788254588831856*^9}, {3.788254734998739*^9, 3.788254735940298*^9}, 3.788254830063775*^9, 3.7882549155286837`*^9, {3.7882550121437798`*^9, 3.788255037735396*^9}, {3.7882551764404287`*^9, 3.78825518352113*^9}, { 3.7882552540030313`*^9, 3.788255290224329*^9}, {3.788255384354489*^9, 3.788255423248046*^9}, {3.78825567982127*^9, 3.788255685247954*^9}, { 3.788255790857681*^9, 3.7882558029800806`*^9}, {3.788256024049425*^9, 3.788256038884617*^9}, 3.788256102343512*^9, {3.788256161397396*^9, 3.78825616263722*^9}, {3.7882562304311895`*^9, 3.78825629590362*^9}, { 3.788256361467739*^9, 3.7882563620189795`*^9}, {3.7882564138122153`*^9, 3.788256429415838*^9}, {3.788256467457189*^9, 3.7882564889521217`*^9}, { 3.788256588331185*^9, 3.788256591497148*^9}, {3.788256840951311*^9, 3.78825687245266*^9}, {3.788256965258837*^9, 3.788256966444976*^9}, { 3.788257007383147*^9, 3.788257049734998*^9}, {3.7882570992487097`*^9, 3.788257144206352*^9}, {3.78825721252205*^9, 3.788257307277931*^9}, { 3.788257350410209*^9, 3.788257361726275*^9}, {3.788257424936472*^9, 3.788257434118204*^9}, {3.788276311330668*^9, 3.788276311647092*^9}, { 3.788276546551238*^9, 3.788276608568333*^9}, {3.78827677158517*^9, 3.788276804575279*^9}, {3.788276934260743*^9, 3.7882769409894876`*^9}, { 3.788277020220857*^9, 3.788277042448522*^9}, {3.788277076004071*^9, 3.788277077341468*^9}, {3.788277147336176*^9, 3.788277150397852*^9}, { 3.7882772069909*^9, 3.788277210157239*^9}, {3.7882772503366213`*^9, 3.788277277375942*^9}, {3.7882773922958755`*^9, 3.7882773927832017`*^9}, { 3.788277450684473*^9, 3.788277482126852*^9}, {3.78827754293396*^9, 3.788277545027956*^9}, {3.788321455023044*^9, 3.7883214742097826`*^9}, { 3.788321520104019*^9, 3.788321685390153*^9}, {3.788321717307153*^9, 3.788321801831746*^9}, {3.788321836768508*^9, 3.788322037754008*^9}, { 3.788322068636382*^9, 3.788322220085001*^9}, {3.788325590619243*^9, 3.788325646609389*^9}, {3.788325797699157*^9, 3.788325804097658*^9}, { 3.788325969279187*^9, 3.788325983002827*^9}, {3.788326975877249*^9, 3.788326979070017*^9}, {3.788328539286415*^9, 3.788328618410488*^9}, { 3.788328648595448*^9, 3.788328762662589*^9}, {3.788328806089093*^9, 3.788328880571675*^9}, {3.788331918830006*^9, 3.78833193230753*^9}, { 3.788332114494757*^9, 3.788332115050151*^9}, {3.788333368045645*^9, 3.788333368627218*^9}, 3.788333642161144*^9, {3.788333691323177*^9, 3.7883336916362*^9}, {3.788333797629262*^9, 3.788333834866235*^9}, { 3.788333955547042*^9, 3.78833396603052*^9}, {3.7883340291758356`*^9, 3.788334031484354*^9}, {3.788334368484807*^9, 3.788334391875498*^9}, { 3.788334596373958*^9, 3.788334645315611*^9}, {3.788411405608647*^9, 3.788411409092114*^9}, {3.788411564471283*^9, 3.788411591199867*^9}, { 3.788411667399884*^9, 3.788411758799066*^9}, {3.788411985303985*^9, 3.788412002701314*^9}, {3.78841218266156*^9, 3.788412217652734*^9}, { 3.788412679618697*^9, 3.78841268296084*^9}, {3.788412968920223*^9, 3.788412978203964*^9}, {3.788415524172302*^9, 3.788415524379891*^9}, 3.78841566195196*^9, {3.788416234326269*^9, 3.788416236013459*^9}, { 3.789022054245319*^9, 3.7890221116154556`*^9}, {3.7890222001685014`*^9, 3.789022205961149*^9}, {3.789094077050009*^9, 3.789094078116744*^9}, { 3.789094125488318*^9, 3.789094291986123*^9}, {3.789094340508856*^9, 3.789094543716852*^9}, {3.789094583794143*^9, 3.7890947278803487`*^9}, { 3.789094771441708*^9, 3.789094834262635*^9}, {3.789095197615344*^9, 3.789095215073329*^9}, {3.789095256390032*^9, 3.78909525710861*^9}, { 3.7890954241290827`*^9, 3.78909583987399*^9}, {3.789096056032333*^9, 3.789096060276847*^9}, {3.7890960928429947`*^9, 3.789096098149865*^9}, { 3.789096721918685*^9, 3.789096734998893*^9}, {3.789096774197328*^9, 3.78909683859006*^9}, {3.789096947653244*^9, 3.789097122315098*^9}, { 3.789097152870823*^9, 3.789097530683948*^9}, {3.7890975852885656`*^9, 3.789097588256246*^9}, {3.789097643070924*^9, 3.789097656213524*^9}, { 3.789107592314107*^9, 3.789107653776031*^9}, {3.789107685160589*^9, 3.789107760590632*^9}, {3.789107810500809*^9, 3.789107846610609*^9}, { 3.789107989236459*^9, 3.7891080001561875`*^9}, {3.7891082032172785`*^9, 3.78910820645748*^9}, {3.7891083013630204`*^9, 3.789108444864075*^9}, { 3.789108475195813*^9, 3.789108501004418*^9}, {3.789108532244181*^9, 3.7891085353767447`*^9}, {3.789108620037199*^9, 3.789108662297584*^9}, 3.7891087252471294`*^9, {3.789108773507248*^9, 3.789108850149121*^9}, { 3.7891088829987*^9, 3.789108918319019*^9}, {3.7891089606286983`*^9, 3.7891090044788837`*^9}, {3.789109048556943*^9, 3.78910911775545*^9}, { 3.789109162814938*^9, 3.789109292234679*^9}, {3.789109382870388*^9, 3.789109402625166*^9}, {3.78911113803348*^9, 3.789111358287718*^9}, { 3.789111396694514*^9, 3.7891114221541786`*^9}, {3.789111453984504*^9, 3.789111495235999*^9}, {3.789112929457416*^9, 3.78911293182744*^9}, { 3.789112963290578*^9, 3.7891131302196255`*^9}, {3.789113202949188*^9, 3.789113203379569*^9}, {3.789114437121737*^9, 3.789114518411393*^9}, { 3.789114638487608*^9, 3.78911468069436*^9}, {3.789114763918976*^9, 3.789114777923211*^9}, {3.789114809301983*^9, 3.789114839205725*^9}, { 3.789114892315002*^9, 3.789114904054755*^9}, {3.78911495607406*^9, 3.789115007177402*^9}, {3.789115109642312*^9, 3.7891151147637*^9}, { 3.789118543921187*^9, 3.789118561569729*^9}, {3.7891187834106455`*^9, 3.789118785406899*^9}, {3.78911887648738*^9, 3.78911887673731*^9}, { 3.789121799028477*^9, 3.789121806719482*^9}, {3.789122262716318*^9, 3.789122277478274*^9}, {3.7891223914541044`*^9, 3.7891224006004095`*^9}, { 3.789122431773783*^9, 3.789122442281659*^9}, {3.7891224731160736`*^9, 3.789122501042121*^9}, {3.789122665352926*^9, 3.789122666404571*^9}, 3.789122819901965*^9, {3.789122893844426*^9, 3.789122954376848*^9}, { 3.789122996427448*^9, 3.789123104429416*^9}, {3.789123228485856*^9, 3.789123374714591*^9}, {3.78912356613609*^9, 3.789123568875408*^9}, { 3.843539375196118*^9, 3.84353937620569*^9}, {3.843539421737421*^9, 3.843539430280121*^9}, {3.843548477790007*^9, 3.843548488262038*^9}, { 3.843548969108399*^9, 3.843548981201047*^9}, {3.843549142037131*^9, 3.8435491556997023`*^9}, {3.843549197734703*^9, 3.843549198243879*^9}, 3.8435492510860806`*^9, {3.843549508166094*^9, 3.843549513194879*^9}, { 3.843549585693662*^9, 3.843549589991126*^9}, {3.8435496998060937`*^9, 3.843549707814079*^9}, {3.84355004136615*^9, 3.843550041760812*^9}, { 3.843550160256809*^9, 3.8435501604677615`*^9}, {3.843553212025095*^9, 3.843553317388692*^9}, {3.843553523973165*^9, 3.8435535314678483`*^9}, { 3.843553580875799*^9, 3.843553663159541*^9}, {3.843553779645311*^9, 3.843553786004609*^9}, 3.843553906141655*^9, 3.84355405714793*^9, { 3.843554149489615*^9, 3.8435541503712645`*^9}, {3.843554206843628*^9, 3.843554207104446*^9}, {3.8435543508802266`*^9, 3.843554351606327*^9}, { 3.843554424038799*^9, 3.843554424227161*^9}, {3.8435607207357883`*^9, 3.843560727908863*^9}, {3.843560832774662*^9, 3.8435608400784*^9}, { 3.843561442743278*^9, 3.843561449585733*^9}, {3.843561686280421*^9, 3.843561747340845*^9}, {3.843561841622026*^9, 3.84356184949818*^9}, { 3.843561965458202*^9, 3.843561967390591*^9}, {3.843562039941851*^9, 3.843562042756475*^9}, 3.8435620999099693`*^9, {3.843562319425266*^9, 3.843562335822353*^9}, {3.843562479271407*^9, 3.8435624872362185`*^9}, { 3.8435625915602407`*^9, 3.843562614304778*^9}, {3.843562735879742*^9, 3.843562741836786*^9}, {3.843614355746326*^9, 3.843614430899438*^9}, { 3.843614466526642*^9, 3.843614494745638*^9}, {3.84361472265639*^9, 3.8436147354884176`*^9}, {3.843614883845476*^9, 3.843614888054445*^9}, { 3.843615637703328*^9, 3.843615694026068*^9}, {3.843615818169777*^9, 3.8436159022117233`*^9}, {3.843621164525605*^9, 3.843621167489939*^9}, { 3.843621224821956*^9, 3.8436212383818884`*^9}, {3.843623395248974*^9, 3.8436234811296377`*^9}, 3.843623522841966*^9, {3.843710421018984*^9, 3.843710422106656*^9}, {3.843710498981309*^9, 3.843710537614964*^9}, { 3.843710579319264*^9, 3.843710645627423*^9}, {3.8437106875546417`*^9, 3.843710688153476*^9}, {3.843710725428294*^9, 3.843710785146202*^9}, { 3.843710821351383*^9, 3.8437110234294205`*^9}, {3.843711117341719*^9, 3.843711129714572*^9}, {3.843711236237468*^9, 3.8437112372387085`*^9}, { 3.8437113572143316`*^9, 3.843711371873471*^9}, {3.843711579018824*^9, 3.843711601014681*^9}, {3.843711741747123*^9, 3.843711755218405*^9}, { 3.843711805902394*^9, 3.843711810425566*^9}, {3.843711922772312*^9, 3.8437119230384417`*^9}, {3.843711963752302*^9, 3.8437119924289055`*^9}, { 3.843712070094509*^9, 3.843712071922304*^9}, {3.843730381197662*^9, 3.84373041381275*^9}, {3.843730744283455*^9, 3.84373074599081*^9}, { 3.8437396200557556`*^9, 3.84373964194144*^9}, 3.843886670451059*^9, 3.843886720320431*^9, 3.84388678658553*^9, {3.843886846967881*^9, 3.843886872522117*^9}, {3.8438869150992565`*^9, 3.84388691534828*^9}, { 3.844322793599933*^9, 3.844322874140069*^9}, 3.84432529516883*^9, 3.84432540227769*^9, {3.844325496215137*^9, 3.8443254968116083`*^9}, { 3.844325560745083*^9, 3.84432556531176*^9}, {3.844325729234998*^9, 3.844325729451268*^9}, {3.8443271837653055`*^9, 3.844327189735308*^9}, 3.844327630363053*^9, 3.844327741570508*^9, {3.844327837371322*^9, 3.84432790019408*^9}, {3.844328356730674*^9, 3.8443283589066696`*^9}, { 3.8443286085720396`*^9, 3.844328633889926*^9}, {3.844328780662943*^9, 3.844328797514555*^9}, 3.844328890335701*^9, 3.844329541823058*^9, 3.8443297290733314`*^9, 3.8443298258170156`*^9, 3.8443299792211103`*^9, { 3.844330023182226*^9, 3.844330024162663*^9}, {3.844330096584533*^9, 3.8443300969210296`*^9}, {3.8443301540407066`*^9, 3.844330184720361*^9}, 3.844330343560071*^9, 3.844330446631555*^9, 3.84438870778086*^9, { 3.844388798979218*^9, 3.844388816606941*^9}, {3.844388850689955*^9, 3.84438889324323*^9}, 3.844389157904079*^9, {3.8443893096760817`*^9, 3.844389351546801*^9}, {3.8443894390725183`*^9, 3.844389452162907*^9}, 3.844389648527203*^9, {3.844389787619921*^9, 3.844389824625575*^9}, 3.844390010919503*^9, {3.844390820677456*^9, 3.844390827824874*^9}, { 3.844390920777023*^9, 3.844391008880832*^9}, 3.844391050490807*^9, 3.844391867983138*^9, {3.844394157403282*^9, 3.844394211279689*^9}, { 3.844394341187828*^9, 3.84439434358472*^9}, {3.844394435078337*^9, 3.844394471962366*^9}, 3.844394554883594*^9, 3.844394790974487*^9, 3.844394878078925*^9, 3.844395085745798*^9, {3.8443953351049013`*^9, 3.844395416952881*^9}, {3.844395746514305*^9, 3.844395749726533*^9}, 3.8443958397241535`*^9, {3.844395921167213*^9, 3.844395924888271*^9}, { 3.844396047953732*^9, 3.844396058908654*^9}, 3.844396301967287*^9, 3.844396496810913*^9, {3.844396736595009*^9, 3.8443967370378094`*^9}, 3.844397220019979*^9, {3.8444115993210382`*^9, 3.844411599518702*^9}, { 3.8444116721502385`*^9, 3.8444116838525047`*^9}, 3.844411795560471*^9, 3.844412083809191*^9, 3.844412348656451*^9, {3.8444124716223226`*^9, 3.844412479699933*^9}, {3.844412549525554*^9, 3.844412567726659*^9}, 3.844412769483656*^9, {3.844499964651905*^9, 3.84449997397132*^9}, { 3.844500043831334*^9, 3.844500055281495*^9}, 3.844500094473071*^9, { 3.844500426135293*^9, 3.8445004336024866`*^9}, 3.844500503309535*^9, { 3.84450071418834*^9, 3.8445007145632133`*^9}, 3.84450075086576*^9, { 3.844500802343947*^9, 3.844500805685542*^9}, {3.844500857916894*^9, 3.844500860801999*^9}, {3.844500943507424*^9, 3.844501037877049*^9}, { 3.844501486443882*^9, 3.844501488956464*^9}, {3.844501593768973*^9, 3.844501608748468*^9}, {3.844501958945907*^9, 3.844501961840052*^9}, { 3.844514253644258*^9, 3.844514303852824*^9}, {3.844514457425339*^9, 3.844514533772487*^9}, {3.844514612109014*^9, 3.844514612805125*^9}, { 3.844515261851603*^9, 3.8445152626808715`*^9}, {3.84451667854188*^9, 3.844516697836839*^9}, {3.844516838420943*^9, 3.8445168531952915`*^9}, 3.844516936102404*^9, {3.844517144912083*^9, 3.8445171602908783`*^9}, { 3.844517313347111*^9, 3.844517374315425*^9}, {3.844563740797083*^9, 3.844563842955555*^9}, {3.844564763261811*^9, 3.844564764558693*^9}, { 3.844564893032794*^9, 3.84456489663636*^9}, 3.844566001126281*^9, { 3.8445661160863905`*^9, 3.844566152674224*^9}, {3.844566264323254*^9, 3.8445663747877293`*^9}, {3.8445664543449287`*^9, 3.844566491779601*^9}, { 3.8445666670048437`*^9, 3.844566737824574*^9}, {3.84456677184741*^9, 3.844566920849174*^9}, {3.8445681586856985`*^9, 3.844568160392629*^9}, { 3.844568433360468*^9, 3.844568473119632*^9}, {3.844568732407946*^9, 3.844568737446255*^9}, 3.844568945877626*^9, {3.844569099528115*^9, 3.844569106514072*^9}, {3.84456915365086*^9, 3.8445691542699227`*^9}, { 3.844569863903719*^9, 3.844569864239865*^9}, {3.844570012985527*^9, 3.84457001409229*^9}, {3.844570136399222*^9, 3.84457022295549*^9}, { 3.8445702927401485`*^9, 3.844570294372793*^9}, {3.8445703589410896`*^9, 3.844570359479988*^9}, {3.844570433361819*^9, 3.844570434479186*^9}, { 3.8445708385437922`*^9, 3.844570865548447*^9}, 3.844571903853661*^9, { 3.84457369886672*^9, 3.844573716165063*^9}, {3.844573766574627*^9, 3.844573766741207*^9}, {3.8445738390520935`*^9, 3.8445738397153697`*^9}, { 3.844574626193658*^9, 3.844574626336315*^9}, 3.844575493401444*^9, { 3.844575765512229*^9, 3.844575767006411*^9}, {3.844579780857963*^9, 3.844579782490683*^9}, {3.8445801889436493`*^9, 3.8445802499386616`*^9}, { 3.8445802832055655`*^9, 3.8445804322445507`*^9}, {3.8445806095243425`*^9, 3.844580784490394*^9}, {3.84458086608232*^9, 3.844580867257543*^9}, { 3.84458107041544*^9, 3.844581084375619*^9}, {3.844581257892597*^9, 3.8445812836521835`*^9}, {3.844581448612855*^9, 3.844581454694955*^9}, 3.844581591902594*^9, 3.844581696367975*^9, 3.84458187612302*^9, { 3.844581973276004*^9, 3.84458197871758*^9}, {3.844582059180128*^9, 3.844582066927915*^9}, {3.844766120152509*^9, 3.844766220989109*^9}, { 3.8447666299757333`*^9, 3.844766632861744*^9}, {3.844766992478299*^9, 3.844766998824834*^9}, {3.844767166360729*^9, 3.844767168582199*^9}, { 3.844767297264483*^9, 3.844767489140806*^9}, {3.844767520275888*^9, 3.844767707649918*^9}, {3.844767738616096*^9, 3.844767751930085*^9}, { 3.844767836749477*^9, 3.8447678460718756`*^9}, {3.8447679275644846`*^9, 3.844767951604962*^9}, {3.844823802025931*^9, 3.844823815288933*^9}, { 3.844823957041947*^9, 3.844823958513931*^9}, {3.844824300419433*^9, 3.8448243149899445`*^9}, 3.8448243583360686`*^9, 3.844934867394837*^9, 3.845011466205801*^9, {3.845011720770907*^9, 3.8450117245772066`*^9}, 3.845012400796516*^9, {3.8450126148924513`*^9, 3.845012615094584*^9}, 3.845012697578274*^9, 3.845014370057255*^9, {3.8451838607018776`*^9, 3.845183871901742*^9}, {3.845183946334877*^9, 3.84518395366415*^9}, { 3.845184051418418*^9, 3.845184051668001*^9}, {3.845184151642857*^9, 3.845184154374053*^9}, {3.845184357905266*^9, 3.845184358065248*^9}, { 3.845184866633246*^9, 3.845184879284834*^9}, {3.8451856542674866`*^9, 3.845185661519927*^9}, 3.845185843485832*^9, 3.845188805837329*^9, { 3.845208711326853*^9, 3.8452087400435753`*^9}, {3.845208875513284*^9, 3.845208885710583*^9}, {3.845209024071977*^9, 3.8452090275669355`*^9}, { 3.845209172626273*^9, 3.845209185986019*^9}, {3.845209314813764*^9, 3.8452093153470325`*^9}, {3.8452093525944805`*^9, 3.845209356766179*^9}, { 3.845209433342643*^9, 3.845209437202387*^9}, {3.845209581540662*^9, 3.8452096027603593`*^9}, {3.845209834131934*^9, 3.845209849152528*^9}, { 3.8452099760880327`*^9, 3.8452099795576*^9}, {3.84521001531735*^9, 3.845210023119549*^9}, {3.845210149230989*^9, 3.8452101507171693`*^9}, { 3.845210218508196*^9, 3.845210220505284*^9}, {3.845210284636221*^9, 3.8452102908524485`*^9}, {3.8452104469844484`*^9, 3.845210448865471*^9}, { 3.845210722276207*^9, 3.8452107618886013`*^9}, {3.845210854073549*^9, 3.8452108566476297`*^9}, 3.8452108885672226`*^9, 3.845211381714527*^9, { 3.845254413854666*^9, 3.845254415221461*^9}, {3.845254468266975*^9, 3.845254497242826*^9}, {3.845254813158949*^9, 3.845254813962109*^9}, { 3.845255159389332*^9, 3.84525516029975*^9}, 3.8453713836088*^9, 3.8453728273858185`*^9, {3.845373067136979*^9, 3.845373072521226*^9}, { 3.845373587636412*^9, 3.8453736185890512`*^9}, 3.8453741162299414`*^9, { 3.845374498509495*^9, 3.8453745049495716`*^9}, {3.845374723838398*^9, 3.845374728061361*^9}, 3.845375413181964*^9, {3.845375667874572*^9, 3.845375678759179*^9}, {3.8453757305367117`*^9, 3.8453757318964834`*^9}, { 3.845375795765346*^9, 3.8453759475892797`*^9}, 3.8453762911344376`*^9, { 3.845376343496214*^9, 3.845376394269949*^9}, 3.8454413952988787`*^9, { 3.845460521349831*^9, 3.845460526259059*^9}, {3.8454605688149014`*^9, 3.845460571220699*^9}, {3.84546074955602*^9, 3.8454607590768337`*^9}, { 3.845462509735139*^9, 3.845462509985168*^9}, {3.845465592798409*^9, 3.8454655941092806`*^9}, {3.845465635193927*^9, 3.8454657716449366`*^9}, { 3.845465903191459*^9, 3.845465909137877*^9}, {3.845466026436695*^9, 3.845466050881938*^9}, {3.845467038806765*^9, 3.8454670407645473`*^9}, { 3.845469581897285*^9, 3.8454695927423058`*^9}, 3.845862819628897*^9, { 3.845862969832185*^9, 3.845862991832585*^9}, {3.84586302904202*^9, 3.845863076602502*^9}, {3.845863144857497*^9, 3.8458632007479205`*^9}, { 3.845863269580724*^9, 3.8458632726734605`*^9}, {3.845863307748892*^9, 3.845863335394053*^9}, {3.845863395099148*^9, 3.845863498099522*^9}, 3.845863530554716*^9, {3.845872590550046*^9, 3.8458726644563165`*^9}, { 3.845872707441972*^9, 3.8458727236944923`*^9}, {3.845872809128053*^9, 3.845872842539483*^9}, 3.8458728978104*^9, {3.845873028140939*^9, 3.845873035135878*^9}, {3.8533874217568007`*^9, 3.8533874449588337`*^9}}, CellLabel-> "In[1037]:=",ExpressionUUID->"401f5f5c-f91c-a14e-a91c-43a7ed3758e0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563130246215*^9, 3.733563131355714*^9}, {3.817531746848799*^9, 3.817531749407099*^9}},ExpressionUUID->"fc292ac1-d7ae-9047-8f66-\ 07a8c50fc7c2"], Cell[CellGroupData[{ Cell["SOLID ELEMENT (disp) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575037833217053`*^9}, {3.788423783697143*^9, 3.788423784205016*^9}},ExpressionUUID->"b25bd48c-8635-f04b-b5f3-\ f1f7b1a08e97"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "e", ",", "ee", ",", "\[Epsilon]", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximations", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", " ", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", "-", RowBox[{"symmetric", " ", "u\[Theta]"}], "-", "formulation"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "jac", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Epsilon]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"} ], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420756`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825143`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.774071654702608*^9, 3.7740716613755894`*^9}, {3.774071748661003*^9, 3.7740718483755383`*^9}, {3.774071892384456*^9, 3.774071983649667*^9}, 3.774072057837844*^9, {3.774072100100342*^9, 3.774072136005568*^9}, { 3.774072187780233*^9, 3.7740722037066555`*^9}, {3.774072323322257*^9, 3.7740724309500237`*^9}, {3.774072493328563*^9, 3.774072635753066*^9}, { 3.774072687249714*^9, 3.774072792505401*^9}, {3.774072859863768*^9, 3.774072894596898*^9}, 3.774072979683737*^9, {3.774172222258683*^9, 3.774172264635817*^9}, {3.774172370231858*^9, 3.7741723746656275`*^9}, { 3.774172540635579*^9, 3.7741725730793257`*^9}, 3.774172661391968*^9, { 3.77417272843945*^9, 3.774172868506016*^9}, {3.7741729101771226`*^9, 3.774173007341322*^9}, {3.774173102959459*^9, 3.774173132449967*^9}, 3.774236409887308*^9, {3.7742365098127813`*^9, 3.774236539342957*^9}, { 3.7830787204505596`*^9, 3.783078728236431*^9}, {3.7830788333789034`*^9, 3.783078891201686*^9}, {3.7830789381996555`*^9, 3.7830789386494493`*^9}, 3.783078981596484*^9, {3.783137965886668*^9, 3.783138127581166*^9}, { 3.783138219765298*^9, 3.783138271131869*^9}, {3.783138302154817*^9, 3.783138316699332*^9}, {3.783138415634687*^9, 3.783138438767775*^9}, { 3.7831385999718432`*^9, 3.783138628916269*^9}, {3.783138703438572*^9, 3.783138831357456*^9}, {3.783138872683244*^9, 3.783138979987645*^9}, { 3.783139114486741*^9, 3.783139120765786*^9}, {3.783139205837239*^9, 3.783139234707765*^9}, {3.783139288120484*^9, 3.783139298414276*^9}, { 3.783139379567049*^9, 3.783139493881989*^9}, 3.783139600467164*^9, { 3.783141278624328*^9, 3.783141286091328*^9}, {3.783141484400069*^9, 3.783141537780714*^9}, {3.783141676631746*^9, 3.783141681655782*^9}, { 3.7831417135337715`*^9, 3.783141754113771*^9}, {3.783141785061674*^9, 3.78314188080105*^9}, 3.783142056404602*^9, {3.783413319391193*^9, 3.783413370443163*^9}, {3.788423805453718*^9, 3.788423817167117*^9}, { 3.788423854937721*^9, 3.78842387636735*^9}, {3.788423922628934*^9, 3.788423923220795*^9}, {3.788423982788879*^9, 3.788423984201506*^9}, { 3.788424016385618*^9, 3.788424025351671*^9}, {3.820025339885204*^9, 3.8200254773530717`*^9}, 3.8411959691970887`*^9, {3.84318199280597*^9, 3.843182066083383*^9}, {3.901680681623682*^9, 3.9016807053214116`*^9}, { 3.909365809193484*^9, 3.909365909438663*^9}, 3.9147238081508293`*^9}, CellLabel-> "In[228]:=",ExpressionUUID->"fc272391-56b6-9e4a-8909-d4c9d268ea23"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "only"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Sigma]", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420756`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825143`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.774071654702608*^9, 3.7740716613755894`*^9}, {3.774071748661003*^9, 3.7740718483755383`*^9}, {3.774071892384456*^9, 3.774071983649667*^9}, 3.774072057837844*^9, {3.774072100100342*^9, 3.774072136005568*^9}, { 3.774072187780233*^9, 3.7740722037066555`*^9}, {3.774072323322257*^9, 3.7740724309500237`*^9}, {3.774072493328563*^9, 3.774072635753066*^9}, { 3.774072687249714*^9, 3.774072792505401*^9}, {3.774072859863768*^9, 3.774072894596898*^9}, 3.774072979683737*^9, {3.774172222258683*^9, 3.774172264635817*^9}, {3.774172370231858*^9, 3.7741723746656275`*^9}, { 3.774172540635579*^9, 3.7741725730793257`*^9}, 3.774172661391968*^9, { 3.77417272843945*^9, 3.774172868506016*^9}, {3.7741729101771226`*^9, 3.774173007341322*^9}, {3.774173102959459*^9, 3.774173132449967*^9}, 3.774236409887308*^9, {3.7742365098127813`*^9, 3.774236539342957*^9}, { 3.7830787204505596`*^9, 3.783078728236431*^9}, {3.7830788333789034`*^9, 3.783078891201686*^9}, {3.7830789381996555`*^9, 3.7830789386494493`*^9}, 3.783078981596484*^9, {3.783137965886668*^9, 3.783138127581166*^9}, { 3.783138219765298*^9, 3.783138271131869*^9}, {3.783138302154817*^9, 3.783138316699332*^9}, {3.783138415634687*^9, 3.783138438767775*^9}, { 3.7831385999718432`*^9, 3.783138628916269*^9}, {3.783138703438572*^9, 3.783138831357456*^9}, {3.783138872683244*^9, 3.783138979987645*^9}, { 3.783139114486741*^9, 3.783139120765786*^9}, {3.783139205837239*^9, 3.783139234707765*^9}, {3.783139288120484*^9, 3.783139298414276*^9}, { 3.783139379567049*^9, 3.783139493881989*^9}, 3.783139600467164*^9, { 3.783141278624328*^9, 3.783141286091328*^9}, {3.783141484400069*^9, 3.783141537780714*^9}, {3.783141676631746*^9, 3.783141681655782*^9}, { 3.7831417135337715`*^9, 3.783141754113771*^9}, {3.783141785061674*^9, 3.78314188080105*^9}, 3.783142056404602*^9, {3.783413319391193*^9, 3.783413370443163*^9}, {3.788423805453718*^9, 3.788423817167117*^9}, { 3.788423854937721*^9, 3.78842387636735*^9}, {3.788423922628934*^9, 3.788423923220795*^9}, {3.788423982788879*^9, 3.788423984201506*^9}, { 3.788424016385618*^9, 3.788424025351671*^9}, {3.820025339885204*^9, 3.8200254773530717`*^9}, 3.8411959691970887`*^9, {3.84318199280597*^9, 3.843182066083383*^9}, {3.901680681623682*^9, 3.9016807053214116`*^9}, { 3.909365809193484*^9, 3.909365909438663*^9}, 3.9147238081508293`*^9}, CellLabel-> "In[231]:=",ExpressionUUID->"b68ad921-d593-8d46-afeb-7812af88a8c2"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (vibr) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575037970958652`*^9}, 3.788423792328411*^9},ExpressionUUID->"2b3d5355-03d9-6047-8c25-\ e998ab791a4b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "uvw0", ",", "uvw2", ",", "Duvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw0", "=", " ", RowBox[{"uvw", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", " ", RowBox[{"uvw", " ", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw0"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420756`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825143`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, 3.757503894925423*^9, {3.788424102221165*^9, 3.788424103002448*^9}, { 3.788424158557418*^9, 3.7884241691882877`*^9}, {3.788424255454542*^9, 3.788424261482607*^9}, {3.78842429669483*^9, 3.788424433254586*^9}, { 3.820025516866051*^9, 3.820025546496957*^9}, {3.820025587252355*^9, 3.8200255963085623`*^9}, {3.820025628744812*^9, 3.8200257952584977`*^9}, { 3.820026047403425*^9, 3.820026053432946*^9}, 3.914723861029877*^9}, CellLabel-> "In[233]:=",ExpressionUUID->"64d6f3cf-b069-e54d-91e3-bd54a4c04e07"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw0", ",", "uvw2", ",", "\[Sigma]", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw0", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}], " ", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", RowBox[{ RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}], " ", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"uvw0", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420756`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825143`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, 3.757503894925423*^9, {3.788424102221165*^9, 3.788424103002448*^9}, { 3.788424158557418*^9, 3.7884241691882877`*^9}, {3.788424255454542*^9, 3.788424261482607*^9}, {3.78842429669483*^9, 3.788424433254586*^9}, { 3.820025516866051*^9, 3.820025546496957*^9}, {3.820025587252355*^9, 3.8200255963085623`*^9}, {3.820025628744812*^9, 3.8200257952584977`*^9}, { 3.820026047403425*^9, 3.820026053432946*^9}, {3.914723861029877*^9, 3.9147238872586555`*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"aafc5681-bbaa-0947-b2a9-9daedf0f49d6"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (nonl) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673316`*^9, 3.757503808560038*^9}, 3.757503971145452*^9, 3.790129876602686*^9},ExpressionUUID->"2720f53d-d5ce-764f-85f4-\ c53fee53a6d1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E8001"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "uvw", ",", "DG", ",", "GL", ",", "\[Delta]GL", ",", "SS", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"DG", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GL", "=", RowBox[{ RowBox[{"(", RowBox[{"DG", "+", RowBox[{"Transpose", "[", "DG", "]"}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", "DG", "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]GL", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], "+", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], ".", RowBox[{"Transpose", "[", "DG", "]"}]}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"PK2", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"GL", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", "\[Delta]GL", "]"}], ".", RowBox[{"Flatten", "[", "SS", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.442647425803042*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.618722688500955*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.618734202036302*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420756`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825143`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.7575040694816446`*^9, 3.757504093838356*^9}, {3.7901321001392207`*^9, 3.790132123417013*^9}, {3.8216149607895*^9, 3.821615019490923*^9}, { 3.853211826180835*^9, 3.8532118691811304`*^9}, {3.914303446938734*^9, 3.914303460886933*^9}}, CellLabel-> "In[237]:=",ExpressionUUID->"0cab60c2-34db-0749-8538-507bf09fa17f"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID ELEMENT (tmec) defs ", "Subsection", CellChangeTimes->{{3.629430162287647*^9, 3.6294301631768484`*^9}, { 3.7575037777673306`*^9, 3.7575038085600376`*^9}, 3.757503967837716*^9, { 3.790129869617339*^9, 3.790129870017767*^9}},ExpressionUUID->"c2d4d9a4-b7d3-7546-b0e7-\ 38a35fdf2206"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E8001"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "\[Nu]\[Nu]_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE", ",", "\[Nu]\[Nu]", ",", "\[Alpha]\[Alpha]", ",", "kk"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"ss", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "EE_", ",", "\[Nu]\[Nu]_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"{", RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "uvw", ",", "\[CurlyTheta]\[CurlyTheta]", ",", "Duvw", ",", "D\[CurlyTheta]\[CurlyTheta]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "\[Epsilon]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]pext", ",", "\[Delta]pint"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", "\[Zeta]", ",", RowBox[{"1", "-", "\[Xi]", "-", "\[Eta]", "-", "\[Zeta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Zeta]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "4"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "gradients", "*)"}], "\[IndentingNewLine]", RowBox[{"Duvw", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Zeta]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"D\[CurlyTheta]\[CurlyTheta]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "\[CurlyTheta]\[CurlyTheta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Eta]"], "\[CurlyTheta]\[CurlyTheta]"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Zeta]"], "\[CurlyTheta]\[CurlyTheta]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"Duvw", "-", RowBox[{ RowBox[{"IdentityMatrix", "[", "3", "]"}], "*", "\[Alpha]\[Alpha]", "*", RowBox[{"(", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "-", "\[CurlyTheta]0"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]\[Delta]", "[", "Duvw", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]pint", "=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ "\[Delta]\[Delta]", "[", "D\[CurlyTheta]\[CurlyTheta]", "]"}], ".", "D\[CurlyTheta]\[CurlyTheta]"}]}], "*", "kk"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]pext", "=", " ", RowBox[{ RowBox[{ "\[Delta]\[Delta]", "[", "\[CurlyTheta]\[CurlyTheta]", "]"}], "*", "ss"}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]pext", "+", "\[Delta]pint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", "\[Zeta]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4426474258030424`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.447217202899402*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.6187226885009546`*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.6187342020363016`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.687864681407539*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.687930636833658*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420747`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.688287475692449*^9}, { 3.6882875215825133`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.790131932129704*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132043231386*^9}, 3.790132078163104*^9, {3.8223695908336563`*^9, 3.8223695921212144`*^9}, {3.8532115763306246`*^9, 3.853211679754381*^9}, { 3.853211717157551*^9, 3.853211753786068*^9}, 3.85321180626235*^9}, CellLabel-> "In[239]:=",ExpressionUUID->"1283f5c9-be09-be4b-aa2e-fe89caa82462"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "e", ",", "ee", ",", "\[Epsilon]", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"MODE", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_", ",", "I7_", ",", "I8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Epsilon]", ",", "\[Delta]wext", ",", "\[Delta]wint"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6", ",", "I7", ",", "I8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", RowBox[{"(", RowBox[{"1", "-", "\[Gamma]"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}], "\[Gamma]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]", " ", "\[Gamma]"}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", " ", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"HEX27", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "jac", ",", "PP", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[Epsilon]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLIDB", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{ "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]", ",", "ns", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "Duvw", ",", "\[Delta]uvw", ",", "\[Delta]Duvw", ",", "\[Delta]\[Lambda]\[Lambda]", ",", "\[Sigma]\[Sigma]", ",", "\[Sigma]", ",", "\[Rho]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "e1", ",", "e2", ",", "e3", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]w\[Sigma]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "3"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "nonsymmetric", " ", "strain", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]\[Theta]\[Psi]", "]"}], ".", RowBox[{"{", RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]WW", "=", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"MODE_", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"ELEMENT", "[", "node_", "]"}]}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "n\[Gamma]", ",", "enode", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "NN", ",", "r", ",", "FF", ",", "FFINV", ",", "PP", ",", "jac", ",", "uvw", ",", "\[Phi]\[Theta]\[Psi]", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "EEEE", ",", "IIII", ",", "II", ",", "IIII1", ",", "IIII2", ",", "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "u_", "]"}], ":=", RowBox[{"u", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]c", "[", "any", "]"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "nodes", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Gamma]", ",", "n\[Beta]", ",", "n\[Alpha]"}], "}"}], "=", RowBox[{"Dimensions", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"enode", "=", RowBox[{"Flatten", "[", "node", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"Flatten", "[", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Gamma]", ",", "\[Gamma]"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", " ", "=", RowBox[{"Inverse", "[", "FF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PP", "=", RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Theta]\[Psi]", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"enode", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "nonsymmetric", " ", "strain", " ", "in", " ", "the", " ", "structural", " ", "system"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}], "-", RowBox[{"PP", ".", "\[Phi]\[Theta]\[Psi]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"II", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII1", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "II", ",", "II"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"IIII2", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "i", ",", "j", ",", "j", ",", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "II"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "II"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{ RowBox[{"EE", "/", RowBox[{"(", RowBox[{"1", "+", "\[Nu]\[Nu]"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Nu]\[Nu]", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}], "*", "IIII1"}], "+", "IIII2"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonsymmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{"QUAD", "[", RowBox[{"LIN7", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", "\[Alpha]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Beta]", "}"}]}], "]"}], ",", RowBox[{"{", "\[Gamma]", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node_", "]"}]}], "}"}], "]"}], ":=", RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", ",", "\[Nu]\[Nu]", ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ns", ",", "NN", ",", "r", ",", "FF", ",", "PP", ",", "uvw", ",", "uvw0", ",", "uvw2", ",", "Duvw", ",", "\[Epsilon]", ",", "\[Sigma]", ",", "\[Delta]ww", ",", "\[Delta]WW", ",", "EEEE", ",", "\[Delta]w\[Sigma]", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "nl", ",", "jac", ",", "FFINV", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "\[Delta]wine"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw0", "=", " ", RowBox[{"uvw", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"anya_", "[", "any_", "]"}], " ", "\[Rule]", " ", RowBox[{"anya", "[", RowBox[{"any", ",", "0"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uvw2", "=", " ", RowBox[{"uvw", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"anya_", "[", "any_", "]"}], " ", "\[Rule]", RowBox[{"anya", "[", RowBox[{"any", ",", "2"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Epsilon]", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw0"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw0"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"\[Epsilon]", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"\[Delta]", "[", "\[Epsilon]", "]"}], "]"}], ".", RowBox[{"Flatten", "[", "\[Sigma]", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", "uvw0", "]"}], ".", RowBox[{"(", RowBox[{"\[Rho]\[Rho]", " ", "uvw2"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{ "\[Delta]wext", "+", "\[Delta]wint", "+", "\[Delta]wine"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r", ",", "FF", ",", "uvw", ",", "DG", ",", "GL", ",", "\[Delta]GL", ",", "SS", ",", "\[Delta]wext", ",", "\[Delta]wint", ",", "EEEE", ",", "e", ",", "ee", ",", "EM", ",", "GM", ",", "GG", ",", "jac", ",", "FFINV"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]", "-", "\[Gamma]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"assuming", " ", "a", " ", "linear", " ", "mapping"}], "*)"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"FF", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFINV", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", "FF", "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"jac", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Det", "[", "FF", "]"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "approximations", " ", "in", " ", "structural", " ", "system"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"uvw", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "gradient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"DG", "=", RowBox[{"FFINV", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "uvw"}], ",", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "uvw"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GL", "=", RowBox[{ RowBox[{"(", RowBox[{"DG", "+", RowBox[{"Transpose", "[", "DG", "]"}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", "DG", "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]GL", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], "+", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}], "+", RowBox[{ RowBox[{"\[Delta]", "[", "DG", "]"}], ".", RowBox[{"Transpose", "[", "DG", "]"}]}], "+", RowBox[{"DG", ".", RowBox[{"Transpose", "[", RowBox[{"\[Delta]", "[", "DG", "]"}], "]"}]}]}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"symmetric", " ", "elasticity", " ", "dyad"}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ee", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"Times", ",", "e1", ",", "e2"}], "]"}], ",", RowBox[{"{", RowBox[{"e1", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"e2", ",", "e"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM", "=", RowBox[{"Inverse", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{ RowBox[{"-", "\[Nu]\[Nu]"}], "/", "EE"}], ",", RowBox[{"1", "/", "EE"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GG", "=", RowBox[{"EE", "/", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", "*", "\[Nu]\[Nu]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"GM", "=", RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GG"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "GG"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "/", "GG"}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EEEE", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EM", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], " ", "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"GM", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "*", RowBox[{"Outer", "[", RowBox[{"Times", ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ee", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ee", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"PK2", " ", "stress"}], "*)"}], "\[IndentingNewLine]", RowBox[{"SS", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"EEEE", "[", RowBox[{"[", RowBox[{";;", ",", ";;", ",", "i", ",", "j"}], "]"}], "]"}], "*", RowBox[{"GL", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{ RowBox[{"Flatten", "[", "\[Delta]GL", "]"}], ".", RowBox[{"Flatten", "[", "SS", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", "=", RowBox[{ RowBox[{"\[Delta]", "[", "uvw", "]"}], ".", RowBox[{"{", RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"QUAD", "[", RowBox[{"TET5", ",", RowBox[{ RowBox[{"(", RowBox[{"\[Delta]wext", "+", "\[Delta]wint"}], ")"}], "*", "jac"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4426474258030434`*^9, {3.4444401255942*^9, 3.4444401388073997`*^9}, { 3.4444401803034*^9, 3.4444401844062*^9}, 3.4444402418922*^9, { 3.4444402805022*^9, 3.4444403134026*^9}, {3.4444403443062*^9, 3.4444404484049997`*^9}, {3.444483267101*^9, 3.444483267335*^9}, { 3.4444833136046*^9, 3.4444835622998*^9}, {3.4444836421094*^9, 3.4444837777982*^9}, {3.444483920429*^9, 3.4444839412237997`*^9}, 3.4444842905546*^9, {3.4444843207406*^9, 3.4444844162282*^9}, { 3.4444844465078*^9, 3.4444844624354*^9}, {3.4444845255998*^9, 3.4444845894506*^9}, {3.4444846290746*^9, 3.444484933025*^9}, { 3.4444849790917997`*^9, 3.4444851148742*^9}, {3.444534936054*^9, 3.4445349675348*^9}, {3.4445355821732*^9, 3.44453585174*^9}, { 3.4445372162198*^9, 3.4445372264378*^9}, 3.444537384731*^9, { 3.4445377585382*^9, 3.4445377605818*^9}, {3.4445379733658*^9, 3.4445379736934*^9}, {3.4445380176762*^9, 3.444538032777*^9}, { 3.4445381079222*^9, 3.4445381581386003`*^9}, {3.444538272645601*^9, 3.4445382910068*^9}, {3.4445383401312*^9, 3.444538347588001*^9}, { 3.444538438458*^9, 3.4445384464608*^9}, {3.444538568078401*^9, 3.4445385687648*^9}, {3.4445389411992*^9, 3.4445389431024*^9}, { 3.444539746605*^9, 3.444539780784601*^9}, {3.4445408839765997`*^9, 3.4445409234133997`*^9}, {3.4445409681698*^9, 3.4445409932702*^9}, { 3.4445415452906*^9, 3.4445415706718*^9}, {3.4445416647242*^9, 3.4445416909478*^9}, {3.444541766015001*^9, 3.444541788557*^9}, { 3.4445420906977997`*^9, 3.444542104847*^9}, {3.4445421885878*^9, 3.4445421941414*^9}, {3.4445422252166*^9, 3.4445422386014*^9}, { 3.444542280425*^9, 3.4445423014538*^9}, {3.444542455769*^9, 3.4445424578282*^9}, {3.4445431739214*^9, 3.444543175809*^9}, { 3.4445647020962*^9, 3.4445648405618*^9}, {3.4445648825414*^9, 3.4445648858486*^9}, {3.4445649382646*^9, 3.4445651882702*^9}, { 3.4446164822206*^9, 3.4446165344494*^9}, {3.4446166121842003`*^9, 3.4446166738822*^9}, {3.4446167223046*^9, 3.4446168047974*^9}, { 3.444616843033*^9, 3.444616906447*^9}, {3.4446444694708*^9, 3.4446444700948*^9}, {3.4446477738310003`*^9, 3.4446477939862003`*^9}, { 3.4446478467298*^9, 3.4446478681018*^9}, 3.4446480456142*^9, { 3.4446487557418003`*^9, 3.4446487636198*^9}, 3.4446488179974003`*^9, { 3.4446488971205997`*^9, 3.4446489152478*^9}, {3.4446490003458*^9, 3.4446490008294*^9}, {3.444704272894201*^9, 3.4447042751562*^9}, { 3.4447044703278*^9, 3.4447044865362*^9}, 3.4447046475282*^9, 3.4447047993786*^9, {3.444704908329*^9, 3.4447049292642*^9}, { 3.444704986192601*^9, 3.444704987721401*^9}, {3.4447050279296*^9, 3.4447050419696*^9}, {3.4447053486656*^9, 3.4447053739376*^9}, 3.4447054561964*^9, 3.44470561612*^9, {3.4472133996876*^9, 3.4472134108571997`*^9}, {3.447213447018*^9, 3.4472134648332*^9}, { 3.4472135032872*^9, 3.4472135245344*^9}, {3.447213696306*^9, 3.447213779438401*^9}, {3.4472138235708*^9, 3.447213838890001*^9}, { 3.4472139099792*^9, 3.4472141367096*^9}, {3.447214202682*^9, 3.4472142975924*^9}, {3.4472144187732*^9, 3.4472145910284*^9}, { 3.4472146560492*^9, 3.4472147023968*^9}, {3.447214803594*^9, 3.4472148728736*^9}, {3.4472149156956*^9, 3.447214940484*^9}, { 3.447216227284*^9, 3.4472162419948*^9}, {3.4472163068908*^9, 3.4472163720832*^9}, {3.4472164665880003`*^9, 3.447216530392*^9}, { 3.4472166237268*^9, 3.4472167058452*^9}, 3.4472167362808*^9, { 3.4472171394658*^9, 3.4472171532874002`*^9}, {3.4472172028994017`*^9, 3.4472172216662*^9}, {3.4472172524606*^9, 3.4472172690278*^9}, { 3.4472173209134*^9, 3.447217333424599*^9}, {3.4472173920846*^9, 3.447217404861*^9}, {3.4472179572548*^9, 3.4472180351456003`*^9}, { 3.4472509764091997`*^9, 3.4472511017396*^9}, {3.4473910422216*^9, 3.4473912901524*^9}, 3.4473918688344*^9, {3.447392021185*^9, 3.4473920346634*^9}, {3.4473921383304*^9, 3.4473921479088*^9}, { 3.4473923024112*^9, 3.447392373438*^9}, {3.4473928098168*^9, 3.4473928648692*^9}, {3.4473931872432003`*^9, 3.447393246180002*^9}, { 3.447393302667601*^9, 3.4473934579812*^9}, {3.447393575527201*^9, 3.447393742572*^9}, {3.4473939032676*^9, 3.4473939384144*^9}, { 3.447395257644*^9, 3.4473953141628*^9}, {3.4473954231132*^9, 3.4473954756384*^9}, {3.4473955348716*^9, 3.4473955723272*^9}, { 3.447395648502*^9, 3.4473957588876*^9}, {3.4473957903996*^9, 3.4473958488372*^9}, 3.4473962894154*^9, {3.447396350817*^9, 3.447396352611*^9}, {3.4474625379146*^9, 3.4474625637326*^9}, { 3.558360651728078*^9, 3.558360652102478*^9}, {3.5619791319820857`*^9, 3.561979135788492*^9}, 3.561979369382504*^9, {3.561979493043921*^9, 3.561979501015536*^9}, {3.561979569218855*^9, 3.56197960614412*^9}, { 3.561979741755159*^9, 3.5619797448751636`*^9}, {3.618719065033702*^9, 3.618719075426296*^9}, {3.618719401166928*^9, 3.618719444945432*^9}, { 3.618719699804008*^9, 3.618719710243605*^9}, {3.618719902254588*^9, 3.6187199711455283`*^9}, {3.618722365406472*^9, 3.618722541255531*^9}, { 3.6187226885009537`*^9, 3.618722710987239*^9}, {3.618722756922866*^9, 3.6187231317203026`*^9}, {3.618723424250035*^9, 3.6187234267291765`*^9}, { 3.6187235105259695`*^9, 3.618723649102896*^9}, {3.618723691580325*^9, 3.618723745975436*^9}, {3.618723778837316*^9, 3.6187238310002995`*^9}, { 3.6187239055875654`*^9, 3.618723940035536*^9}, {3.618723978266723*^9, 3.618724021935221*^9}, {3.618724166762504*^9, 3.618724177411113*^9}, { 3.618729321696159*^9, 3.618729328067523*^9}, 3.618729374058154*^9, { 3.6187294379838104`*^9, 3.618729708464281*^9}, {3.618729763190411*^9, 3.618729773195983*^9}, {3.618729822648812*^9, 3.6187299321490746`*^9}, { 3.618729984399063*^9, 3.61873000654133*^9}, {3.618730074601223*^9, 3.618730086045878*^9}, {3.618731390835507*^9, 3.618731511617418*^9}, { 3.618731747324897*^9, 3.618731821409135*^9}, {3.61873187692431*^9, 3.618732065297084*^9}, {3.6187321012351394`*^9, 3.618732157420353*^9}, { 3.618732188384124*^9, 3.6187322435542793`*^9}, {3.618732278611285*^9, 3.618732547844684*^9}, {3.6187325819856386`*^9, 3.618732681765344*^9}, { 3.618732810863728*^9, 3.61873282594359*^9}, {3.618733647433577*^9, 3.618733754678711*^9}, {3.618733827497876*^9, 3.61873396201257*^9}, { 3.6187342020363007`*^9, 3.618734236455267*^9}, 3.618734298201799*^9, { 3.618734712498495*^9, 3.618734712716508*^9}, 3.618734773964012*^9, { 3.618738817361748*^9, 3.6187388333816643`*^9}, {3.618739134934913*^9, 3.618739145795535*^9}, {3.618739376900752*^9, 3.618739397023903*^9}, { 3.618739528394417*^9, 3.618739534809784*^9}, {3.618739972366811*^9, 3.61873997340687*^9}, {3.618740041661774*^9, 3.618740043022852*^9}, { 3.6187400971579485`*^9, 3.618740107902563*^9}, {3.618740171367193*^9, 3.6187401723312483`*^9}, {3.61874026134434*^9, 3.618740268819767*^9}, { 3.6187403697625403`*^9, 3.618740405761599*^9}, {3.618740488277319*^9, 3.618740516244919*^9}, {3.618740647782442*^9, 3.6187406551668644`*^9}, 3.618740782302138*^9, {3.6187418050786357`*^9, 3.618741805749674*^9}, { 3.618741855760535*^9, 3.618741989592189*^9}, {3.618742022944097*^9, 3.61874204379729*^9}, {3.618742083639568*^9, 3.618742103384698*^9}, { 3.620462440882641*^9, 3.620462446051937*^9}, {3.620462499025966*^9, 3.620462576450395*^9}, {3.620463682857678*^9, 3.620463713336421*^9}, 3.6204637901188126`*^9, {3.620464238835478*^9, 3.62046424411378*^9}, 3.628912429385081*^9, {3.628913520715502*^9, 3.628913521080523*^9}, 3.6289497746958513`*^9, 3.6289498371774254`*^9, {3.62894988410911*^9, 3.6289500319795675`*^9}, {3.6289501333883677`*^9, 3.628950183744248*^9}, { 3.6289503323017445`*^9, 3.628950390181055*^9}, {3.628950505053625*^9, 3.628950511357988*^9}, {3.62895070863527*^9, 3.62895070950432*^9}, { 3.628951013180689*^9, 3.62895101407374*^9}, {3.629190743153632*^9, 3.629190816645361*^9}, {3.629190970960833*^9, 3.629190981678051*^9}, { 3.629191034624544*^9, 3.629191041004957*^9}, {3.6293846391370816`*^9, 3.629384641102685*^9}, 3.629430223127754*^9, 3.629430298397886*^9, { 3.6294304452097435`*^9, 3.629430446176946*^9}, 3.629430512991863*^9, { 3.629430631630071*^9, 3.6294306397264853`*^9}, {3.629430697477787*^9, 3.629430801373969*^9}, {3.629447000548337*^9, 3.629447006658345*^9}, { 3.6294476264402127`*^9, 3.62944766022026*^9}, {3.629455940543494*^9, 3.629455943473498*^9}, {3.629456003733582*^9, 3.6294560722536783`*^9}, { 3.6294561182137423`*^9, 3.629456154053793*^9}, {3.629456217343881*^9, 3.629456291433985*^9}, 3.629456575994384*^9, {3.629457119416144*^9, 3.629457325936434*^9}, {3.629457368166494*^9, 3.629457469696635*^9}, { 3.630830822369603*^9, 3.630830833380233*^9}, {3.630830891610564*^9, 3.630830892690625*^9}, {3.630830934683027*^9, 3.6308309652587757`*^9}, { 3.630831001140828*^9, 3.630831030239493*^9}, {3.6308311286591215`*^9, 3.630831187278475*^9}, {3.630831272480348*^9, 3.630831331484722*^9}, { 3.630831362277484*^9, 3.630831473963872*^9}, {3.63083150486564*^9, 3.6308315251297984`*^9}, {3.630850019995697*^9, 3.630850092130224*^9}, { 3.6308926160699577`*^9, 3.630892648580415*^9}, {3.6308926904976883`*^9, 3.630893039641901*^9}, {3.6308931926157703`*^9, 3.6308932605850897`*^9}, { 3.630893319631193*^9, 3.630893341362032*^9}, {3.630893371735285*^9, 3.630893374605689*^9}, {3.630893484195882*^9, 3.630893495552702*^9}, { 3.6308935513072*^9, 3.6308937035322676`*^9}, {3.630893900966214*^9, 3.630893903165818*^9}, {3.63089401261561*^9, 3.6308940229584284`*^9}, { 3.630894084734537*^9, 3.630894141612237*^9}, {3.6308941732958927`*^9, 3.63089421168756*^9}, {3.630894323430557*^9, 3.6308945706597905`*^9}, { 3.630894732057674*^9, 3.6308948540342884`*^9}, {3.6308949175576*^9, 3.630895035213006*^9}, {3.630896328066324*^9, 3.630896433928108*^9}, { 3.630896483785797*^9, 3.6308965147216516`*^9}, {3.630995110764593*^9, 3.6309952194788113`*^9}, 3.631017673702475*^9, 3.6339410343181667`*^9, { 3.6339411434394083`*^9, 3.633941333682289*^9}, {3.6339414012381535`*^9, 3.633941516227731*^9}, {3.633941550612697*^9, 3.6339415854086876`*^9}, { 3.633941898820614*^9, 3.633941918825758*^9}, {3.633942028814049*^9, 3.633942135188132*^9}, 3.633942175319428*^9, {3.6339527595260005`*^9, 3.633952797347164*^9}, {3.633952832623181*^9, 3.633952843456801*^9}, 3.63395311337924*^9, {3.633953318391966*^9, 3.633953320104064*^9}, { 3.6339533894880323`*^9, 3.633953398914572*^9}, {3.633953490457807*^9, 3.6339534909158335`*^9}, {3.6339544324266853`*^9, 3.633954436992946*^9}, { 3.633955355536484*^9, 3.633955361782841*^9}, {3.634613015576932*^9, 3.63461301623897*^9}, {3.634613051040961*^9, 3.634613077198457*^9}, 3.634613188324813*^9, {3.687863863576811*^9, 3.687863972417036*^9}, 3.687864019557732*^9, 3.687864100140342*^9, {3.687864195050747*^9, 3.6878641958857946`*^9}, {3.687864240133326*^9, 3.68786426136654*^9}, 3.687864352036726*^9, {3.687864450280345*^9, 3.687864460603936*^9}, { 3.687864680901509*^9, 3.6878646814075384`*^9}, {3.687864779357139*^9, 3.687864806260679*^9}, {3.687865182702184*^9, 3.687865213182927*^9}, { 3.687865246199816*^9, 3.687865299221848*^9}, {3.687865350343772*^9, 3.687865355912091*^9}, {3.687865609571577*^9, 3.6878656309137974`*^9}, { 3.687865671576123*^9, 3.6878656918812847`*^9}, 3.687865733639673*^9, { 3.6878657691897063`*^9, 3.6878657965562716`*^9}, {3.687865834375435*^9, 3.687865838706683*^9}, {3.687865912326894*^9, 3.6878659163341227`*^9}, { 3.687865978278665*^9, 3.687866006047254*^9}, {3.6878660595832977`*^9, 3.687866065966663*^9}, {3.6878661218058558`*^9, 3.687866187232599*^9}, { 3.687866245499931*^9, 3.687866274822608*^9}, 3.687866805421936*^9, { 3.687930181593019*^9, 3.687930182863021*^9}, {3.687930277763153*^9, 3.687930297763182*^9}, {3.687930328053224*^9, 3.687930399193323*^9}, { 3.687930430703368*^9, 3.687930486243446*^9}, {3.687930535043515*^9, 3.6879306368336577`*^9}, {3.687930862983974*^9, 3.687930944384087*^9}, { 3.688022505951761*^9, 3.688022695772026*^9}, {3.6880227285420737`*^9, 3.688022739402087*^9}, 3.688124666129181*^9, {3.6882843273150396`*^9, 3.688284588845405*^9}, {3.688285837009152*^9, 3.688285840649158*^9}, { 3.688286818441526*^9, 3.688286844251562*^9}, {3.688287016521804*^9, 3.688287041201838*^9}, {3.68828707122188*^9, 3.68828709261191*^9}, 3.68828714986199*^9, {3.688287467572435*^9, 3.6882874756924486`*^9}, { 3.6882875215825124`*^9, 3.688287521962511*^9}, {3.692497694681184*^9, 3.69249784091139*^9}, {3.692497927801511*^9, 3.6924979661015644`*^9}, { 3.692498035281661*^9, 3.692498100471752*^9}, {3.6924981611518373`*^9, 3.692498164851843*^9}, {3.692498211401908*^9, 3.6924983125120497`*^9}, { 3.692502435097616*^9, 3.692502447592331*^9}, {3.692502485821518*^9, 3.692502486029528*^9}, 3.6925027340347147`*^9, {3.694085875856405*^9, 3.694085884836417*^9}, {3.6940859944465704`*^9, 3.6940860158966007`*^9}, { 3.6940861169567423`*^9, 3.694086419977166*^9}, {3.694087292319388*^9, 3.6940872938293896`*^9}, {3.6940873646994886`*^9, 3.694087369319495*^9}, 3.694087530509721*^9, {3.69452811617232*^9, 3.694528128442337*^9}, { 3.694528195182431*^9, 3.694528217482462*^9}, {3.694528268612533*^9, 3.694528649083066*^9}, {3.694528693523128*^9, 3.6945286979031343`*^9}, { 3.69457816053588*^9, 3.694578225475972*^9}, {3.694578292166065*^9, 3.694578304996083*^9}, {3.694578337066128*^9, 3.6945783532861505`*^9}, { 3.6945783849061947`*^9, 3.6945783866561975`*^9}, {3.694578440046273*^9, 3.694578482566332*^9}, 3.694578713616655*^9, {3.751197950641165*^9, 3.751197960841903*^9}, {3.755352558606639*^9, 3.755352615983047*^9}, { 3.790131932129704*^9, 3.790131942849823*^9}, {3.790132020952048*^9, 3.790132068764365*^9}},ExpressionUUID->"932be6cf-37a6-f443-89f3-\ 6fd601746dc7"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SOLVER", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.732337608681215*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563159827469*^9, 3.7335631629996696`*^9}, {3.733563216145894*^9, 3.733563217193006*^9}},ExpressionUUID->"11f9cbb9-f443-6a4d-bff4-\ 80025f5e7010"], Cell[CellGroupData[{ Cell["DISP defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, 3.8223696918276553`*^9},ExpressionUUID->"17cc3dcf-1c93-6848-8ee4-\ 43fb96c8bd05"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], "|", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "par_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT", ",", "A", ",", "B", ",", "BB", ",", "AA"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"B", ",", "A"}], "}"}], "=", RowBox[{"CoefficientArrays", "[", RowBox[{"equ", ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BB", ",", "AA"}], "}"}], "=", RowBox[{"CoefficientArrays", "[", RowBox[{ RowBox[{"Normal", "[", "B", "]"}], ",", "par"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{ RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "AA"}]}], "]"}], ".", "par"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "con_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "exp", ",", "sol", ",", "UT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"UT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "UT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"exp", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", "UT"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Last", "[", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"exp", ",", "con"}], "}"}], ",", "dof"}], "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"large", " ", "scale", " ", "defs"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "CLASSIC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", " ", ",", "\[Delta]dof", ",", "sol", ",", "\[Delta]We", ",", "DOF", ",", "\[Delta]DOF", ",", "MAP", ",", "\[Delta]MAP", ",", "ABL", ",", "nequ", ",", "ndof", ",", "A", ",", "B", ",", "dofe", ",", "\[Delta]dofe", ",", "eque", ",", "Le", ",", "LA", ",", "LB", ",", "tt"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "element", " ", "contributions", " ", "in", " ", "parallel"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ABL", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]We", " ", "=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eque", "=", RowBox[{"D", "[", RowBox[{"\[Delta]We", ",", RowBox[{"{", "\[Delta]dofe", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"CoefficientArrays", "[", RowBox[{"eque", ",", "dofe"}], "]"}], ",", RowBox[{"{", RowBox[{"dofe", ",", "\[Delta]dofe"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"dof", " ", "mapping"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ndof", "=", RowBox[{"Length", "[", "DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nequ", "=", RowBox[{"Length", "[", "\[Delta]DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "ndof"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"\[Delta]DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "nequ"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ABL", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", " ", "MAP"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", " ", "\[Delta]MAP"}]}], "}"}], "&"}], ",", "ABL"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): {nequ,ndof} = \>\"", ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"parallel", " ", "build"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LA", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"ec", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LB", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "#", "}"}], "&"}], ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "+=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LA", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", "+=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LB", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"solve", " ", "with", " ", "default", " ", "method"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "B"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<)\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "CLASSICP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", " ", ",", "\[Delta]dof", ",", "sol", ",", "\[Delta]We", ",", "DOF", ",", "\[Delta]DOF", ",", "MAP", ",", "\[Delta]MAP", ",", "ABL", ",", "nequ", ",", "ndof", ",", "A", ",", "B", ",", "dofe", ",", "\[Delta]dofe", ",", "eque", ",", "Le", ",", "LA", ",", "LB", ",", "tt", ",", "ec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"element", " ", "contributions", " ", "in", " ", "parallel"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ABL", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Delta]We", " ", "=", " ", RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}], "|", RowBox[{"c", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dofe", " ", "=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"\[Delta]We", ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}], "|", RowBox[{"\[Delta]c", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"for", " ", "load", " ", "elements"}], "*)"}], "\[IndentingNewLine]", RowBox[{"dofe", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"dofe", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"(", RowBox[{"\[Delta]dofe", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]a", "\[Rule]", "a"}], ",", RowBox[{"\[Delta]b", "->", "b"}], ",", RowBox[{"\[Delta]c", "\[Rule]", "c"}]}], "}"}]}], ")"}], ",", "dofe"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eque", "=", RowBox[{"D", "[", RowBox[{"\[Delta]We", ",", RowBox[{"{", "\[Delta]dofe", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coff", "=", RowBox[{"CoefficientArrays", "[", RowBox[{"eque", ",", "dofe"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"coff", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "coff", "]"}], "\[Equal]", "1"}], ",", RowBox[{"Append", "[", RowBox[{"coff", ",", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "\[Delta]dofe", "]"}], ",", RowBox[{"Length", "[", "\[Delta]dofe", "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "coff"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"coff", ",", RowBox[{"{", RowBox[{"dofe", ",", "\[Delta]dofe"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"dof", " ", "mapping"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]DOF", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"ABL", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ndof", "=", RowBox[{"Length", "[", "DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nequ", "=", RowBox[{"Length", "[", "\[Delta]DOF", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "ndof"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]MAP", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"Thread", "[", RowBox[{"\[Delta]DOF", "->", RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", "nequ"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ABL", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", " ", "MAP"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", " ", "\[Delta]MAP"}]}], "}"}], "&"}], ",", "ABL"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", " ", "=", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], "->", "0"}], "}"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): {nequ,ndof} = \>\"", ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"parallel", " ", "build"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"ParallelSum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LA", " ", "=", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"ec", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LA", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"nequ", ",", "ndof"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"B", "=", RowBox[{"ParallelSum", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LB", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "#", "}"}], "&"}], ",", RowBox[{"ec", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SparseArray", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"LB", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{"ec", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", "nequ", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ec", ",", "ABL"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<): nele = \>\"", ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"solve", " ", "with", " ", "default", " ", "method"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tt", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"DOF", "->", RowBox[{"LinearSolve", "[", RowBox[{"A", ",", RowBox[{"-", "B"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "tt"}], ",", "\"\<)\>\""}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", "\[Delta]WW_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.6204640425822554`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224285`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121162`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.6938967427518554`*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.7578177761870756`*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, 3.78789318769702*^9, { 3.7890171909617825`*^9, 3.789017212740966*^9}, {3.815268500296718*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, { 3.8784336659556417`*^9, 3.878433667669491*^9}, {3.894187640624601*^9, 3.894187654415968*^9}, {3.901599732119807*^9, 3.901599733424538*^9}, { 3.901599766976718*^9, 3.901599789515315*^9}, {3.90159992846725*^9, 3.901599949211515*^9}, {3.901600156171198*^9, 3.901600157234657*^9}, { 3.902704530755273*^9, 3.90270461262266*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"e7c267dc-7f40-4c46-ac46-71819a9d520c"] }, Open ]], Cell[CellGroupData[{ Cell["VIBR defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.78789280960296*^9, 3.787892817639742*^9}, 3.822369708831148*^9},ExpressionUUID->"4f9acf2b-de61-064e-8dde-\ abe5182f672d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dofall", ",", "dof0", " ", ",", "dof2", " ", ",", "equ", ",", "sol", ",", "\[Delta]WW", ",", "KK", ",", "MM", ",", "nn", ",", "val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb__", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"\[Omega]", "[", "ii", "]"}], "->", RowBox[{"Sqrt", "[", RowBox[{"val", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{"dofall", "\[Rule]", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "dofall", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dofall", ",", "dof0", " ", ",", "dof2", " ", ",", "equ", ",", "sol", ",", "KK", ",", "MM", ",", "nn", ",", "val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"\[Omega]", "[", "ii", "]"}], "->", RowBox[{"Sqrt", "[", RowBox[{"val", "[", RowBox[{"[", "ii", "]"}], "]"}], "]"}]}], ",", RowBox[{"Thread", "[", RowBox[{"dofall", "\[Rule]", RowBox[{"vec", "[", RowBox[{"[", RowBox[{"ii", ",", ";;"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "dofall", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{"f_", ",", "M_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "M", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"Map", "[", RowBox[{"f", ",", "val"}], "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "dof1", ",", "dof2", ",", "\[Delta]dof", ",", "dofall", ",", "equ", ",", "\[Delta]WW", ",", "KK", ",", "MM", ",", "\[CapitalOmega]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof1", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "1", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "&"}], ",", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"dofall", "->", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"(", RowBox[{"dof0", "/.", "rule"}], ")"}]}], "+", RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"Inverse", "[", "\[CapitalOmega]", "]"}], ".", RowBox[{"(", RowBox[{"dof1", "/.", "rule"}], ")"}]}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "rule_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "dof1", ",", "dof2", ",", "\[Delta]dof", ",", "dofall", ",", "equ", ",", "KK", ",", "MM", ",", "\[CapitalOmega]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof1", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "1", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "&"}], ",", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"dofall", "->", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"(", RowBox[{"dof0", "/.", "rule"}], ")"}]}], "+", RowBox[{ RowBox[{"MATRIXFUNCTION", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"#", "*", "t"}], "]"}], "&"}], ",", "\[CapitalOmega]"}], "]"}], ".", RowBox[{"Inverse", "[", "\[CapitalOmega]", "]"}], ".", RowBox[{"(", RowBox[{"dof1", "/.", "rule"}], ")"}]}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.6204640425822554`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224285`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121162`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.6938967427518554`*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.7578177761870756`*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, {3.787892909261981*^9, 3.787892939075147*^9}, 3.787893197839568*^9, {3.788327762791728*^9, 3.788327763212218*^9}, { 3.788327835267661*^9, 3.788327837618348*^9}, {3.8852864581695476`*^9, 3.885286492538041*^9}, {3.885286592232431*^9, 3.885286656855174*^9}, { 3.8852878214996276`*^9, 3.885287852857752*^9}, {3.886426290643887*^9, 3.886426310177136*^9}, {3.886917182007636*^9, 3.886917187040081*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"a766c248-02d8-864b-a562-aa89b5f797fb"] }, Closed]], Cell[CellGroupData[{ Cell["STAB defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.758253144538479*^9}, 3.787892838194978*^9, 3.822369712103414*^9},ExpressionUUID->"1a279bb0-278f-d747-9e4c-\ f39054833768"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WT", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "KK", ",", "KK0", ",", "FF0", ",", "rule0", ",", "KK1", ",", "KK10", ",", "KK11", ",", "val", ",", "vec", ",", "modes", ",", "prule", ",", "list"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["KK", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{ StyleBox["D", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["equ", "OperatorCharacter"], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"linearized", " ", "problem"}], "*)"}], "\[IndentingNewLine]", RowBox[{"KK0", "=", RowBox[{"KK", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FF0", "=", RowBox[{"equ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule0", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{"LinearSolve", "[", RowBox[{"KK0", ",", RowBox[{"-", "FF0"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"KK1", "=", RowBox[{"KK", "/.", "rule0"}]}], ";", "\[IndentingNewLine]", RowBox[{"KK10", "=", " ", RowBox[{"KK1", " ", "/.", " ", RowBox[{"p", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK11", " ", "=", RowBox[{"D", "[", RowBox[{"KK1", " ", ",", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Transpose", "[", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK10", ",", "KK11"}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pick", " ", "the", " ", "real", " ", "ones"}], "*)"}], "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{"PossibleZeroQ", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[ImaginaryI]"}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "Infinity"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", "list"}], "]"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "KK", ",", "FF0", ",", "KK0", ",", "rule0", ",", "KK1", ",", "KK10", ",", "KK11", ",", "val", ",", "vec", ",", "modes", ",", "prule", ",", "list"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "first", "*)"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["KK", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{ StyleBox["D", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["equ", "OperatorCharacter"], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"KK0", "=", RowBox[{"KK", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FF0", "=", RowBox[{"equ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rule0", "=", RowBox[{"Thread", "[", RowBox[{"dof", "->", RowBox[{"LinearSolve", "[", RowBox[{"KK0", ",", RowBox[{"-", "FF0"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"KK1", "=", RowBox[{"KK", "/.", "rule0"}]}], ";", "\[IndentingNewLine]", RowBox[{"KK10", "=", " ", RowBox[{"KK1", " ", "/.", " ", RowBox[{"p", "\[Rule]", "0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK11", " ", "=", RowBox[{"D", "[", RowBox[{"KK1", " ", ",", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Transpose", "[", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK10", ",", "KK11"}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pick", " ", "the", " ", "real", " ", "ones"}], "*)"}], "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{"PossibleZeroQ", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[ImaginaryI]"}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "]"}], "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"list", "=", RowBox[{"Select", "[", RowBox[{"list", ",", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "Infinity"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p", "[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", "list"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.6204640425822554`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224285`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121162`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.6938967427518554`*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.7578177761870756`*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, {3.758253198275837*^9, 3.758253202040574*^9}, { 3.7582533756088347`*^9, 3.7582533985722675`*^9}, {3.760670938512352*^9, 3.76067094654175*^9}, {3.78874828201035*^9, 3.7887483199991317`*^9}, { 3.788751028674006*^9, 3.788751062737857*^9}, {3.788793141413883*^9, 3.788793141695051*^9}, {3.788831179776044*^9, 3.788831256418445*^9}, { 3.788831297834664*^9, 3.7888313137858887`*^9}, {3.788831356407742*^9, 3.7888313933141465`*^9}, {3.788831468419755*^9, 3.788831536855382*^9}, { 3.788831595469638*^9, 3.788831647218622*^9}, {3.788831857305335*^9, 3.788831917189584*^9}, {3.788832255517164*^9, 3.788832334400532*^9}, { 3.788832692802744*^9, 3.788832754628324*^9}, {3.788832880589661*^9, 3.788832889111374*^9}, {3.788833325826789*^9, 3.7888333376723*^9}, { 3.7888334458148613`*^9, 3.788833446205364*^9}, {3.788834136055804*^9, 3.788834146483068*^9}, {3.788834414977331*^9, 3.788834446526845*^9}, { 3.788836073752419*^9, 3.788836130856104*^9}, {3.788836342113262*^9, 3.788836345010672*^9}, {3.7888364482319164`*^9, 3.7888364523480806`*^9}, { 3.788836573222029*^9, 3.788836684808531*^9}, {3.788836816775473*^9, 3.788836866644444*^9}, {3.788836968334192*^9, 3.788836976352211*^9}, { 3.788837175638712*^9, 3.788837186917952*^9}, {3.788838309650617*^9, 3.788838324612111*^9}, {3.788853045803496*^9, 3.7888530623012686`*^9}, { 3.788936404346928*^9, 3.7889364238717265`*^9}, {3.7889365367269306`*^9, 3.788936567426444*^9}, {3.788936612493816*^9, 3.788936620487116*^9}, { 3.789125410293588*^9, 3.789125420141614*^9}, {3.789125605814945*^9, 3.789125607960622*^9}, {3.789125797210464*^9, 3.789125797405059*^9}, { 3.789127041313589*^9, 3.789127045756059*^9}, {3.789127075765002*^9, 3.789127077657934*^9}, {3.7891271091340284`*^9, 3.789127125191837*^9}, { 3.7891271735278482`*^9, 3.789127183876584*^9}, {3.789127228398605*^9, 3.789127298684276*^9}, 3.789127339177758*^9, {3.850965192080224*^9, 3.850965220988982*^9}, {3.850965564516798*^9, 3.85096556492159*^9}, { 3.859293737556932*^9, 3.859293746196601*^9}, 3.8592938834461164`*^9}, CellLabel-> "In[253]:=",ExpressionUUID->"cd7b1cba-cd20-6c46-a227-7beaa9718f8a"] }, Closed]], Cell[CellGroupData[{ Cell["NONL defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, {3.787893238336218*^9, 3.787893239616878*^9}, {3.822369723252593*^9, 3.822369724343676*^9}},ExpressionUUID->"7a968052-f899-f641-88be-\ 9998c3ec0be9"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E8001"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "dof0", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"NSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof", ",", "Reals"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{"dof", " ", "/.", " ", "#"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rul_List"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "con_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "exp", ",", "sol", ",", "UT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"UT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]U", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "UT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"exp", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", "UT"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Last", "[", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"exp", ",", "con"}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rul"}]}], "}"}], "]"}]}], "]"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule_List"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{ "p_Symbol", ",", "pmin_", ",", "pmax_", ",", "\[CapitalDelta]p_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WT", ",", "equ", ",", "sol", ",", "sol0", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ReleaseHold", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"sol", " ", "/.", RowBox[{"Rule", "\[Rule]", "List"}]}]}], "]"}]}], ";", RowBox[{"Prepend", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Hold", "[", "p", "]"}], "\[Rule]", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pmin", ",", "pmax", ",", "\[CapitalDelta]p"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof", ",", "Reals"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Norm", "[", RowBox[{"dof", " ", "/.", " ", "#"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}], ",", "Reals"}], "]"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_", ",", "rulen_"}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "dof0", ",", "equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"dof", ",", RowBox[{"dof", " ", "/.", "rule"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof0", ",", RowBox[{"DampingFactor", "\[Rule]", "4"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "2"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sol", "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", RowBox[{"{", RowBox[{ "p_Symbol", ",", "pmin_", ",", "pmax_", ",", "\[CapitalDelta]p_"}], "}"}]}], "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "equ", ",", "sol", ",", "sol0", ",", "dof", ",", "\[Delta]dof"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0.0000001"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ReleaseHold", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"sol", " ", "/.", RowBox[{"Rule", "\[Rule]", "List"}]}]}], "]"}]}], ";", RowBox[{"Prepend", "[", RowBox[{"sol", ",", RowBox[{ RowBox[{"Hold", "[", "p", "]"}], "\[Rule]", "p"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"p", ",", "pmin", ",", "pmax", ",", "\[CapitalDelta]p"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.6204640425822554`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224285`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121162`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.6938967427518554`*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.7578177761870756`*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, {3.787893262537146*^9, 3.787893293562251*^9}, {3.789011658828579*^9, 3.789011685106179*^9}, { 3.789011769340255*^9, 3.789011778591201*^9}, {3.789011816904675*^9, 3.789011856496833*^9}, {3.789011916734619*^9, 3.789011917613014*^9}, { 3.789012004400347*^9, 3.7890120790499506`*^9}, {3.789017022567576*^9, 3.789017040991524*^9}, {3.789137822804145*^9, 3.789137840140971*^9}, { 3.789138830369392*^9, 3.789138831966152*^9}, {3.789138964170571*^9, 3.789138966401119*^9}, {3.7891390002011642`*^9, 3.7891390083921876`*^9}, { 3.789139061327534*^9, 3.789139181303717*^9}, {3.789178844159594*^9, 3.7891788709933996`*^9}, {3.789197516887492*^9, 3.78919752929266*^9}, { 3.789197640603428*^9, 3.7891976690423346`*^9}, {3.7891980332343006`*^9, 3.789198036543322*^9}, {3.7894414019567575`*^9, 3.789441418883275*^9}, { 3.7894415106536922`*^9, 3.789441568976749*^9}, {3.789441727937441*^9, 3.789441760932055*^9}, {3.789441826766877*^9, 3.789441867240697*^9}, { 3.7894419854165044`*^9, 3.789441995908549*^9}, {3.789481227588405*^9, 3.789481229196883*^9}, {3.789565208967163*^9, 3.789565222891079*^9}, { 3.789565267733974*^9, 3.789565310260277*^9}, {3.789724236489136*^9, 3.789724240717756*^9}, {3.852428771947333*^9, 3.852428794640484*^9}, { 3.852439296064255*^9, 3.852439313592872*^9}, {3.852439622784988*^9, 3.852439627315819*^9}, {3.8524399109547577`*^9, 3.8524399119152737`*^9}, { 3.852441403168058*^9, 3.852441440998828*^9}, {3.852955456548892*^9, 3.852955462666407*^9}, {3.852958622336733*^9, 3.852958622702162*^9}, { 3.8530378998165426`*^9, 3.8530379193339243`*^9}, {3.853037953502244*^9, 3.853037985610914*^9}, {3.85303807352728*^9, 3.853038096110407*^9}, { 3.8530381808829203`*^9, 3.853038216537428*^9}, {3.894187570912894*^9, 3.894187590983534*^9}, {3.8944242250699406`*^9, 3.894424256599369*^9}, { 3.894440195367274*^9, 3.894440196915293*^9}}, CellLabel-> "In[255]:=",ExpressionUUID->"17172a1f-505d-074d-b24c-dd57b010126f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_", ",", "rule1_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0", ",", "rule1"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input",ExpressionUUID->"cf341ebd-dd01-b94e-897a-24566e857557"] }, Closed]], Cell[CellGroupData[{ Cell["TMEC defs", "Subsection", CellChangeTimes->{{3.7582531074375505`*^9, 3.7582531288543863`*^9}, { 3.787892825419589*^9, 3.787892834044976*^9}, {3.822369175023527*^9, 3.822369183415092*^9}, {3.8223697280437837`*^9, 3.8223697285388823`*^9}},ExpressionUUID->"b4f024f7-8438-cc4d-9cec-\ 3a7b26a2cb2b"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "sol", ",", "\[Delta]WT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WT", "=", RowBox[{"ParallelMap", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WT", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"D", "[", RowBox[{"\[Delta]WT", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", "dof"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}], " ", ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518*^9}, {3.451286429805*^9, 3.4512864368094*^9}, { 3.470647633501168*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763446*^9}, { 3.4933449778422008`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.495100218904001*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.495100611636*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.500716829990401*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.557658089353172*^9}, { 3.6204640425822554`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.632028461864117*^9, 3.6320284928925724`*^9, { 3.632188762223758*^9, 3.6321887797107573`*^9}, {3.632188830051637*^9, 3.6321888552960806`*^9}, 3.632188947556358*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.659336253624063*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.685234069056932*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224285`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.685340122854737*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.687348849568665*^9}, { 3.687348949558805*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.687349099769017*^9}, { 3.687349139559071*^9, 3.687349172179118*^9}, {3.687349330359339*^9, 3.687349336179347*^9}, {3.687521139333435*^9, 3.687521232626771*^9}, { 3.687526828204684*^9, 3.68752686622586*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, {3.687744782441271*^9, 3.687744793141286*^9}, { 3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.687828897776816*^9}, {3.689387262707008*^9, 3.689387273737025*^9}, { 3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, {3.692413395172788*^9, 3.692413447292861*^9}, { 3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, {3.692415015123534*^9, 3.692415019653542*^9}, { 3.692415095573646*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, {3.6924155440942764`*^9, 3.6924155997043543`*^9}, { 3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, {3.6926047241829376`*^9, 3.692604793663034*^9}, { 3.692694606764871*^9, 3.6926946080948734`*^9}, {3.69269464855493*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.692694779595114*^9}, { 3.692694853345217*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854877`*^9}, {3.692695104745568*^9, 3.6926952014557037`*^9}, { 3.692695400025982*^9, 3.6926954007959833`*^9}, {3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, { 3.692699211121318*^9, 3.692699243221362*^9}, {3.692767928345048*^9, 3.692767934225055*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, { 3.692768583705965*^9, 3.6927686080859995`*^9}, {3.692768652936062*^9, 3.692768666816081*^9}, {3.692768697506124*^9, 3.692768721766158*^9}, { 3.692768754626204*^9, 3.692768807796279*^9}, {3.692768843966329*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, { 3.692769047276614*^9, 3.6927692269968653`*^9}, {3.692769260096912*^9, 3.692769261136915*^9}, {3.692769508057259*^9, 3.692769532467294*^9}, { 3.692769570707347*^9, 3.692769719217555*^9}, {3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.692769955297885*^9, {3.69277013750814*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, { 3.692782982318822*^9, 3.6927829888081927`*^9}, {3.692783039096069*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, { 3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, { 3.692786968327264*^9, 3.692786969187264*^9}, {3.692791756130246*^9, 3.692791807920319*^9}, {3.692791883430424*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, { 3.6927921455307913`*^9, 3.6927921655908194`*^9}, {3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, { 3.6927923374910593`*^9, 3.692792370051105*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, {3.692792553391362*^9, 3.692792586031408*^9}, { 3.692792731971612*^9, 3.692792738121621*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, {3.6927928932518377`*^9, 3.6927929516419196`*^9}, { 3.692792988691972*^9, 3.692793002421991*^9}, {3.69279305234206*^9, 3.692793071532088*^9}, {3.6927932237223005`*^9, 3.692793224982302*^9}, 3.69279325725235*^9, {3.692793442182607*^9, 3.6927934498726172`*^9}, { 3.692793484652666*^9, 3.692793502922692*^9}, {3.692795418078088*^9, 3.692795446828129*^9}, {3.6928535571114936`*^9, 3.692853577521522*^9}, { 3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.692854877563959*^9}, {3.6928579822683063`*^9, 3.692857995588324*^9}, { 3.692965670791779*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, {3.692965913862119*^9, 3.6929659218321304`*^9}, { 3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.692966925323535*^9, 3.692966936273551*^9}, {3.6929669714336*^9, 3.692966971953601*^9}, 3.692967013963659*^9, 3.692967433554247*^9, {3.692967563494428*^9, 3.6929676911746073`*^9}, {3.692967783204737*^9, 3.692967806834769*^9}, { 3.6929678599332247`*^9, 3.69296787111324*^9}, 3.692967908543293*^9, { 3.693017052482854*^9, 3.693017139242976*^9}, {3.693017402724345*^9, 3.6930175965956182`*^9}, {3.6930184697368383`*^9, 3.693018565426974*^9}, { 3.6930186942971525`*^9, 3.693018835437351*^9}, {3.693018892668431*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.693019220539889*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.693020541556024*^9, 3.693020605876114*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.693139628880299*^9}, {3.6932135226775846`*^9, 3.693213522977586*^9}, { 3.693219312471691*^9, 3.69321932632171*^9}, {3.69321947629192*^9, 3.693219487941937*^9}, 3.693219548152021*^9, {3.693220303405078*^9, 3.693220317855099*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, { 3.693302459393871*^9, 3.69330246574388*^9}, {3.693302603694073*^9, 3.693302604214074*^9}, {3.693310395092306*^9, 3.693310399082311*^9}, { 3.693310452822389*^9, 3.693310456172391*^9}, {3.693380733755448*^9, 3.693380746175465*^9}, {3.693624741349209*^9, 3.693624743669212*^9}, { 3.69362490643944*^9, 3.6936249099894447`*^9}, {3.693717543558445*^9, 3.693717557998465*^9}, {3.693717708199675*^9, 3.693717726870702*^9}, { 3.6937178194508305`*^9, 3.69371784010086*^9}, {3.693717934550992*^9, 3.693717942831005*^9}, {3.6937180305511265`*^9, 3.693718060841169*^9}, { 3.693718198801362*^9, 3.693718202821368*^9}, {3.693723123415037*^9, 3.693723180965118*^9}, {3.693723252275217*^9, 3.69372327580525*^9}, { 3.693723334705335*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.693723773007949*^9}, {3.693724008978279*^9, 3.69372401133828*^9}, { 3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121162`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.693840987938529*^9}, {3.6938967427518554`*^9, 3.693896745771858*^9}, { 3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.694917472050921*^9, 3.69491747813093*^9}, { 3.69491751432098*^9, 3.69491755608104*^9}, {3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.723943528406138*^9, {3.723943646081049*^9, 3.72394364668592*^9}, { 3.7254330838452635`*^9, 3.72543315169353*^9}, {3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.725433790285855*^9}, { 3.72543382083533*^9, 3.7254339260782228`*^9}, {3.725434199282693*^9, 3.725434210286269*^9}, {3.725434287581842*^9, 3.725434288077889*^9}, { 3.725443796293885*^9, 3.7254438161441803`*^9}, {3.725756614481497*^9, 3.725756618125969*^9}, {3.72579140235997*^9, 3.725791403217962*^9}, { 3.725791548301742*^9, 3.725791549108264*^9}, {3.725791654751267*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.725891955023536*^9}, { 3.7258922912790194`*^9, 3.725892303666605*^9}, {3.725892363801316*^9, 3.7258923917562647`*^9}, {3.732781849897335*^9, 3.732781851740935*^9}, { 3.756128796258463*^9, 3.756128808101935*^9}, {3.7561289636033297`*^9, 3.756128967401234*^9}, {3.756129158149655*^9, 3.756129161730915*^9}, { 3.756168228209236*^9, 3.7561682921182303`*^9}, {3.756168336119172*^9, 3.7561683422817945`*^9}, {3.7561687588268995`*^9, 3.756168760043317*^9}, { 3.756168790608805*^9, 3.756168809683841*^9}, {3.756266979192393*^9, 3.756266987189448*^9}, {3.756267134557196*^9, 3.756267151418509*^9}, { 3.756267238618904*^9, 3.75626728245811*^9}, {3.756267323112788*^9, 3.756267369934089*^9}, {3.756267913298699*^9, 3.756267937833023*^9}, { 3.7562686403059607`*^9, 3.75626865150496*^9}, 3.756268910964476*^9, 3.756268975347582*^9, {3.756291635829771*^9, 3.756291670714565*^9}, { 3.7562970292001624`*^9, 3.7562971110957913`*^9}, {3.756354727514307*^9, 3.756354751631702*^9}, {3.756354849442463*^9, 3.7563548962495594`*^9}, { 3.7563549974812*^9, 3.7563550014513693`*^9}, {3.756355080997491*^9, 3.756355089151907*^9}, {3.756355164067688*^9, 3.756355171626652*^9}, { 3.756355203033866*^9, 3.7563553257026477`*^9}, {3.756355433740617*^9, 3.756355459389017*^9}, {3.756355541718184*^9, 3.756355546747837*^9}, { 3.756355732631825*^9, 3.756355746503568*^9}, {3.756355855045875*^9, 3.7563558609196053`*^9}, {3.756355910283166*^9, 3.75635593869836*^9}, { 3.7563560087797346`*^9, 3.756356010295001*^9}, {3.756797773170301*^9, 3.7567978192689314`*^9}, {3.756798047305444*^9, 3.756798084437412*^9}, { 3.756798117913953*^9, 3.756798154780326*^9}, {3.7568139377944374`*^9, 3.756813941735011*^9}, {3.7578171254549913`*^9, 3.7578171982352457`*^9}, { 3.75781775424854*^9, 3.7578177761870756`*^9}, {3.75781956271533*^9, 3.757819566308566*^9}, 3.787893015796948*^9, 3.78789318769702*^9, { 3.7890171909617825`*^9, 3.789017212740966*^9}, {3.815268500296718*^9, 3.815268678285927*^9}, {3.815269201087903*^9, 3.815269223194291*^9}, { 3.822369200353807*^9, 3.822369210700147*^9}, {3.822369272776178*^9, 3.822369299587499*^9}, 3.822369735599583*^9, {3.822370335148969*^9, 3.8223703474091916`*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"090f1327-ec0b-a842-a5b8-fbcf10b4b970"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["PRE-POST", "Section", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, 3.473055186341*^9, {3.473055247286001*^9, 3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, { 3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, { 3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, { 3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 3.5566238462386265`*^9}, {3.556872505539539*^9, 3.5568725163821597`*^9}, { 3.556872678728445*^9, 3.556872681048578*^9}, {3.732337604562051*^9, 3.7323376086812143`*^9}, {3.733563062348389*^9, 3.733563072583865*^9}, { 3.733563159827469*^9, 3.7335631629996696`*^9}},ExpressionUUID->"4045c919-644a-4548-a8af-\ 2087644c8c49"], Cell[CellGroupData[{ Cell["LINK-TIE defs", "Subsection", CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, { 3.68532054956944*^9, 3.6853205513594437`*^9}, {3.685326992341719*^9, 3.685326999819147*^9}, {3.685327113810607*^9, 3.685327116900611*^9}, { 3.76060719416889*^9, 3.760607206352191*^9}},ExpressionUUID->"5a2e0da3-704d-2143-adc2-\ c314b4c66f96"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LINK", "[", RowBox[{"{", RowBox[{"I1_Integer", ",", "I2_Integer"}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "3"}], "]"}], "]"}], "\[Rule]", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "2"}], "]"}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"I1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"0", "\[Rule]", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"rigid", " ", "link"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LINK", "[", RowBox[{"lnk_", ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"funout", ",", "n1", ",", "n2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "=", RowBox[{"lnk", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "}"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "lnk", "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"could", " ", "be", " ", "generalized"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"could", " ", "be", " ", "generalized", "\[IndentingNewLine]", RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}]}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "one", " ", "node", " ", "tie", " ", "with", " ", "any", " ", "element", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"could", " ", "be", " ", "generalized"}], "*)"}], "\[IndentingNewLine]", RowBox[{"TIE", "[", RowBox[{"n0_", ",", "nodes_", ",", "fun_"}], "]"}]}], ":=", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "n\[Xi]", ",", "n\[Eta]", ",", "\[Xi]", ",", "\[Eta]", ",", "NN", ",", "x", ",", "y", ",", "z", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "n\[Eta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Xi]", ",", "\[Xi]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Eta]", ",", "\[Eta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]"}], "}"}], "=", RowBox[{ RowBox[{"MinimalBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Xi]", ",", "\[Eta]", ",", " ", RowBox[{"Norm", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Eta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "20"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", "Last"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"Flatten", "[", "nodes", "]"}], ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", "n0", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n0", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[CapitalTheta]", ",", "\[Psi]"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "funout", "]"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.496939383309*^9, 3.4969394213417993`*^9}, { 3.559961640310264*^9, 3.559961656783893*^9}, {3.559961730369222*^9, 3.559961739230038*^9}, {3.560131276325063*^9, 3.560131279460666*^9}, { 3.560131313421926*^9, 3.560131324388745*^9}, {3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 3.630231884758859*^9}, { 3.630649684386073*^9, 3.630649712146661*^9}, {3.630649747889705*^9, 3.630649778060431*^9}, {3.630649843969201*^9, 3.6306501496326838`*^9}, { 3.6306501928641567`*^9, 3.630650252234552*^9}, {3.630650308727783*^9, 3.630650311351934*^9}, {3.630650349614122*^9, 3.630650420974203*^9}, { 3.630650474367257*^9, 3.630650601725542*^9}, {3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 3.6306517167213187`*^9}, { 3.630657386301155*^9, 3.630657416409208*^9}, {3.630657451119269*^9, 3.630657474862511*^9}, {3.6306575678542747`*^9, 3.630657667008048*^9}, { 3.630657711764528*^9, 3.630657903894464*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {3.630658129143259*^9, 3.630658226440631*^9}, { 3.63065827139991*^9, 3.6306582739115143`*^9}, 3.630658635254949*^9, { 3.6306586682178073`*^9, 3.63065868139983*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {3.632187297648989*^9, 3.6321873151349883`*^9}, 3.632187405667167*^9, {3.632187463194457*^9, 3.6321878547998557`*^9}, { 3.632187889913864*^9, 3.632187894247113*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {3.6321886111201143`*^9, 3.63218861505834*^9}, { 3.632188654528598*^9, 3.632188664074143*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {3.6853206095995235`*^9, 3.685320631309554*^9}, { 3.6853206843496284`*^9, 3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {3.685321020360099*^9, 3.6853211351402597`*^9}, { 3.685321180140324*^9, 3.685321665981003*^9}, {3.68532169890105*^9, 3.685321709491064*^9}, {3.685321781051165*^9, 3.6853220138814898`*^9}, { 3.685322538862225*^9, 3.685322602002314*^9}, {3.6853270065604596`*^9, 3.685327020590476*^9}, {3.685327067740542*^9, 3.685327190430714*^9}, { 3.6853272344507756`*^9, 3.685327367150961*^9}, {3.685327539861203*^9, 3.685327565421239*^9}, {3.6853276026012936`*^9, 3.685327613201306*^9}, 3.685327846481632*^9, {3.760607166687976*^9, 3.760607186226157*^9}, { 3.7606081322359104`*^9, 3.7606081444875402`*^9}, {3.783175276335141*^9, 3.783175293210803*^9}, {3.783175332699009*^9, 3.783175341729051*^9}, { 3.7888532050250206`*^9, 3.788853241833204*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"48d13f4a-165f-5141-88f1-5cc1541e4f8a"] }, Closed]], Cell[CellGroupData[{ Cell["TOOL defs", "Subsection",ExpressionUUID->"29d673f4-b137-0c4c-bb7d-f1c91d6f6f00"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EX", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "t0", ",", "A", ",", "fun", ",", "dfun", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"t0", " ", "=", " ", RowBox[{"First", "[", "time", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"fun", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"MATRIXFUN", "[", RowBox[{"A", ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "*", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}], "&"}]}], "]"}], ".", "a0"}], "+", RowBox[{ RowBox[{"MATRIXFUN", "[", RowBox[{"A", ",", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"Sqrt", "[", "#", "]"}], "*", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", "#", "]"}]}], "&"}]}], "]"}], ".", "a1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dfun", " ", "=", " ", RowBox[{"D", "[", RowBox[{"fun", ",", "t"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Join", "[", RowBox[{"fun", ",", "dfun"}], "]"}], " ", "/.", " ", RowBox[{"t", "->", "#"}]}], ")"}], "&"}], ",", "time"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CR", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nn", ",", "\[CapitalDelta]t", ",", "A", ",", "II", ",", "AA", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", RowBox[{ RowBox[{"Length", "[", "time", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Last", "[", "time", "]"}], "-", RowBox[{"First", "[", "time", "]"}]}], ")"}], "/", "nn"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"II", " ", "=", " ", RowBox[{"IdentityMatrix", "[", RowBox[{"Length", "[", "a0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AA", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"II", ",", RowBox[{ RowBox[{ RowBox[{"-", "II"}], "/", "2"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}], "]"}], ".", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"II", ",", RowBox[{ RowBox[{"II", "/", "2"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"AA", ".", "#"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"a0", ",", "a1"}], "}"}], "]"}], ",", "nn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DG", "[", RowBox[{"M_", ",", "K_", ",", "alist_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nn", ",", "\[CapitalDelta]t", ",", "A", ",", "II", " ", ",", "AA", " ", ",", "out", ",", "alist0", ",", "alist1", ",", "a0", ",", "a1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"alist0", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "0"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"alist1", " ", "=", RowBox[{"(", RowBox[{"alist", " ", "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"a", "[", "b_", "]"}], " ", "\[Rule]", " ", RowBox[{"a", "[", RowBox[{"b", ",", "1"}], "]"}]}], "}"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a0", " ", "=", RowBox[{"(", RowBox[{"alist0", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", RowBox[{"(", RowBox[{"alist1", " ", "/.", " ", "rule"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"nn", " ", "=", RowBox[{ RowBox[{"Length", "[", "time", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Last", "[", "time", "]"}], "-", RowBox[{"First", "[", "time", "]"}]}], ")"}], "/", "nn"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", "M", "]"}], ".", "K"}]}], ";", "\[IndentingNewLine]", RowBox[{"II", " ", "=", " ", RowBox[{"IdentityMatrix", "[", RowBox[{"Length", "[", "a0", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AA", " ", "=", " ", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A", "*", RowBox[{"\[CapitalDelta]t", "^", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"II", "-", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}]}], ")"}], "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "II"}], "-", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "2"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"A", "*", RowBox[{ RowBox[{"\[CapitalDelta]t", "^", "2"}], "/", "3"}]}], ")"}], "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}], "]"}], ".", RowBox[{"ArrayFlatten", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "*", "II"}], ",", RowBox[{"II", "*", "\[CapitalDelta]t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "II"}], ",", RowBox[{ RowBox[{"-", "II"}], "*", "\[CapitalDelta]t"}]}], "}"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"out", " ", "=", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"AA", ".", "#"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"a0", ",", "a1"}], "}"}], "]"}], ",", "nn"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MAKERULE", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"alist0", ",", "alist1"}], "]"}], ",", "#"}], "]"}], "&"}], " ", ",", "out"}], "]"}]}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NEWTON", "[", RowBox[{"equ_", ",", "var_", ",", "rule_", ",", RowBox[{"{", RowBox[{"\[CurlyEpsilon]_", ",", "m_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Dequ", ",", "sol", ",", "dsol", ",", "K", ",", "F", ",", RowBox[{"ii", "=", "m"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dequ", "=", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "var", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"var", " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"ii", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"K", "=", RowBox[{"Dequ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"F", "=", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dsol", "=", RowBox[{"-", RowBox[{"LinearSolve", "[", RowBox[{"K", ",", "F"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "dsol", "]"}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"sol", "+", "dsol"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "dsol", "]"}], "<", RowBox[{"\[CurlyEpsilon]", "*", RowBox[{"Norm", "[", "sol", "]"}]}]}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ii", "=", RowBox[{"ii", "-", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"var", "->", "sol"}], "]"}]}]}], "]"}]}], ";"}], " "}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.4941679835598*^9, 3.4941680104542*^9}, { 3.725892039330008*^9, 3.725892047236313*^9}, {3.7258921328118224`*^9, 3.725892185576483*^9}}, CellLabel-> "In[269]:=",ExpressionUUID->"0d629f9b-fb99-ce42-bae3-6ff259408d80"] }, Closed]], Cell[CellGroupData[{ Cell["REFINE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.901778668161737*^9, 3.901778670179028*^9}},ExpressionUUID->"b9b4b83b-272a-3041-af1f-\ b7230c3f4f2f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"left", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a1"}], "+", RowBox[{"6", " ", "a2"}], "-", "a3"}], ")"}], "/", "8"}], ",", "a2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}]}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"right", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a1"}], "+", RowBox[{"6", " ", "a2"}], "+", RowBox[{"3", " ", "a3"}]}], ")"}], "/", "8"}], ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"RIGID", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"RIGID", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"FORCE", ",", "mat_", ",", RowBox[{"Point", "[", RowBox[{"{", "a1_", "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", "mat", ",", RowBox[{"Point", "[", RowBox[{"{", "a1", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "left"}], ",", RowBox[{"fY", "/.", "left"}], ",", RowBox[{"fZ", "/.", "left"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"fX", " ", "/.", "right"}], ",", RowBox[{"fY", "/.", "right"}], ",", RowBox[{"fZ", "/.", "right"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "left"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "right"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fX", "/.", "left"}], ",", RowBox[{"fY", "/.", "left"}], ",", RowBox[{"fZ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fX", "/.", "right"}], ",", RowBox[{"fY", "/.", "right"}], ",", RowBox[{"fZ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", "ff_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"\[Rho]\[Rho]", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"ff", "/.", "left"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"\[Rho]\[Rho]", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"ff", "/.", "right"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", "/.", "left"}], ",", "iy"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fX", "/.", "left"}], ",", RowBox[{"fY", "/.", "left"}], ",", RowBox[{"fZ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE", " ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", "/.", "right"}], ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fX", "/.", "right"}], ",", RowBox[{"fY", "/.", "right"}], ",", RowBox[{"fZ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "ss_", ",", "\[CurlyTheta]\[CurlyTheta]_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"\[Alpha]\[Alpha]", "/.", "left"}], ",", RowBox[{"kk", "/.", "left"}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", "/.", "left"}], ",", RowBox[{"ss", "/.", "left"}], ",", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"\[Alpha]\[Alpha]", "/.", "right"}], ",", RowBox[{"kk", "/.", "right"}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"AA", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", "/.", "right"}], ",", RowBox[{"ss", "/.", "right"}], ",", RowBox[{"\[CurlyTheta]\[CurlyTheta]", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "left"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", " ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "right"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "GG_", "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"mX", "/.", "left"}], ",", RowBox[{"mY", "/.", "left"}], ",", RowBox[{"mZ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG", " ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"mX", "/.", "right"}], ",", RowBox[{"mY", "/.", "right"}], ",", RowBox[{"mZ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "JJ_", "}"}], ",", RowBox[{"{", "mm_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GG", " ", "/.", "left"}], ",", RowBox[{"\[Rho]\[Rho]", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "left"}], "}"}], ",", RowBox[{"{", RowBox[{"mm", "/.", "left"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GG", " ", "/.", "right"}], ",", RowBox[{"\[Rho]\[Rho]", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{"JJ", "/.", "right"}], "}"}], ",", RowBox[{"{", RowBox[{"mm", "/.", "right"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]0_"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"Ln_", ",", "Lb_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", RowBox[{"Ln", " ", ",", "Lb"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]0"}], "}"}], ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE", "}"}], ",", RowBox[{"{", RowBox[{"Ln", ",", "Lb"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "pro", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", "pro", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "Ip_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "Ip_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "left"}], ",", RowBox[{"GG", " ", "/.", "left"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "left"}], ",", RowBox[{"Iyy", " ", "/.", "left"}], ",", RowBox[{"Izz", " ", "/.", "left"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "left"}], ",", RowBox[{"fy", " ", "/.", "left"}], ",", RowBox[{"fz", " ", "/.", "left"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EE", " ", "/.", "right"}], ",", RowBox[{"GG", " ", "/.", "right"}], ",", "\[Rho]\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AA", " ", "/.", "right"}], ",", RowBox[{"Iyy", " ", "/.", "right"}], ",", RowBox[{"Izz", " ", "/.", "right"}], ",", "Ip"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"fx", " ", "/.", "right"}], ",", RowBox[{"fy", " ", "/.", "right"}], ",", RowBox[{"fz", " ", "/.", "right"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"TWODIM", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TWODIM", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRAIN", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID1", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID1", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID2", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID2", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"EMS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"EMS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANESTRESS", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n3", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"PLATE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], ",", RowBox[{"{", RowBox[{"n3_", ",", "n4_"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n5", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n8", ",", "n9"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n9", ",", "n6"}], "}"}], ",", RowBox[{"{", RowBox[{"n7", ",", "n4"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SHELL", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SHELL", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID", ",", "mat_", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n5", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n7", ",", "n10", ",", "n6", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"SOLID", ",", "mat_", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n13", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n12", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n14", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n18", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n22", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n21", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4", ",", "n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n9", ",", "n2", ",", "\[IndentingNewLine]", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n13", ",", "n18", ",", "\[IndentingNewLine]", RowBox[{"n15", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n19", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3", ",", "n7", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "n22"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n13", ",", "n10", ",", "n3", ",", "\[IndentingNewLine]", RowBox[{"n11", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n22", ",", "n19", ",", "\[IndentingNewLine]", RowBox[{"n16", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n20", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n3", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n12", ",", "n13", ",", "n11", ",", "n4", ",", "\[IndentingNewLine]", "n21", ",", "n22", ",", "n20", ",", "\[IndentingNewLine]", RowBox[{"n17", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n14", ",", "n18", ",", "n22", ",", "n21", ",", "n5", ",", "\[IndentingNewLine]", RowBox[{"n23", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n27", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n26", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n18", ",", "n15", ",", "n19", ",", "n22", ",", "n23", ",", "n6", ",", "\[IndentingNewLine]", RowBox[{"n24", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "n27"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n22", ",", "n19", ",", "n16", ",", "n20", ",", "n27", ",", "n24", ",", "n7", ",", "\[IndentingNewLine]", RowBox[{"n25", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n21", ",", "n22", ",", "n20", ",", "n17", ",", "n26", ",", "n27", ",", "n25", ",", "\[IndentingNewLine]", "n8"}], " ", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"if", " ", "nothing", " ", "applies"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", "nod"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"NEWNODE", ",", "NEWNODET"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"offset", "[", RowBox[{"\[Kappa]_", ",", "n1_", ",", "n2_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r12", ",", "L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Kappa]", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r12", "=", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"Sqrt", "[", RowBox[{"r12", ".", "r12"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], StyleBox["\[Cross]", "OperatorCharacter"], "r12"}]}], "/", "L"}], "*", RowBox[{"(", RowBox[{ RowBox[{"1.", "/", "\[Kappa]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"1.", "/", RowBox[{"\[Kappa]", "^", "2"}]}], "-", RowBox[{ RowBox[{"L", "^", "2"}], "/", "4"}]}], "]"}]}], ")"}]}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]_"}], "}"}], ",", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", "\[Kappa]"}], "}"}], ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], "+", RowBox[{"offset", "[", RowBox[{"\[Kappa]", ",", "n1", ",", "n2"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "0"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", RowBox[{"ii", ",", "1"}], "]"}]}], "]"}]}], "}"}]}], " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "4"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "ii", "]"}], ",", RowBox[{"uY", "[", "ii", "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "}"}]}], " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_", ",", "a6_", ",", "a7_", ",", "a8_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}]}], ";", RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"DO", " ", "IT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"REF", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "lnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"lnkout", "=", "lnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9}, CellLabel-> "In[273]:=",ExpressionUUID->"4fba25c4-8b39-7b4e-8baf-79b72eb7c04c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refined", " ", "edges", " ", "should", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.908935748710062*^9, 3.90893574965294*^9}, { 3.9093690970528145`*^9, 3.909369147480857*^9}, {3.909369219058071*^9, 3.909369305182468*^9}, {3.913977020998396*^9, 3.913977055950222*^9}, { 3.913977097442639*^9, 3.913977157198372*^9}, {3.913977199044777*^9, 3.913977210785115*^9}, 3.915158676678207*^9}, CellLabel-> "In[310]:=",ExpressionUUID->"c13b182a-51aa-5343-af41-c21bb99dc78d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"one", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Point", "[", RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"two", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int1", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "a1"}], "+", RowBox[{"6", " ", "a2"}], "-", "a3"}], ")"}], "/", "8"}], ",", "a2"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{"a1", ",", RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}]}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int2", " ", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "->", RowBox[{"{", RowBox[{"a2", ",", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a1"}], "+", RowBox[{"6", " ", "a2"}], "+", RowBox[{"3", " ", "a3"}]}], ")"}], "/", "8"}], ",", "a3"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], "}"}]}], ",", RowBox[{"a1_", "->", "a1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"INT1", "[", "dat_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "/.", "int1"}], ")"}], "&"}], ",", "tmp"}], "]"}], ",", RowBox[{"{", RowBox[{"tmp", ",", "dat"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"INT2", "[", "dat_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "/.", "int2"}], ")"}], "&"}], ",", "tmp"}], "]"}], ",", RowBox[{"{", RowBox[{"tmp", ",", "dat"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", RowBox[{"INT1", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", RowBox[{"INT2", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "def"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"BAR", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"INT1", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"INT2", "[", "mat", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"three", "-", RowBox[{"node", " ", "elements"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{ RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n5", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n7", ",", "n10", ",", "n6", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n9"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n10", ",", "n7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n8", ",", "n6", ",", "n5", ",", "n7"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n13", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n12", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n14", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n18", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n22", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n21", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n4", ",", "n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n9", ",", "n2", ",", "\[IndentingNewLine]", RowBox[{"n10", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", "n13", ",", "n18", ",", "\[IndentingNewLine]", RowBox[{"n15", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n19", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3", ",", "n7", ",", "n6"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "n22"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{"n13", ",", "n10", ",", "n3", ",", "\[IndentingNewLine]", RowBox[{"n11", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}], ",", "n22", ",", "n19", ",", "\[IndentingNewLine]", RowBox[{"n16", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n20", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n3", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n12", ",", "n13", ",", "n11", ",", "n4", ",", "\[IndentingNewLine]", "n21", ",", "n22", ",", "n20", ",", "\[IndentingNewLine]", RowBox[{"n17", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n4", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n14", ",", "n18", ",", "n22", ",", "n21", ",", "n5", ",", "\[IndentingNewLine]", RowBox[{"n23", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n5"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n27", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"n26", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n18", ",", "n15", ",", "n19", ",", "n22", ",", "n23", ",", "n6", ",", "\[IndentingNewLine]", RowBox[{"n24", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n6", ",", "n7"}], "}"}], "]"}], "]"}]}], ",", "n27"}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n22", ",", "n19", ",", "n16", ",", "n20", ",", "n27", ",", "n24", ",", "n7", ",", "\[IndentingNewLine]", RowBox[{"n25", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n7", ",", "n8"}], "}"}], "]"}], "]"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n21", ",", "n22", ",", "n20", ",", "n17", ",", "n26", ",", "n27", ",", "n25", ",", "\[IndentingNewLine]", "n8"}], " ", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", " ", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"if", " ", "nothing", " ", "applies"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", "nod"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"NEWNODE", ",", "NEWNODET"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "a5_", ",", "a6_", ",", "a7_", ",", "a8_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{ "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "a7", ",", "a8"}], "}"}]}], ";", RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"nl", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], " ", " ", "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODET", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}]}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "4"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[CurlyTheta]", "[", "ii", "]"}]}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"DO", " ", "IT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"REF", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.901779751122837*^9, 3.901779839648195*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.901779947387813*^9}, {3.9017799894429646`*^9, 3.901780065866303*^9}, { 3.901780104322407*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.901780387648889*^9}, {3.901840688856732*^9, 3.90184074494683*^9}, { 3.901840799236411*^9, 3.901840843315841*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.901841250346514*^9, 3.901841252566634*^9}, 3.901841489471627*^9, {3.9018416422969494`*^9, 3.901841644104319*^9}, 3.901841749559722*^9, {3.9018422102104535`*^9, 3.901842260333658*^9}, { 3.90184232047679*^9, 3.901842330887992*^9}, {3.901844658728829*^9, 3.901844681460646*^9}, {3.9018447720500755`*^9, 3.901844776029396*^9}, { 3.901848883302691*^9, 3.901848918025587*^9}, {3.9018489944102974`*^9, 3.901849032929193*^9}, {3.901849283833233*^9, 3.9018493322660627`*^9}, { 3.9018494487017307`*^9, 3.901849449555555*^9}},ExpressionUUID->"63bef965-f37c-f147-aae7-\ 07429eb14538"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", "n2", ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], ",", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}]}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"REF", "[", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.9024661710855503`*^9, 3.902466191675097*^9}, { 3.902466339739992*^9, 3.902466395824471*^9}, {3.9024664734657726`*^9, 3.902466513805814*^9}, 3.902466606664084*^9, {3.902466676604085*^9, 3.902466720314906*^9}, {3.902466753759744*^9, 3.902466944799135*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"6068585a-aebc-164a-9a0a-2503ff2051ce"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.902466955591053*^9}, CellLabel->"Out[25]=",ExpressionUUID->"f558041a-2826-d649-9915-f501d07739ca"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "lnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"lnkout", "=", "lnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}]}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a2", ",", "a1"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "ii", "]"}], "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}]}], ")"}]}], "]"}]}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.901779751122837*^9, 3.901779839648195*^9}, { 3.901779911224971*^9, 3.9017799117555447`*^9}, {3.901779945731931*^9, 3.901779947387813*^9}, {3.9017799894429646`*^9, 3.901780065866303*^9}, { 3.901780104322407*^9, 3.9017802718467216`*^9}, {3.901780319467684*^9, 3.901780387648889*^9}, {3.901840688856732*^9, 3.90184074494683*^9}, { 3.901840799236411*^9, 3.901840843315841*^9}, {3.9018410258710775`*^9, 3.9018410772957754`*^9}, {3.901841250346514*^9, 3.901841252566634*^9}, 3.901841489471627*^9},ExpressionUUID->"0d66b22a-2eb0-8048-a2ba-\ 9029e2f6c9c1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n5", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n3", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FACE", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n3", ",", "n2"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refined", " ", "edges", " ", "should", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.6314094294772797`*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.6347967222076488`*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.6874387445294046`*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.6876686346644025`*^9, 3.687668647884422*^9}, {3.687668691164481*^9, 3.687668823124666*^9}, { 3.687668960604859*^9, 3.6876691302750964`*^9}, {3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, { 3.687672494864244*^9, 3.687672495474246*^9}, {3.687672580794365*^9, 3.687672715374554*^9}, {3.687672853854748*^9, 3.687672933284858*^9}, { 3.687672972294914*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.6879313344746346`*^9, {3.687931387314707*^9, 3.687931400414726*^9}, {3.687931456954805*^9, 3.6879314600748086`*^9}, { 3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.687931751135217*^9}, {3.687931799185285*^9, 3.6879318101553006`*^9}, { 3.68793185287536*^9, 3.687931875785391*^9}, {3.68803217384746*^9, 3.688032324857671*^9}, {3.68811073769691*^9, 3.68811083105704*^9}, { 3.688182194807842*^9, 3.688182209008861*^9}, {3.688182315870012*^9, 3.688182493260259*^9}, {3.6881827603406353`*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.688183132471155*^9}, {3.688183628661849*^9, 3.6881836750819163`*^9}, { 3.688211059016615*^9, 3.6882111198467*^9}, {3.688211189606798*^9, 3.6882112272568517`*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.6882118603977385`*^9}, {3.688213969800432*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.6882146560475097`*^9, 3.688214668457528*^9}, { 3.688214751567642*^9, 3.6882147680976677`*^9}, {3.688214804297716*^9, 3.6882149595979347`*^9}, {3.688215020348018*^9, 3.688215213338288*^9}, { 3.688215243738332*^9, 3.688215312948428*^9}, 3.688215544608753*^9, { 3.688540867416464*^9, 3.688540868276465*^9}, {3.688540923456542*^9, 3.688540987616632*^9}, {3.689509628603777*^9, 3.6895096840119457`*^9}, 3.6895097148397093`*^9, {3.689568676097738*^9, 3.689568771827872*^9}, { 3.689737582567273*^9, 3.689737610517312*^9}, {3.689738148338065*^9, 3.689738254678214*^9}, {3.689738292788267*^9, 3.689738346768343*^9}, { 3.689738725788874*^9, 3.689738817909003*^9}, {3.689858527120675*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, { 3.6940970096156654`*^9, 3.694097074705757*^9}, 3.694141398814512*^9, { 3.694354094868929*^9, 3.6943541832790527`*^9}, {3.694920239046096*^9, 3.694920319576208*^9}, {3.694920396206316*^9, 3.694920412426338*^9}, { 3.694920488276445*^9, 3.6949204937164516`*^9}, 3.694920560646546*^9, { 3.695100444594348*^9, 3.6951004570843654`*^9}, {3.697339563447492*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, { 3.697985573722165*^9, 3.697985597992199*^9}, {3.697985642962262*^9, 3.697985671172302*^9}, {3.724464332547879*^9, 3.724464348643357*^9}, { 3.724467403856756*^9, 3.724467437838467*^9}, {3.724467547933581*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, {3.724467772264612*^9, 3.724467824163081*^9}, {3.7244678625415554`*^9, 3.724467863396864*^9}, { 3.724468018783759*^9, 3.72446802144991*^9}, {3.7244681559004545`*^9, 3.724468185054037*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, { 3.7244686219080153`*^9, 3.7244687024486265`*^9}, {3.724471239123545*^9, 3.724471243073423*^9}, {3.724471282106525*^9, 3.724471282307459*^9}, { 3.724471828313918*^9, 3.724471852982109*^9}, {3.724510926042297*^9, 3.724510971741112*^9}, {3.725418025707011*^9, 3.725418132591786*^9}, { 3.725418186497287*^9, 3.725418198564393*^9}, {3.725418240702896*^9, 3.7254182427078347`*^9}, 3.725418272982128*^9, {3.725418374214787*^9, 3.72541838162965*^9}, {3.725418413584223*^9, 3.725418415023783*^9}, { 3.725418877464322*^9, 3.725418956995327*^9}, {3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441197`*^9, 3.725419396185589*^9}, { 3.725432214366968*^9, 3.725432235836476*^9}, {3.725432289467839*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, { 3.726401405512204*^9, 3.7264014071162825`*^9}, {3.72640144393233*^9, 3.726401446298113*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, { 3.726401682872032*^9, 3.726401718837957*^9}, {3.726401899357152*^9, 3.726401901021258*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, { 3.726402159599182*^9, 3.7264021616913195`*^9}, {3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.747040836329057*^9}, { 3.74710616636937*^9, 3.747106214420479*^9}, {3.747106746963822*^9, 3.747106834372692*^9}, {3.7471068959871354`*^9, 3.747106915079779*^9}, { 3.747106958889848*^9, 3.747106998742816*^9}, 3.747107044736511*^9, { 3.747107087544964*^9, 3.747107089357545*^9}, {3.747113800248985*^9, 3.747113811418234*^9}, {3.747113850002859*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.74711434246253*^9, 3.747114343868453*^9}, { 3.7471148744458323`*^9, 3.747114931572899*^9}, {3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.747115638702848*^9}, { 3.747116431240279*^9, 3.747116433552243*^9}, {3.747116480822291*^9, 3.747116610432179*^9}, {3.747116647876696*^9, 3.74711671028353*^9}, { 3.74865997476248*^9, 3.748660010198181*^9}, {3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, { 3.748660498171374*^9, 3.748660508798976*^9}, {3.7486929231374454`*^9, 3.748692934238252*^9}, {3.748692973777675*^9, 3.7486929903337507`*^9}, { 3.7486930264117804`*^9, 3.748693179945371*^9}, {3.748693249361241*^9, 3.748693272417321*^9}, 3.748693327628136*^9, 3.748693923751941*^9, { 3.7486939698417687`*^9, 3.748693970012789*^9}, {3.748694008103215*^9, 3.748694075714235*^9}, {3.7486942326282196`*^9, 3.748694304005413*^9}, { 3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.748695310476059*^9}, {3.748695384723056*^9, 3.748695811151685*^9}, { 3.748695876602944*^9, 3.7486959097256*^9}, {3.748696422965355*^9, 3.748696457868487*^9}, 3.7487454821763644`*^9, {3.754056041592442*^9, 3.754056060140006*^9}, {3.754056347029888*^9, 3.754056351327733*^9}, { 3.754056854382514*^9, 3.754056862089791*^9}, {3.7540569630968127`*^9, 3.7540569674225426`*^9}, {3.7540570759551015`*^9, 3.7540570801772118`*^9}, {3.754057135076915*^9, 3.754057152630065*^9}, { 3.7540571929041653`*^9, 3.754057236529367*^9}, {3.754057397662035*^9, 3.7540574231277227`*^9}, {3.754057456018913*^9, 3.754057472695193*^9}, { 3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, { 3.7540576696626444`*^9, 3.754057832330846*^9}, {3.754057890394717*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.754058051382696*^9}, { 3.754097890432112*^9, 3.754097919134088*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.754098036324529*^9, 3.754098095196913*^9}, { 3.754098127982014*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.754098388741669*^9}, {3.754098433086689*^9, 3.754098448771526*^9}, { 3.754098518107086*^9, 3.754098541874659*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.754098632933464*^9, 3.754098651832582*^9}, 3.754098694943287*^9, {3.7540987996641817`*^9, 3.7540988293199515`*^9}, { 3.754098922368672*^9, 3.754098946956335*^9}, {3.7541009656118875`*^9, 3.754100966064907*^9}, {3.7541260794470396`*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.754126497220241*^9, 3.754126628008542*^9}, { 3.754126661315868*^9, 3.754126719835323*^9}, 3.754126796164828*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.754127155311608*^9, 3.754127199236007*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.75412771758806*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.755536568808188*^9, 3.7555368169423966`*^9}, {3.756619425296663*^9, 3.756619503340211*^9}, { 3.7606073727611184`*^9, 3.7606074044677906`*^9}, {3.763903763582767*^9, 3.763903966901358*^9}, {3.7639040036658916`*^9, 3.763904035274949*^9}, { 3.763904149198217*^9, 3.763904149842008*^9}, {3.764129506629578*^9, 3.764129629106339*^9}, 3.764129767145048*^9, {3.764129842917159*^9, 3.76412986403855*^9}, {3.764129953949529*^9, 3.7641299638308244`*^9}, { 3.764130242057335*^9, 3.764130264998592*^9}, {3.764130412156185*^9, 3.764130517277567*^9}, {3.764905400658563*^9, 3.764905448073204*^9}, { 3.7661917992707295`*^9, 3.7661918111029906`*^9}, {3.766193705847564*^9, 3.766193730852714*^9}, {3.766288732159727*^9, 3.7662887421574097`*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.774166634692407*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.774168184384497*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.774238320348544*^9}, {3.7742384167748957`*^9, 3.774238438885627*^9}, {3.774238499096892*^9, 3.7742385555597315`*^9}, { 3.7742385931019473`*^9, 3.774238669464537*^9}, {3.774239332037335*^9, 3.774239458024664*^9}, {3.774239612785857*^9, 3.7742396524321184`*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.774239918344379*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.774240620075459*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.774240942030443*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.7742411489763327`*^9, 3.774241206599957*^9}, { 3.77518955636145*^9, 3.775189557474781*^9}, {3.775189607619177*^9, 3.7751897799277*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, {3.7956770978646717`*^9, 3.795677218161966*^9}, {3.8146735876267333`*^9, 3.814673589766639*^9}, { 3.814673972933985*^9, 3.814674011764584*^9}, {3.8146740671049843`*^9, 3.814674104917766*^9}, {3.814674150774597*^9, 3.81467418042771*^9}, { 3.814674251422745*^9, 3.8146743106812353`*^9}, 3.814674726159151*^9, 3.814674968815707*^9, 3.814675018726674*^9, {3.820993565028139*^9, 3.820993565810325*^9}, {3.820993622559275*^9, 3.820993707955525*^9}, { 3.820993740651954*^9, 3.820993799726659*^9}, {3.8449114536299915`*^9, 3.844911459709479*^9}, 3.844911489750399*^9, {3.844911524811378*^9, 3.844911611521674*^9}, {3.8449116508263745`*^9, 3.844911890031958*^9}, { 3.844911941599936*^9, 3.844911942668052*^9}, {3.844911973297134*^9, 3.8449120379798584`*^9}, {3.8449120825540514`*^9, 3.84491208370156*^9}, { 3.844913130449778*^9, 3.84491313620944*^9}, {3.844913600565547*^9, 3.844913684928097*^9}, {3.8449138096165752`*^9, 3.844913894501918*^9}, { 3.846912173333303*^9, 3.846912212029579*^9}, {3.846912263742777*^9, 3.846912264841491*^9}, {3.846913863799194*^9, 3.8469138819214835`*^9}, { 3.8518356301432824`*^9, 3.851835652475341*^9}, {3.853032777958458*^9, 3.853032812072734*^9}, {3.9017786748084583`*^9, 3.901778689159729*^9}, { 3.901778741625797*^9, 3.901778752812984*^9}, {3.901778909134333*^9, 3.9017789203043647`*^9}, 3.901779469205895*^9},ExpressionUUID->"af4091b0-9801-1c4d-9e09-\ 7676f646622e"] }, Closed]], Cell[CellGroupData[{ Cell["ENRICH defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}},ExpressionUUID->"fc17c669-3553-ec47-bc6c-\ 3a77024b0b47"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1005"}], " ", "|", " ", RowBox[{ "E8001", " ", "transform", " ", "to", " ", "hgher", " ", "otder", " ", "representation"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "eleout", ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "NEWNODE"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"funout", " ", "=", "fun"}], ";", "\[IndentingNewLine]", RowBox[{"eleout", "=", "ele"}], ";", "\[IndentingNewLine]", RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"eleout", " ", "/.", " ", "rule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.698497423108619*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438267`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.712996782536436*^9}, {3.713002371477435*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.713009872096419*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.714041051681373*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}}, CellLabel-> "In[311]:=",ExpressionUUID->"7f37c2ff-be67-1548-a879-931a02d84d2c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], ",", "lst_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "funout", ",", "eleout", ",", "vertexrule", ",", "enrichrule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "vertex", " ", "number", " ", "transform", " ", "as", " ", "the", " ", "starting", " ", "point"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vertexrule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n5"}], "}"}], "]"}], ",", "n5", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"ele", "/.", "vertexrule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "enrich", " ", "the", " ", "given", " ", "elements", " ", "if", " ", "not", " ", "enriched", " ", "already"}], "*)"}], "\[IndentingNewLine]", RowBox[{"enrichrule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], ",", "n2", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n5"}], "}"}], "]"}], ",", "n5", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n5", ",", "n1"}], "}"}], "]"}]}], " ", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], ",", "n2"}], "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"typ_", ",", "mat_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], ",", "n3"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"eleout", "[", RowBox[{"[", "lst", "]"}], "]"}], " ", "=", RowBox[{ RowBox[{"eleout", "[", RowBox[{"[", "lst", "]"}], "]"}], "/.", "enrichrule"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", "eleout", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.902447106779468*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.902447375352225*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037005`*^9}, {3.902448428037353*^9, 3.902448677852794*^9}, { 3.9024487499204283`*^9, 3.902448754275967*^9}, {3.902448874268986*^9, 3.902448876004253*^9}, {3.902449218490075*^9, 3.902449219287242*^9}},ExpressionUUID->"847c55e2-cbc7-1f42-90b6-\ 9ab32be5321b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ENRICH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}, { 3.902360213513878*^9, 3.9023602601136084`*^9}, {3.90244687906888*^9, 3.902446903608487*^9}, {3.9024469411949577`*^9, 3.902447032558676*^9}, { 3.902447106779468*^9, 3.90244716336375*^9}, {3.9024472675527716`*^9, 3.902447268369278*^9}, {3.902447375352225*^9, 3.902447549944233*^9}, { 3.9024476428110046`*^9, 3.9024476963845167`*^9}, {3.9024477756319776`*^9, 3.9024477977157536`*^9}, 3.902448292093459*^9, {3.902448344266026*^9, 3.9024483447037005`*^9}, {3.902448428037353*^9, 3.902448739743712*^9}, { 3.902448782204124*^9, 3.902448796153398*^9}, {3.90244893211995*^9, 3.902448932390024*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"44d2d90d-4842-a147-9d94-453e3c8f96c6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", "3", ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"typ", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.9024488002338185`*^9, 3.9024488835680075`*^9, 3.902448935070481*^9}, CellLabel->"Out[8]=",ExpressionUUID->"c9199efe-13e9-ac4f-812d-35163d61f817"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ENRICH", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_", ",", "elnk_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"funout", "=", "fun"}], ",", RowBox[{"eleout", "=", "ele"}], ",", RowBox[{"elnkout", "=", "elnk"}], ",", "ii", ",", "rule", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5", ",", "a6", ",", "left", ",", "right", ",", "NEWNODE", ",", "edg", ",", "lnkrule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "refinement", " ", "inherits", " ", "conditions", " ", "and", " ", "has", " ", "memory"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "funout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"funout", "=", RowBox[{"Join", "[", RowBox[{"funout", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"funout", "[", RowBox[{"[", RowBox[{"a2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"uX", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"uY", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]X", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], ",", "NumberQ"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"funout", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", "3", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"\[Theta]Z", "[", "ii", "]"}]}], "]"}]}], "}"}]}], "}"}], "}"}]}], "]"}]}], ";", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"driven", " ", "by", " ", "this"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", "mat_", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], "\[RuleDelayed]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", "mat", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", "n2", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], "}"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"elnkout", "=", RowBox[{"Join", "[", RowBox[{"elnk", ",", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "&"}], ",", "elnk"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eleout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"(", RowBox[{"eleout", " ", "/.", " ", "rule"}], ")"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"eleout", ",", "funout", ",", "elnkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.6984974231086197`*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438276`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.7129967825364356`*^9}, {3.7130023714774346`*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.7130098720964184`*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.7140410516813726`*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.76060730083092*^9, 3.760607314551498*^9}, {3.760607357897784*^9, 3.760607359417551*^9}, {3.76060744241443*^9, 3.760607457401692*^9}, { 3.844827354234421*^9, 3.844827376022034*^9}, {3.844827523136463*^9, 3.844827526657555*^9}, 3.844827623832064*^9, {3.8448277812192287`*^9, 3.844827784803499*^9}, {3.844827829780749*^9, 3.844827855905464*^9}, { 3.844828686628151*^9, 3.844828687881418*^9}, {3.9017045095553617`*^9, 3.901704516352677*^9}, 3.901704594301478*^9, {3.901704710345669*^9, 3.9017048039420786`*^9}, {3.901704887418366*^9, 3.90170489689122*^9}, { 3.901704994458703*^9, 3.9017051258970566`*^9}, {3.9017052149557724`*^9, 3.901705260995308*^9}, {3.9017053089383745`*^9, 3.901705347494705*^9}, 3.9017054177330537`*^9, {3.901705496757824*^9, 3.9017055475356693`*^9}, { 3.9017063415813212`*^9, 3.9017063826466017`*^9}, {3.9017065769121*^9, 3.901706588877763*^9}, {3.901706652024603*^9, 3.9017066964396987`*^9}, { 3.901707211519778*^9, 3.901707214831928*^9}, {3.902359965056723*^9, 3.90235997218151*^9}, {3.9023600167839317`*^9, 3.902360150153108*^9}},ExpressionUUID->"67402b82-a467-7340-9739-\ b0712635d5c8"] }, Closed]], Cell[CellGroupData[{ Cell["GREFINE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.7594889422016716`*^9, 3.759488944733738*^9}, {3.7597145150982075`*^9, 3.759714542190567*^9}, {3.759714582896585*^9, 3.759714584858339*^9}},ExpressionUUID->"d8566b27-3baa-b241-ae6a-\ 5342814178cd"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GREF", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"n4", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", "n2", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n3", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n6", ",", "n1", ",", "n4"}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n4", ",", "n5", ",", "n6"}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GREF", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GREFINE", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"crdout", "=", "crd"}], ",", RowBox[{"nodout", "=", "nod"}], ",", "ii"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", " ", "=", RowBox[{ RowBox[{"Length", "[", "crdout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Join", "[", RowBox[{"crdout", ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdout", "[", RowBox[{"[", "a1", "]"}], "]"}], "+", RowBox[{"crdout", "[", RowBox[{"[", "a2", "]"}], "]"}]}], ")"}], "/", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GREF", "[", "#", "]"}], "&"}], ",", "nodout"}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "nodout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GENR", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n2", ",", "n3"}], "}"}], "]"}], "]"}], ",", RowBox[{"NEWNODE", "[", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"n3", ",", "n1"}], "}"}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"GENR", "[", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}], "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", RowBox[{"n5", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], ",", RowBox[{"n8", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n3"}], "}"}], "]"}]}], ",", RowBox[{"n9", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n5", ",", "n2", ",", "n9", ",", RowBox[{"n6", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n2", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n8", ",", "n9", ",", "n3", ",", RowBox[{"n7", "=", RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"n3", ",", "n4"}], "}"}], "]"}]}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n9", ",", "n6", ",", "n7", ",", "n4"}], "}"}], "]"}], "}"}]}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GENRICH", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ii", ",", "FN", ",", "rule", ",", RowBox[{"crdout", "=", "crd"}], ",", RowBox[{"nodout", "=", "nod"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ii", "=", RowBox[{ RowBox[{"Length", "[", "crdout", "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Clear", "[", "NEWNODE", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1_", ",", "a2_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"NEWNODE", "[", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], "]"}], "=", RowBox[{"CompoundExpression", "[", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Join", "[", RowBox[{"crdout", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"crdout", "[", RowBox[{"[", "a1", "]"}], "]"}], "+", RowBox[{"crdout", "[", RowBox[{"[", "a2", "]"}], "]"}]}], ")"}], "/", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"ii", "++"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GENR", "[", "#", "]"}], "&"}], ",", "nodout"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "nodout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.697985830982525*^9, 3.697985832992528*^9}, { 3.698414463543007*^9, 3.698414476843025*^9}, {3.6984148090934906`*^9, 3.698414846403543*^9}, {3.698414969923715*^9, 3.698414973063719*^9}, { 3.698415039563813*^9, 3.698415050103827*^9}, {3.698415130973941*^9, 3.698415154703974*^9}, {3.6984151857740173`*^9, 3.6984152096340513`*^9}, { 3.6984152435240984`*^9, 3.698415255934116*^9}, 3.6984153434742384`*^9, { 3.698415428614358*^9, 3.6984155528645315`*^9}, {3.698415650334668*^9, 3.698415695794731*^9}, {3.698497121648199*^9, 3.6984971440082307`*^9}, { 3.698497256408388*^9, 3.698497258628392*^9}, {3.698497324188483*^9, 3.698497334418497*^9}, {3.698497423108619*^9, 3.69849751476875*^9}, { 3.699107129086978*^9, 3.69910719511707*^9}, {3.6994220214505434`*^9, 3.699422023570546*^9}, 3.6994224722011747`*^9, {3.700296892213687*^9, 3.700296940453755*^9}, {3.700297153924053*^9, 3.700297154704054*^9}, { 3.700298036047288*^9, 3.700298060017322*^9}, {3.700298156207457*^9, 3.7002981872575*^9}, {3.712979171884004*^9, 3.712979180025763*^9}, { 3.712979232875139*^9, 3.712979252111267*^9}, {3.712979419738787*^9, 3.712979525828207*^9}, {3.712979580990331*^9, 3.712979590413209*^9}, { 3.7129796478565316`*^9, 3.7129796809538364`*^9}, {3.7129804673191423`*^9, 3.712980474819879*^9}, {3.712980610928114*^9, 3.712980622210312*^9}, { 3.7129807144235544`*^9, 3.712980726627682*^9}, {3.7129807741799045`*^9, 3.712980780946197*^9}, {3.712981140687695*^9, 3.71298114754747*^9}, 3.712982001323314*^9, 3.712982092129925*^9, {3.7129824843276033`*^9, 3.712982513752865*^9}, {3.71298256627383*^9, 3.712982670207111*^9}, { 3.7129827678737044`*^9, 3.712982856273471*^9}, {3.712982945454843*^9, 3.712983022932089*^9}, {3.712983202325946*^9, 3.712983239298639*^9}, { 3.712983366989815*^9, 3.712983388023601*^9}, {3.712983418620538*^9, 3.712983537257947*^9}, {3.712983834758374*^9, 3.712983894467859*^9}, { 3.7129840417335854`*^9, 3.712984063673375*^9}, 3.712984151526748*^9, { 3.7129844471207294`*^9, 3.712984521081483*^9}, {3.712984569477442*^9, 3.712984573962379*^9}, {3.712984641406767*^9, 3.712984648032766*^9}, { 3.712985039824218*^9, 3.71298523890793*^9}, 3.712985371832188*^9, { 3.71298541375613*^9, 3.7129854179438267`*^9}, {3.712985449603707*^9, 3.712985455682221*^9}, {3.712985520111225*^9, 3.712985525768077*^9}, { 3.712985625231479*^9, 3.7129857027712817`*^9}, {3.712985762933673*^9, 3.712985769059338*^9}, {3.712985831488144*^9, 3.712985835050726*^9}, { 3.7129860602431355`*^9, 3.712986064853248*^9}, {3.7129862394499397`*^9, 3.712986242887823*^9}, {3.712986629724007*^9, 3.7129866397563314`*^9}, { 3.71298680167982*^9, 3.712986860763974*^9}, {3.7129869813135347`*^9, 3.712986994236789*^9}, {3.712987135892788*^9, 3.712987136814763*^9}, { 3.7129950311602526`*^9, 3.7129950408646345`*^9}, {3.7129950854940643`*^9, 3.712995128842733*^9}, {3.712995161470902*^9, 3.712995164018298*^9}, { 3.712995233556699*^9, 3.712995253965371*^9}, 3.712995343491997*^9, { 3.712995379839848*^9, 3.712995411374176*^9}, {3.712996268059813*^9, 3.712996279264394*^9}, {3.712996332785453*^9, 3.712996333988704*^9}, { 3.7129963699143753`*^9, 3.712996564216339*^9}, {3.7129967399069395`*^9, 3.712996782536436*^9}, {3.713002371477435*^9, 3.713002390011431*^9}, { 3.7130024555486317`*^9, 3.713002456033061*^9}, {3.713009685904413*^9, 3.713009698562335*^9}, {3.713009785977857*^9, 3.713009872096419*^9}, { 3.7138474164601574`*^9, 3.713847460605017*^9}, {3.713848647902732*^9, 3.713848695220564*^9}, {3.7140410034418354`*^9, 3.71404102099051*^9}, { 3.714041051681373*^9, 3.714041057166238*^9}, {3.750056116349233*^9, 3.750056118309679*^9}, {3.75005644772439*^9, 3.750056460364983*^9}, { 3.750418955819368*^9, 3.750418991955581*^9}, {3.7504190504328346`*^9, 3.750419117911834*^9}, {3.750419148990396*^9, 3.750419297188678*^9}, { 3.750419370477698*^9, 3.750419371460817*^9}, {3.750419622202434*^9, 3.750419627457027*^9}, {3.750419676396184*^9, 3.750419700523249*^9}, { 3.7504199014205647`*^9, 3.7504199105731564`*^9}, 3.750419967426951*^9, { 3.75042000580826*^9, 3.750420017982086*^9}, {3.7504200623902054`*^9, 3.75042007252547*^9}, {3.7594891152396383`*^9, 3.759489154065875*^9}, { 3.759714591619499*^9, 3.759714665591065*^9}, {3.75971472891543*^9, 3.759714824916602*^9}, {3.759714870698747*^9, 3.759714947478797*^9}, { 3.7597150349307227`*^9, 3.7597151634794807`*^9}, {3.759715246935138*^9, 3.7597153062491665`*^9}, {3.7597153377190075`*^9, 3.759715387057753*^9}, { 3.7597154590071197`*^9, 3.759715500272478*^9}, {3.7597155491240797`*^9, 3.7597155760904846`*^9}, {3.7597156273541317`*^9, 3.75971569203012*^9}, { 3.759715739514512*^9, 3.759715758014934*^9}, {3.759715801341112*^9, 3.75971588340364*^9}, {3.759715927490775*^9, 3.759716061251598*^9}, { 3.759716123477256*^9, 3.759716134998943*^9}, {3.7597192931263885`*^9, 3.7597193363351936`*^9}, {3.759719377316734*^9, 3.759719404125424*^9}, { 3.7597244593792834`*^9, 3.759724529395421*^9}, {3.759724790225044*^9, 3.759724797335229*^9}, {3.75972483683544*^9, 3.759724840049382*^9}, { 3.759727702871601*^9, 3.7597277380976133`*^9}, {3.759727774307602*^9, 3.759727786273531*^9}, {3.759727871612993*^9, 3.759727888999635*^9}, 3.7597279993022413`*^9, {3.75973165307685*^9, 3.759731658575601*^9}, { 3.759731720670585*^9, 3.759731738556853*^9}, {3.759731825620432*^9, 3.759731856878929*^9}, {3.759735536137723*^9, 3.7597356755580835`*^9}, { 3.759743445765726*^9, 3.759743450812235*^9}, 3.759744218448916*^9}, CellLabel-> "In[312]:=",ExpressionUUID->"12edd4d3-4793-0048-a110-acf8d6ba5955"] }, Closed]], Cell[CellGroupData[{ Cell["EXTRUDE defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.745143810516633*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607554619519*^9, 3.760607561176069*^9}},ExpressionUUID->"933824f7-e545-aa49-802d-\ fbf8316327dd"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"extrude", " ", "a", " ", "cross"}], "-", RowBox[{"section", " ", "in", " ", "z"}], "-", "direction"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EXTRUDE", "[", RowBox[{ RowBox[{"{", RowBox[{"nod_", ",", "crd_"}], "}"}], ",", RowBox[{"{", RowBox[{"ns_", ",", "np_"}], "}"}], ",", "L_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nodout", ",", "crdout", ",", "offset", ",", "nnod"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crdout", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"L", "*", RowBox[{"ii", "/", RowBox[{"(", RowBox[{"np", "*", "ns"}], ")"}]}]}]}], "]"}], "&"}], ",", "crd"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"np", "*", "ns"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnod", "=", RowBox[{"Max", "[", RowBox[{"Flatten", "[", RowBox[{"nod", " ", "/.", " ", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "\[Rule]", "a"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"offset", " ", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"np", "+", "1"}], ")"}], "*", "ns"}], "-", RowBox[{"(", RowBox[{"ns", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"np", "+", "1"}], ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "\[Rule]", RowBox[{"ELEMENT", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "*", "nnod"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "off"}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"off", ",", "offset"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"nodout", ",", "crdout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"extrude", " ", "a", " ", "cross"}], "-", RowBox[{"section", " ", "in", " ", "z"}], "-", "direction"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"EXTRUDE", "[", RowBox[{ RowBox[{"{", RowBox[{"nod_", ",", "crd_"}], "}"}], ",", "np_", ",", "z_List"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nodout", ",", "crdout", ",", "offset", ",", "nnod", ",", "ns"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns", "=", RowBox[{ RowBox[{"Length", "[", "z", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"crdout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "is", "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"is", "+", "1"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "is", "]"}], "]"}]}], ")"}], "*", RowBox[{"ii", "/", "np"}]}]}]}], "]"}], "&"}], ",", "crd"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"is", "==", "1"}], ",", "0", ",", "1"}], "]"}], ",", "np"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"is", ",", "1", ",", "ns"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nnod", "=", RowBox[{"Max", "[", RowBox[{"Flatten", "[", RowBox[{"nod", " ", "/.", " ", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "\[Rule]", "a"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"offset", " ", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"np", "+", "1"}], ")"}], "*", "ns"}], "-", RowBox[{"(", RowBox[{"ns", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"np", "+", "1"}], ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nodout", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "\[Rule]", RowBox[{"ELEMENT", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"ii", "-", "1"}], ")"}], "*", "nnod"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "off"}], "}"}]}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"off", ",", "offset"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"nodout", ",", "crdout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, {3.760607570443933*^9, 3.76060759034247*^9}}, CellLabel-> "In[317]:=",ExpressionUUID->"040ef699-6307-354a-ab04-8c3828a0a14a"] }, Closed]], Cell[CellGroupData[{ Cell["TRIANGULATE defs", "Subsection", CellChangeTimes->{{3.755536969381203*^9, 3.7555369706487265`*^9}, { 3.784699941516708*^9, 3.7846999469147778`*^9}},ExpressionUUID->"b3176457-f913-014b-a5c9-\ 6c40eb801f9b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_", ",", "mrk_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_Real"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], "<>", "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleDelete", "[", "inInst", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}], ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "crd_", ",", "mrk_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "str_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleDelete", "[", "inInst", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}], ",", "typout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "more", " ", "specific", " ", "form", " ", "to", " ", "be", " ", "removed"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "mrk_"}], "}"}], ",", "crd_", ",", "a_Real"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "str", ",", "inInst", ",", "outInst", ",", "crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Line", "[", "#", "]"}], "&"}], ",", "segout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg_", ",", "mrk_"}], "}"}], ",", "crd_", ",", "str_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "str", "]"}], ";", "\[IndentingNewLine]", RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegmentMarkers", "[", RowBox[{"inInst", ",", "mrk"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", "=", RowBox[{"TriangleGetSegments", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mrkout", "=", RowBox[{"TriangleGetSegmentMarkers", "[", "outInst", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"segout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Line", "[", "#", "]"}], "&"}], ",", "segout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout", ",", "segout", ",", "mrkout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"inInst", ",", "outInst", ",", "crdout", ",", "eleout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", "a_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "eleout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"eleout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"eleout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "eleout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "eleout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}]}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd", ",", RowBox[{"{", RowBox[{"dms", ",", "atr", ",", "cns"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "\"\\""}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "polout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}], ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"nod", " ", "/.", RowBox[{ RowBox[{"Line", "[", "any_", "]"}], "\[Rule]", "any"}]}], ",", "crd", ",", RowBox[{"{", RowBox[{"dms", ",", "atr", ",", "cns"}], "}"}], ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"crdout", ",", "polout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TRIANGULATE", "[", RowBox[{"seg_", ",", "crd_", ",", RowBox[{"{", RowBox[{"dms_", ",", "atr_", ",", "cns_", ",", "hls_"}], "}"}], ",", "a_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inInst", ",", "outInst", ",", "crdout", ",", "polout", ",", "typout", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"inInst", "=", RowBox[{"TriangleCreate", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetPoints", "[", RowBox[{"inInst", ",", "crd"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetSegments", "[", RowBox[{"inInst", ",", "seg"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetRegions", "[", RowBox[{"inInst", ",", "dms", ",", " ", "atr", ",", " ", "cns"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TriangleSetHoles", "[", RowBox[{"inInst", ",", " ", "hls"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"do", " ", "it"}], "*)"}], "\[IndentingNewLine]", RowBox[{"str", "=", RowBox[{"\"\\"", StyleBox["<>", "OperatorCharacter"], RowBox[{"ToString", "[", RowBox[{"1.", "*", "a"}], "]"}], StyleBox["<>", "OperatorCharacter"], "\"\\""}]}], ";", "\[IndentingNewLine]", RowBox[{"outInst", " ", "=", " ", RowBox[{"TriangleTriangulate", "[", RowBox[{"inInst", ",", "str"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "extract", "*)"}], "\[IndentingNewLine]", RowBox[{"crdout", "=", " ", RowBox[{"TriangleGetPoints", "[", "outInst", "]"}]}], ";", RowBox[{"polout", "=", RowBox[{"TriangleGetElements", "[", "outInst", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"polout", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", "#", "]"}], "&"}], ",", "polout"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"typout", "=", RowBox[{"Flatten", "[", RowBox[{"Round", "[", RowBox[{"TriangleGetElementAttributes", "[", "outInst", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"polout", ",", "crdout", ",", "typout"}], "}"}], "]"}]}]}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.6876686346644025`*^9, 3.687668647884422*^9}, {3.687668691164481*^9, 3.687668823124666*^9}, { 3.687668960604859*^9, 3.6876691302750964`*^9}, {3.687669356755413*^9, 3.6876695631957026`*^9}, {3.68766976165598*^9, 3.687669770715993*^9}, { 3.687672494864244*^9, 3.687672495474246*^9}, {3.687672580794365*^9, 3.687672715374554*^9}, {3.687672853854748*^9, 3.687672933284858*^9}, { 3.687672972294914*^9, 3.6876731124151096`*^9}, {3.687673280685345*^9, 3.687673411335528*^9}, 3.687931334474635*^9, {3.687931387314707*^9, 3.687931400414726*^9}, {3.687931456954805*^9, 3.6879314600748086`*^9}, { 3.687931618845031*^9, 3.687931690255131*^9}, {3.687931744255206*^9, 3.687931751135217*^9}, {3.687931799185285*^9, 3.6879318101553016`*^9}, { 3.68793185287536*^9, 3.687931875785391*^9}, {3.68803217384746*^9, 3.688032324857671*^9}, {3.68811073769691*^9, 3.68811083105704*^9}, { 3.688182194807842*^9, 3.688182209008861*^9}, {3.688182315870012*^9, 3.688182493260259*^9}, {3.6881827603406363`*^9, 3.688182807210699*^9}, { 3.6881829158708515`*^9, 3.68818292930087*^9}, {3.688182999800969*^9, 3.688183132471155*^9}, {3.688183628661849*^9, 3.6881836750819173`*^9}, { 3.688211059016615*^9, 3.6882111198467*^9}, {3.688211189606798*^9, 3.688211227256852*^9}, {3.688211687127494*^9, 3.688211814657673*^9}, { 3.688211854527728*^9, 3.6882118603977394`*^9}, {3.688213969800432*^9, 3.68821399050046*^9}, {3.68821420020687*^9, 3.688214201756872*^9}, 3.6882144390772047`*^9, {3.6882146560475106`*^9, 3.688214668457528*^9}, { 3.688214751567642*^9, 3.688214768097669*^9}, {3.688214804297716*^9, 3.6882149595979357`*^9}, {3.688215020348018*^9, 3.688215213338288*^9}, { 3.688215243738332*^9, 3.688215312948428*^9}, 3.688215544608753*^9, { 3.688540867416464*^9, 3.688540868276465*^9}, {3.688540923456542*^9, 3.688540987616632*^9}, {3.689509628603777*^9, 3.6895096840119457`*^9}, 3.6895097148397093`*^9, {3.689568676097738*^9, 3.689568771827872*^9}, { 3.689737582567273*^9, 3.689737610517312*^9}, {3.689738148338065*^9, 3.689738254678214*^9}, {3.689738292788267*^9, 3.689738346768343*^9}, { 3.689738725788874*^9, 3.689738817909003*^9}, {3.689858527120675*^9, 3.689858545170701*^9}, {3.6898585824607525`*^9, 3.689858769851015*^9}, { 3.6940970096156654`*^9, 3.694097074705757*^9}, 3.694141398814512*^9, { 3.694354094868929*^9, 3.6943541832790527`*^9}, {3.694920239046096*^9, 3.694920319576208*^9}, {3.694920396206316*^9, 3.694920412426338*^9}, { 3.694920488276445*^9, 3.6949204937164516`*^9}, 3.694920560646546*^9, { 3.695100444594348*^9, 3.6951004570843654`*^9}, {3.697339563447492*^9, 3.69733958428752*^9}, {3.697985422771953*^9, 3.6979855230120935`*^9}, { 3.697985573722165*^9, 3.697985597992199*^9}, {3.697985642962262*^9, 3.697985671172302*^9}, {3.724464332547879*^9, 3.724464348643357*^9}, { 3.724467403856756*^9, 3.724467437838467*^9}, {3.724467547933581*^9, 3.724467563230343*^9}, 3.7244676966368866`*^9, {3.724467772264612*^9, 3.724467824163081*^9}, {3.7244678625415564`*^9, 3.724467863396864*^9}, { 3.724468018783759*^9, 3.72446802144991*^9}, {3.7244681559004545`*^9, 3.724468185054037*^9}, {3.724468459327367*^9, 3.724468483652465*^9}, { 3.7244686219080153`*^9, 3.7244687024486265`*^9}, {3.724471239123545*^9, 3.724471243073423*^9}, {3.724471282106525*^9, 3.724471282307459*^9}, { 3.724471828313918*^9, 3.724471852982109*^9}, {3.724510926042297*^9, 3.724510971741112*^9}, {3.725418025707011*^9, 3.725418132591786*^9}, { 3.725418186497287*^9, 3.725418198564393*^9}, {3.725418240702896*^9, 3.7254182427078357`*^9}, 3.725418272982128*^9, {3.725418374214787*^9, 3.72541838162965*^9}, {3.725418413584223*^9, 3.725418415023783*^9}, { 3.725418877464322*^9, 3.725418956995327*^9}, {3.725418994143058*^9, 3.725419023781932*^9}, {3.7254193126441197`*^9, 3.725419396185589*^9}, { 3.725432214366968*^9, 3.725432235836476*^9}, {3.725432289467839*^9, 3.725432377695853*^9}, {3.726401253407773*^9, 3.7264012633218203`*^9}, { 3.726401405512204*^9, 3.7264014071162825`*^9}, {3.72640144393233*^9, 3.726401446298113*^9}, {3.726401485648699*^9, 3.7264016429140606`*^9}, { 3.726401682872032*^9, 3.726401718837957*^9}, {3.726401899357152*^9, 3.726401901021258*^9}, {3.7264019889732013`*^9, 3.726401991903804*^9}, { 3.726402159599182*^9, 3.7264021616913195`*^9}, {3.726402447890601*^9, 3.726402463475356*^9}, {3.747040699533342*^9, 3.747040836329057*^9}, { 3.74710616636937*^9, 3.747106214420479*^9}, {3.747106746963822*^9, 3.747106834372692*^9}, {3.747106895987136*^9, 3.747106915079779*^9}, { 3.747106958889848*^9, 3.747106998742816*^9}, 3.747107044736511*^9, { 3.747107087544964*^9, 3.747107089357545*^9}, {3.747113800248985*^9, 3.747113811418234*^9}, {3.747113850002859*^9, 3.747113892211589*^9}, 3.747114310142033*^9, {3.74711434246253*^9, 3.747114343868453*^9}, { 3.747114874445833*^9, 3.747114931572899*^9}, {3.74711503534515*^9, 3.747115041218787*^9}, {3.7471156330947733`*^9, 3.747115638702848*^9}, { 3.747116431240279*^9, 3.747116433552243*^9}, {3.747116480822291*^9, 3.747116610432179*^9}, {3.747116647876696*^9, 3.74711671028353*^9}, { 3.74865997476248*^9, 3.748660010198181*^9}, {3.748660042393119*^9, 3.748660069138746*^9}, {3.748660177148834*^9, 3.748660251952998*^9}, { 3.748660498171374*^9, 3.748660508798976*^9}, {3.7486929231374454`*^9, 3.748692934238252*^9}, {3.748692973777675*^9, 3.7486929903337507`*^9}, { 3.7486930264117804`*^9, 3.748693179945371*^9}, {3.748693249361241*^9, 3.748693272417321*^9}, 3.748693327628136*^9, 3.748693923751941*^9, { 3.7486939698417687`*^9, 3.748693970012789*^9}, {3.748694008103215*^9, 3.748694075714235*^9}, {3.7486942326282196`*^9, 3.748694304005413*^9}, { 3.748695188924658*^9, 3.748695190701332*^9}, {3.7486952252639275`*^9, 3.748695310476059*^9}, {3.748695384723056*^9, 3.748695811151685*^9}, { 3.748695876602944*^9, 3.7486959097256*^9}, {3.748696422965355*^9, 3.748696457868487*^9}, 3.7487454821763644`*^9, {3.754056041592442*^9, 3.754056060140006*^9}, {3.754056347029888*^9, 3.754056351327733*^9}, { 3.754056854382514*^9, 3.754056862089791*^9}, {3.7540569630968127`*^9, 3.7540569674225426`*^9}, {3.7540570759551015`*^9, 3.7540570801772118`*^9}, {3.754057135076915*^9, 3.754057152630065*^9}, { 3.7540571929041653`*^9, 3.754057236529367*^9}, {3.754057397662035*^9, 3.7540574231277227`*^9}, {3.754057456018913*^9, 3.754057472695193*^9}, { 3.754057518721182*^9, 3.754057583163235*^9}, 3.754057631189864*^9, { 3.7540576696626444`*^9, 3.754057832330846*^9}, {3.754057890394717*^9, 3.7540579289766736`*^9}, {3.7540580507949033`*^9, 3.754058051382696*^9}, { 3.754097890432112*^9, 3.754097919134088*^9}, {3.7540979931579046`*^9, 3.7540979999909244`*^9}, {3.754098036324529*^9, 3.754098095196913*^9}, { 3.754098127982014*^9, 3.75409817510705*^9}, {3.7540983080840054`*^9, 3.754098388741669*^9}, {3.754098433086689*^9, 3.754098448771526*^9}, { 3.754098518107086*^9, 3.754098541874659*^9}, {3.7540985740895276`*^9, 3.7540985855956683`*^9}, {3.754098632933464*^9, 3.754098651832582*^9}, 3.754098694943287*^9, {3.7540987996641817`*^9, 3.7540988293199515`*^9}, { 3.754098922368672*^9, 3.754098946956335*^9}, {3.7541009656118875`*^9, 3.754100966064907*^9}, {3.75412607944704*^9, 3.754126112298939*^9}, { 3.7541261993178277`*^9, 3.7541263394250636`*^9}, {3.7541264153576813`*^9, 3.754126455276905*^9}, {3.754126497220241*^9, 3.754126628008542*^9}, { 3.754126661315868*^9, 3.754126719835323*^9}, 3.754126796164828*^9, { 3.754126828833903*^9, 3.754126890819979*^9}, {3.754126943227796*^9, 3.754127112269927*^9}, {3.754127155311608*^9, 3.754127199236007*^9}, { 3.754127253229822*^9, 3.754127273225658*^9}, {3.754127329226965*^9, 3.7541273643065696`*^9}, {3.75412771758806*^9, 3.754127721159455*^9}, { 3.754127900093892*^9, 3.754127900428954*^9}, {3.755536568808188*^9, 3.7555368169423976`*^9}, {3.756619425296663*^9, 3.756619503340211*^9}, { 3.760607372761119*^9, 3.7606074044677906`*^9}, {3.763903763582767*^9, 3.763903966901358*^9}, {3.7639040036658916`*^9, 3.763904035274949*^9}, { 3.763904149198217*^9, 3.763904149842008*^9}, {3.764129506629578*^9, 3.764129629106339*^9}, 3.764129767145048*^9, {3.764129842917159*^9, 3.76412986403855*^9}, {3.764129953949529*^9, 3.7641299638308244`*^9}, { 3.764130242057335*^9, 3.764130264998592*^9}, {3.764130412156185*^9, 3.764130517277567*^9}, {3.764905400658563*^9, 3.764905448073204*^9}, { 3.7661917992707295`*^9, 3.7661918111029916`*^9}, {3.766193705847564*^9, 3.766193730852714*^9}, {3.766288732159727*^9, 3.7662887421574106`*^9}, 3.7741665150318885`*^9, {3.774166583333705*^9, 3.774166634692407*^9}, { 3.7741666777885046`*^9, 3.7741667276801615`*^9}, {3.774168184384497*^9, 3.774168277409542*^9}, {3.774237957645171*^9, 3.7742379961381702`*^9}, { 3.774238228752078*^9, 3.774238320348544*^9}, {3.7742384167748957`*^9, 3.774238438885627*^9}, {3.774238499096892*^9, 3.7742385555597315`*^9}, { 3.7742385931019473`*^9, 3.774238669464537*^9}, {3.774239332037335*^9, 3.774239458024664*^9}, {3.774239612785857*^9, 3.774239652432119*^9}, { 3.774239693440149*^9, 3.774239749194436*^9}, {3.774239781513965*^9, 3.774239918344379*^9}, {3.774239993088747*^9, 3.7742399984000196`*^9}, { 3.774240080591405*^9, 3.7742403502486305`*^9}, {3.7742403925474215`*^9, 3.774240620075459*^9}, {3.7742406536016474`*^9, 3.774240771836528*^9}, { 3.774240802985832*^9, 3.7742408207850018`*^9}, {3.7742408510511465`*^9, 3.774240942030443*^9}, 3.7742409770366917`*^9, {3.7742410127101192`*^9, 3.774241115672659*^9}, {3.774241148976334*^9, 3.774241206599957*^9}, { 3.77518955636145*^9, 3.775189557474781*^9}, {3.775189607619177*^9, 3.7751897799277*^9}, {3.777096408797056*^9, 3.7770964403195615`*^9}, { 3.777096485036745*^9, 3.7770965029912896`*^9}, 3.784700029077929*^9, { 3.7866769257536707`*^9, 3.7866769613037777`*^9}, {3.787305359941341*^9, 3.7873054240368595`*^9}, {3.78730664769903*^9, 3.78730665126622*^9}, { 3.787306682536891*^9, 3.787306955112986*^9}, {3.787307227184967*^9, 3.787307234638444*^9}, {3.787307265472159*^9, 3.787307267764142*^9}, { 3.787308049692085*^9, 3.787308062757756*^9}, {3.787313297531843*^9, 3.787313308431161*^9}, 3.787313392724465*^9, 3.787628244885955*^9, 3.787651422801089*^9, {3.787651471253007*^9, 3.787651471569529*^9}, { 3.787653689017965*^9, 3.78765368994078*^9}, {3.843283788165268*^9, 3.843283887212312*^9}, {3.843283923901783*^9, 3.843283925305036*^9}, { 3.843283971324053*^9, 3.8432840064768605`*^9}, {3.843284705110992*^9, 3.843284705510458*^9}, {3.8715241477883415`*^9, 3.871524228218049*^9}, { 3.871524559347787*^9, 3.871524575561017*^9}, {3.871525225491823*^9, 3.8715252312756543`*^9}, {3.8715252858775024`*^9, 3.8715253185721*^9}, { 3.871525441059702*^9, 3.871525493641071*^9}, {3.871525576927189*^9, 3.8715255872926817`*^9}, {3.871541617149444*^9, 3.8715416175306177`*^9}, { 3.879475340694683*^9, 3.879475390255388*^9}, 3.8934645475089855`*^9, 3.893464610678737*^9, {3.893464642938085*^9, 3.8934646694926505`*^9}, 3.894439594316308*^9, 3.894515296283434*^9, {3.894515533115449*^9, 3.89451559365526*^9}}, CellLabel-> "In[319]:=",ExpressionUUID->"289dedfc-1676-c14c-baed-dbe4726fe495"] }, Closed]], Cell[CellGroupData[{ Cell["STANDARDFORM etc. defs", "Subsection", CellChangeTimes->{{3.687518097184434*^9, 3.687518099119545*^9}, { 3.822370477924126*^9, 3.8223704849224677`*^9}, {3.847105064772148*^9, 3.847105066683985*^9}, {3.873766824778203*^9, 3.87376682767669*^9}},ExpressionUUID->"0a370220-1f6c-ce4f-a85a-\ 0e8420520b3c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"MEC", "-", "E1050", "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", "\[Delta]W_", "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", "\[Delta]W"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", "\[Delta]W_"}], "]"}], ":=", " ", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}], "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"DOFS", "[", "\[Delta]W", "]"}], "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"ELEMENTFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ELEMENTFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "frule", ",", "ind", ",", "\[Delta]ind"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ind", " ", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]ind", " ", "=", RowBox[{"Union", "[", RowBox[{"\[Delta]dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Delta]ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"frule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"FX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"FY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"FZ", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"Fz", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"MX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"MY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"My", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"MZ", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"Mz", "[", "any", "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]dof", " ", "/.", "frule"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ind", " ", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"dof", ",", RowBox[{"\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]ind", " ", "=", RowBox[{"Union", "[", RowBox[{"\[Delta]dof", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}], ",", RowBox[{ RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"{", "any", "}"}]}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uX", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]ux", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uY", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uy", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uZ", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]uz", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]X", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]x", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]y", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]Z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cases", "[", RowBox[{"\[Delta]dof", ",", RowBox[{"\[Delta]\[Theta]z", "[", RowBox[{"i", " ", "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Delta]ind"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"DISP", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "ind", ",", "\[Delta]ind"}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"TMEC", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], ",", RowBox[{"{", "dof", "}"}]}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"EVENT", ",", RowBox[{"{", RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STAB", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", "equ", "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]WW_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", "equ", "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"NONL", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "rule0"}], "}"}], ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "equ"}], "]"}], "]"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", "\[Delta]W_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "dof", ",", "\[Delta]dof", ",", "equ", ",", "dofall", ",", "dof0", ",", "dof2", ",", "KK", ",", "MM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]W", "]"}]}], ";", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]W", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb__", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", " ", "/.", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "KK"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof0", "]"}], ",", "\"\<+\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "MM"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof2", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Delta]WW", ",", "dof", ",", "\[Delta]dof", ",", "equ", ",", "dofall", ",", "dof0", ",", "dof2", ",", "KK", ",", "MM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]WW", "=", RowBox[{"Simplify", "[", RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"VIBR", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof", "=", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]dof", "=", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"equ", " ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", "\[Delta]dof", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dofall", "=", RowBox[{"Union", "[", RowBox[{"dof", " ", "/.", " ", RowBox[{ RowBox[{"anya_", "[", RowBox[{"anyb_", ",", RowBox[{"0", "|", "2"}]}], "]"}], "\[Rule]", RowBox[{"anya", "[", "anyb", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dof0", " ", "=", RowBox[{"dofall", " ", "/.", " ", RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dof2", " ", "=", RowBox[{"dofall", "/.", " ", RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"KK", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof0", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MM", " ", "=", RowBox[{"D", "[", RowBox[{"equ", ",", RowBox[{"{", "dof2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Delta]W = -\>\"", ",", SuperscriptBox[ RowBox[{"MatrixForm", "[", "\[Delta]dof", "]"}], "T"], ",", "\"\<(\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "KK"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof0", "]"}], ",", "\"\<+\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"-", "MM"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"MatrixForm", "[", "dof2", "]"}], ",", "\"\<-\>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"equ", " ", "/.", RowBox[{"Thread", "[", RowBox[{"dof", "\[Rule]", "0"}], "]"}]}], "]"}], ",", "\"\<)\>\""}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"TableForm", "[", RowBox[{"ele", ",", RowBox[{"TableDepth", "\[Rule]", "2"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", RowBox[{"Length", "[", "ele", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"TableForm", "[", RowBox[{"fun", ",", RowBox[{"TableDepth", "\[Rule]", "2"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{"#", "&"}], ",", RowBox[{"Length", "[", "fun", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\<{X,Y,Z}\>\"", ",", "\"\<{\!\(\*SubscriptBox[\(u\), \(X\)]\),\!\(\*SubscriptBox[\ \(u\), \(Y\)]\),\!\(\*SubscriptBox[\(u\), \(Z\)]\)}\>\"", ",", "\"\<{\!\(\*SubscriptBox[\(\[Theta]\), \ \(X\)]\),\!\(\*SubscriptBox[\(\[Theta]\), \(Y\)]\),\!\(\*SubscriptBox[\(\ \[Theta]\), \(Z\)]\)}\>\"", ",", "\"\<\[CurlyTheta]\>\""}], "}"}]}], "}"}]}]}], "]"}], "}"}]}], "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.687518152240584*^9, 3.68751815568078*^9}, {3.687520415742049*^9, 3.687520416720104*^9}, 3.68752138033622*^9, {3.687521416058263*^9, 3.687521421832593*^9}, { 3.688053601494135*^9, 3.688053602544136*^9}, {3.688053924504587*^9, 3.688053958964635*^9}, {3.688215750279041*^9, 3.6882158044791164`*^9}, { 3.6882622853518825`*^9, 3.688262377292012*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, {3.688305554797832*^9, 3.688305558147838*^9}, 3.688555694008679*^9, {3.688789105682941*^9, 3.688789118792959*^9}, { 3.689569235320521*^9, 3.68956924151053*^9}, {3.689569289010597*^9, 3.689569306910621*^9}, 3.689569382250727*^9, {3.689569427000789*^9, 3.689569448250819*^9}, 3.689569491990887*^9, {3.6895695387109556`*^9, 3.689569578131008*^9}, {3.689569627301077*^9, 3.689569645991103*^9}, { 3.689569740191235*^9, 3.689569770221278*^9}, 3.689569801121321*^9, { 3.689744714260333*^9, 3.689744765250405*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, {3.689745080870846*^9, 3.6897450850308523`*^9}, { 3.689931309632269*^9, 3.689931462812485*^9}, {3.689931528902578*^9, 3.6899315295525794`*^9}, 3.689931777782925*^9, {3.689931815392978*^9, 3.6899319421931567`*^9}, {3.689932077363344*^9, 3.689932088103359*^9}, { 3.689932151873448*^9, 3.689932152503449*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, {3.6902010125655856`*^9, 3.6902010371956205`*^9}, { 3.690201134205756*^9, 3.690201139305763*^9}, {3.6902012251758833`*^9, 3.6902012529259253`*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.690201375856095*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.692602139325318*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.692602334505591*^9, 3.692602487035804*^9}, { 3.692602578835933*^9, 3.692602643676024*^9}, {3.692602680546076*^9, 3.692602793886234*^9}, {3.692603389849067*^9, 3.69260341914911*^9}, { 3.692603470019181*^9, 3.692603497029218*^9}, {3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, {3.692603859309725*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, { 3.692623143940215*^9, 3.692623241230352*^9}, {3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, { 3.692690303558846*^9, 3.692690322168873*^9}, {3.692690954409758*^9, 3.692691002209824*^9}, {3.6927712759197345`*^9, 3.692771314639788*^9}, { 3.6931903688317866`*^9, 3.693190412011845*^9}, {3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.693190766622344*^9}, { 3.6931908229324236`*^9, 3.69319083728244*^9}, {3.693190970752628*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, { 3.693380931925725*^9, 3.6933809742257843`*^9}, {3.693381048845889*^9, 3.69338104916589*^9}, {3.693717279698076*^9, 3.693717296248099*^9}, 3.694083069643264*^9, {3.694265186313383*^9, 3.694265201753404*^9}, { 3.6943214452576456`*^9, 3.694321472597683*^9}, {3.694321554517798*^9, 3.694321586987844*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, { 3.6994213310795765`*^9, 3.699421377879643*^9}, 3.6994215436398745`*^9, { 3.7242984497704906`*^9, 3.724298492333001*^9}, {3.72441256854047*^9, 3.724412588406049*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, { 3.724423800027227*^9, 3.724423808981761*^9}, {3.724423851341444*^9, 3.72442385406735*^9}, 3.7531742584901404`*^9, {3.75317433551407*^9, 3.753174346315694*^9}, {3.753174488350924*^9, 3.753174521049276*^9}, { 3.753174634967907*^9, 3.753174647293105*^9}, {3.753175721657942*^9, 3.753175725529492*^9}, {3.755718202522964*^9, 3.7557182030038967`*^9}, { 3.756297307135029*^9, 3.756297308897887*^9}, {3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, { 3.773991430575511*^9, 3.773991431632044*^9}, {3.782112624852463*^9, 3.7821126618917875`*^9}, {3.782112828737658*^9, 3.782113058088851*^9}, 3.782113133221128*^9, {3.78230654015934*^9, 3.782306645788203*^9}, { 3.7823084511158514`*^9, 3.7823084719170256`*^9}, {3.782308968141115*^9, 3.782309014159138*^9}, {3.782309052990318*^9, 3.782309098299096*^9}, { 3.7834165730387535`*^9, 3.783416574885394*^9}, {3.783417720636022*^9, 3.783417723580012*^9}, {3.783417808352388*^9, 3.783417811301102*^9}, { 3.78341790496704*^9, 3.783417957966066*^9}, {3.783420547752492*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, { 3.783420731072624*^9, 3.783420767852456*^9}, {3.783420801192772*^9, 3.783420818492618*^9}, {3.783420890092199*^9, 3.783420899712354*^9}, { 3.7834209626227217`*^9, 3.783420995272684*^9}, 3.783421034482338*^9, { 3.7834210681022663`*^9, 3.7834210798275805`*^9}, {3.783421113532735*^9, 3.783421177198878*^9}, {3.783421696697568*^9, 3.783421697102858*^9}, { 3.7834218696329083`*^9, 3.783421906748032*^9}, {3.7883262853436*^9, 3.7883263022151394`*^9}, {3.7883263694714804`*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.788326475946568*^9}, { 3.788326638117265*^9, 3.788326675253009*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, {3.788327257534025*^9, 3.78832726870627*^9}, { 3.788575008576598*^9, 3.788575085209267*^9}, {3.788575203932117*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.788677156385427*^9}, { 3.788677419098531*^9, 3.788677691450259*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.788678231166575*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, { 3.788678404399561*^9, 3.788678410344158*^9}, {3.788678513776554*^9, 3.7886785139327545`*^9}, {3.788749250626614*^9, 3.788749271502985*^9}, { 3.788749453706733*^9, 3.788749457657827*^9}, {3.7888494712317395`*^9, 3.788849476626989*^9}, {3.789012150355903*^9, 3.789012181832608*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, { 3.7901289319915466`*^9, 3.790128937645911*^9}, {3.790128972298277*^9, 3.790128973869923*^9}, {3.814682368207017*^9, 3.814682369609891*^9}, { 3.814682474988094*^9, 3.8146825013459*^9}, {3.814682565009147*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.814682709438146*^9}, { 3.814682742736359*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, {3.814683865904718*^9, 3.814683921031538*^9}, { 3.817549572368679*^9, 3.817549648245356*^9}, {3.822369804033628*^9, 3.8223698883671684`*^9}, {3.822370507521001*^9, 3.822370508120399*^9}, { 3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.861264607827531*^9}, 3.873766675104046*^9}, CellLabel-> "In[333]:=",ExpressionUUID->"b5ea20ce-00ac-4841-b81e-5958ec46c8a1"] }, Closed]], Cell[CellGroupData[{ Cell["MESH etc. defs", "Subsection", CellChangeTimes->{{3.87376670252443*^9, 3.873766708211823*^9}, { 3.873766815230051*^9, 3.873766820478841*^9}},ExpressionUUID->"9df7feda-30e7-834b-97e8-\ 6698532a766d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MEC", "-", "E1050"}], ",", " ", RowBox[{"MEC", "-", RowBox[{"E8001", " ", "defs"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MESH", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"pick", ",", "labs", ",", "crds", ",", "\[ScriptCapitalR]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pick", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"AllTrue", "[", RowBox[{"#", ",", "PossibleZeroQ"}], "]"}], "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"crds", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"labs", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"MeshRegion", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "crds"}], "]"}], "]"}], ",", RowBox[{"ele", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Style", "[", RowBox[{"1", ",", "Thin"}], "]"}]}], "]"}], ",", RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", "0"}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", "labs"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DISP", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pick", ",", "labs", ",", "crds", ",", "\[ScriptCapitalR]", ",", "range", ",", "off"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pick", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"AllTrue", "[", RowBox[{"#", ",", "PossibleZeroQ"}], "]"}], "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"crds", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"labs", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"range", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"MinMax", "[", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "#"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2", ",", "#"}], "]"}], "]"}]}], ")"}], "]"}], "&"}], ",", "crds"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"off", "=", RowBox[{"Norm", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ",", "range"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"range", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"off", "/", "5"}]}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"off", "/", "5"}]}]}], "}"}], "&"}], ",", "range"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"MeshRegion", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "crds"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2", ",", "crds"}], "]"}], "]"}]}], ",", RowBox[{"ele", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Style", "[", RowBox[{"1", ",", "Thin"}], "]"}]}], "]"}], ",", RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", "0"}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", "labs"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "range"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DISP3D", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[ScriptCapitalR]", ",", "scale"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", "=", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}], "/", RowBox[{"Norm", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], "/", "5"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"MeshRegion", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}]}], ",", RowBox[{"ele", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", RowBox[{"Style", "[", RowBox[{"1", ",", "Thin"}], "]"}]}], "]"}], ",", RowBox[{"HighlightMesh", "[", RowBox[{"\[ScriptCapitalR]", ",", "0"}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"STRESS", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "PLANESTRESS"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "===", "PLANESTRAIN"}], ")"}]}], ",", RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", "#", ",", "fun"}], "]"}], ",", "None"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"COLORFUNCTION", "[", RowBox[{"min_", ",", "max_"}], "]"}], ":=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "<", "0"}], ",", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "LightGray"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "-", "min"}], ")"}], "/", RowBox[{"(", RowBox[{"0", "-", "min"}], ")"}]}]}], "]"}], ",", RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{"LightGray", ",", "Red"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "-", "0"}], ")"}], "/", RowBox[{"(", RowBox[{"max", "-", "0"}], ")"}]}]}], "]"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"stress", " ", "calculations"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DISP", "[", RowBox[{ RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], ",", "exp_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pick", ",", "labs", ",", "crds", ",", "srule", ",", "val", ",", "min", ",", "max", ",", "grule"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pick", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Not", "[", RowBox[{"AllTrue", "[", RowBox[{"#", ",", "PossibleZeroQ"}], "]"}], "]"}], "&"}], ",", RowBox[{"Transpose", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"crds", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"labs", "=", RowBox[{"Pick", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "pick"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"srule", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "[", RowBox[{"STRES", ",", "#", ",", "fun"}], "]"}], "&"}], ",", "ele"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"val", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"exp", " ", "/.", "#"}], "&"}], ",", "srule"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "val", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}], "=", RowBox[{"MinMax", "[", "val", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"grule", " ", ":=", RowBox[{ RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "\[RuleDelayed]", " ", RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"COLORFUNCTION", "[", RowBox[{"min", ",", "max"}], "]"}], "[", RowBox[{"val", "[", RowBox[{"[", "e", "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"ele", "[", RowBox[{"[", RowBox[{"e", ",", "3"}], "]"}], "]"}], "/.", "grule"}]}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "1", ",", RowBox[{"Length", "[", "ele", "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", "labs"}]}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}], " ", "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.443930973126174*^9, {3.4771023549018*^9, 3.4771023808445997`*^9}, { 3.4771024577682*^9, 3.4771025046618*^9}, {3.4771063565654*^9, 3.4771063705898*^9}, 3.4771089762209997`*^9, 3.477109006645*^9, { 3.4771109395810003`*^9, 3.4771109526226*^9}, {3.477110989427*^9, 3.4771110302522*^9}, {3.4771110800372*^9, 3.4771111191308*^9}, { 3.4771220486066*^9, 3.4771220663286*^9}, {3.4771317865394*^9, 3.477131819221401*^9}, {3.4771323345362*^9, 3.477132377639*^9}, { 3.630489883760623*^9, 3.630489885414226*^9}, {3.631409232246135*^9, 3.631409318077486*^9}, {3.631409429477279*^9, 3.631409430304083*^9}, { 3.631409593121568*^9, 3.6314095963195744`*^9}, {3.631410508952379*^9, 3.631410515504389*^9}, 3.631435133305333*^9, {3.631435355203025*^9, 3.6314353561500793`*^9}, 3.6314356018121305`*^9, 3.631435754368856*^9, 3.631435796315255*^9, {3.63143606319652*^9, 3.631436069549884*^9}, { 3.634788469881641*^9, 3.63478847685104*^9}, {3.634795409838584*^9, 3.634795414159831*^9}, {3.634795660332912*^9, 3.634795675947805*^9}, { 3.634796217815798*^9, 3.634796228733423*^9}, {3.6347962930030985`*^9, 3.6347963097820582`*^9}, {3.63479634495407*^9, 3.6347963538665795`*^9}, { 3.6347967044436316`*^9, 3.634796722207649*^9}, {3.6348910182399282`*^9, 3.634891070322907*^9}, {3.634891202082443*^9, 3.63489120569665*^9}, { 3.635129073304618*^9, 3.635129092760731*^9}, {3.6351291514160852`*^9, 3.635129156271364*^9}, {3.6351296027379*^9, 3.635129640630067*^9}, { 3.635129676631127*^9, 3.6351296770091476`*^9}, {3.635133864772954*^9, 3.635134070316711*^9}, {3.635134178738912*^9, 3.635134204883407*^9}, { 3.6351532590142465`*^9, 3.6351534908115044`*^9}, {3.635310869490954*^9, 3.635310875829316*^9}, {3.657768370048919*^9, 3.6577683714841213`*^9}, { 3.685359398295851*^9, 3.6853593994858527`*^9}, 3.685359462505941*^9, { 3.685359541326051*^9, 3.685359573806097*^9}, {3.687438744529405*^9, 3.687438822019511*^9}, 3.687438945059684*^9, {3.6874389956197543`*^9, 3.687439040599818*^9}, {3.6874391238499336`*^9, 3.6874391937200317`*^9}, { 3.687439224470075*^9, 3.687439453750396*^9}, {3.687439572800562*^9, 3.68743958546058*^9}, {3.68743962102063*^9, 3.687439653600675*^9}, { 3.687439753580816*^9, 3.687439766710835*^9}, 3.6874457948947306`*^9, { 3.687446148195225*^9, 3.687446156495238*^9}, {3.687518152240584*^9, 3.68751815568078*^9}, {3.687520415742049*^9, 3.687520416720104*^9}, 3.68752138033622*^9, {3.687521416058263*^9, 3.687521421832593*^9}, { 3.688053601494135*^9, 3.688053602544136*^9}, {3.688053924504587*^9, 3.688053958964635*^9}, {3.688215750279041*^9, 3.6882158044791164`*^9}, { 3.6882622853518825`*^9, 3.688262377292012*^9}, {3.688262410942058*^9, 3.688262438992098*^9}, {3.688305554797832*^9, 3.688305558147838*^9}, 3.688555694008679*^9, {3.688789105682941*^9, 3.688789118792959*^9}, { 3.689569235320521*^9, 3.68956924151053*^9}, {3.689569289010597*^9, 3.689569306910621*^9}, 3.689569382250727*^9, {3.689569427000789*^9, 3.689569448250819*^9}, 3.689569491990887*^9, {3.6895695387109556`*^9, 3.689569578131008*^9}, {3.689569627301077*^9, 3.689569645991103*^9}, { 3.689569740191235*^9, 3.689569770221278*^9}, 3.689569801121321*^9, { 3.689744714260333*^9, 3.689744765250405*^9}, {3.689744965010684*^9, 3.689744999060732*^9}, {3.689745080870846*^9, 3.6897450850308523`*^9}, { 3.689931309632269*^9, 3.689931462812485*^9}, {3.689931528902578*^9, 3.6899315295525794`*^9}, 3.689931777782925*^9, {3.689931815392978*^9, 3.6899319421931567`*^9}, {3.689932077363344*^9, 3.689932088103359*^9}, { 3.689932151873448*^9, 3.689932152503449*^9}, {3.690167105883365*^9, 3.690167146283422*^9}, {3.6902010125655856`*^9, 3.6902010371956205`*^9}, { 3.690201134205756*^9, 3.690201139305763*^9}, {3.6902012251758833`*^9, 3.6902012529259253`*^9}, {3.690201324926023*^9, 3.690201330666031*^9}, { 3.690201373796091*^9, 3.690201375856095*^9}, {3.692601858964926*^9, 3.692601979185094*^9}, {3.692602032125168*^9, 3.692602087355245*^9}, { 3.692602118515289*^9, 3.692602139325318*^9}, {3.6926022282954426`*^9, 3.6926022417854614`*^9}, {3.692602334505591*^9, 3.692602487035804*^9}, { 3.692602578835933*^9, 3.692602643676024*^9}, {3.692602680546076*^9, 3.692602793886234*^9}, {3.692603389849067*^9, 3.69260341914911*^9}, { 3.692603470019181*^9, 3.692603497029218*^9}, {3.692603554029299*^9, 3.692603577969332*^9}, 3.692603688499487*^9, {3.692603859309725*^9, 3.692603862659731*^9}, {3.692604812853061*^9, 3.692604831743088*^9}, { 3.692623143940215*^9, 3.692623241230352*^9}, {3.692690175958668*^9, 3.692690189128687*^9}, {3.6926902468687677`*^9, 3.692690268088797*^9}, { 3.692690303558846*^9, 3.692690322168873*^9}, {3.692690954409758*^9, 3.692691002209824*^9}, {3.6927712759197345`*^9, 3.692771314639788*^9}, { 3.6931903688317866`*^9, 3.693190412011845*^9}, {3.693190453611903*^9, 3.693190645072171*^9}, {3.693190734522297*^9, 3.693190766622344*^9}, { 3.6931908229324236`*^9, 3.69319083728244*^9}, {3.693190970752628*^9, 3.693190977632637*^9}, {3.693191099552808*^9, 3.693191167062902*^9}, { 3.693380931925725*^9, 3.6933809742257843`*^9}, {3.693381048845889*^9, 3.69338104916589*^9}, {3.693717279698076*^9, 3.693717296248099*^9}, 3.694083069643264*^9, {3.694265186313383*^9, 3.694265201753404*^9}, { 3.6943214452576456`*^9, 3.694321472597683*^9}, {3.694321554517798*^9, 3.694321586987844*^9}, {3.694321622098892*^9, 3.6943216224888935`*^9}, 3.6994204614383593`*^9, {3.699421287129515*^9, 3.6994212950795264`*^9}, { 3.6994213310795765`*^9, 3.699421377879643*^9}, 3.6994215436398745`*^9, { 3.7242984497704906`*^9, 3.724298492333001*^9}, {3.72441256854047*^9, 3.724412588406049*^9}, {3.724423663595652*^9, 3.7244236935801315`*^9}, { 3.724423800027227*^9, 3.724423808981761*^9}, {3.724423851341444*^9, 3.72442385406735*^9}, 3.7531742584901404`*^9, {3.75317433551407*^9, 3.753174346315694*^9}, {3.753174488350924*^9, 3.753174521049276*^9}, { 3.753174634967907*^9, 3.753174647293105*^9}, {3.753175721657942*^9, 3.753175725529492*^9}, {3.755718202522964*^9, 3.7557182030038967`*^9}, { 3.756297307135029*^9, 3.756297308897887*^9}, {3.7606708035908995`*^9, 3.7606708139790516`*^9}, {3.760670898506214*^9, 3.760670900521375*^9}, { 3.773991430575511*^9, 3.773991431632044*^9}, {3.782112624852463*^9, 3.7821126618917875`*^9}, {3.782112828737658*^9, 3.782113058088851*^9}, 3.782113133221128*^9, {3.78230654015934*^9, 3.782306645788203*^9}, { 3.7823084511158514`*^9, 3.7823084719170256`*^9}, {3.782308968141115*^9, 3.782309014159138*^9}, {3.782309052990318*^9, 3.782309098299096*^9}, { 3.7834165730387535`*^9, 3.783416574885394*^9}, {3.783417720636022*^9, 3.783417723580012*^9}, {3.783417808352388*^9, 3.783417811301102*^9}, { 3.78341790496704*^9, 3.783417957966066*^9}, {3.783420547752492*^9, 3.783420592682665*^9}, {3.7834206239423256`*^9, 3.783420694447334*^9}, { 3.783420731072624*^9, 3.783420767852456*^9}, {3.783420801192772*^9, 3.783420818492618*^9}, {3.783420890092199*^9, 3.783420899712354*^9}, { 3.7834209626227217`*^9, 3.783420995272684*^9}, 3.783421034482338*^9, { 3.7834210681022663`*^9, 3.7834210798275805`*^9}, {3.783421113532735*^9, 3.783421177198878*^9}, {3.783421696697568*^9, 3.783421697102858*^9}, { 3.7834218696329083`*^9, 3.783421906748032*^9}, {3.7883262853436*^9, 3.7883263022151394`*^9}, {3.7883263694714804`*^9, 3.788326373049384*^9}, 3.788326407340768*^9, {3.788326462030433*^9, 3.788326475946568*^9}, { 3.788326638117265*^9, 3.788326675253009*^9}, {3.78832683682738*^9, 3.788326853529421*^9}, {3.788327257534025*^9, 3.78832726870627*^9}, { 3.788575008576598*^9, 3.788575085209267*^9}, {3.788575203932117*^9, 3.7885752254012146`*^9}, {3.788677105989899*^9, 3.788677156385427*^9}, { 3.788677419098531*^9, 3.788677691450259*^9}, {3.788677863953772*^9, 3.788677873982659*^9}, {3.788677972296945*^9, 3.7886779751198874`*^9}, { 3.788678104512977*^9, 3.788678132702388*^9}, {3.788678229588771*^9, 3.788678231166575*^9}, {3.7886782945295157`*^9, 3.7886783636952543`*^9}, { 3.788678404399561*^9, 3.788678410344158*^9}, {3.788678513776554*^9, 3.7886785139327545`*^9}, {3.788749250626614*^9, 3.788749271502985*^9}, { 3.788749453706733*^9, 3.788749457657827*^9}, {3.7888494712317395`*^9, 3.788849476626989*^9}, {3.789012150355903*^9, 3.789012181832608*^9}, 3.789567712832692*^9, {3.790128896256201*^9, 3.790128897703824*^9}, { 3.7901289319915466`*^9, 3.790128937645911*^9}, {3.790128972298277*^9, 3.790128973869923*^9}, {3.814682368207017*^9, 3.814682369609891*^9}, { 3.814682474988094*^9, 3.8146825013459*^9}, {3.814682565009147*^9, 3.814682574936365*^9}, {3.814682678090005*^9, 3.814682709438146*^9}, { 3.814682742736359*^9, 3.8146827504312325`*^9}, {3.814682781533187*^9, 3.814682798049752*^9}, {3.814683865904718*^9, 3.814683921031538*^9}, { 3.817549572368679*^9, 3.817549648245356*^9}, {3.822369804033628*^9, 3.8223698883671684`*^9}, {3.822370507521001*^9, 3.822370508120399*^9}, { 3.822370624230193*^9, 3.8223706400618677`*^9}, {3.8612646064211287`*^9, 3.861264607827531*^9}, 3.873766675104046*^9, {3.873766838637391*^9, 3.873766871792037*^9}, {3.9093699093028593`*^9, 3.909369923155722*^9}}, CellLabel-> "In[351]:=",ExpressionUUID->"96d55f1b-119e-6a41-92f5-c4294d023cb7"] }, Closed]], Cell[CellGroupData[{ Cell["POST defs", "Subsection",ExpressionUUID->"6dfce38a-e7a9-6c4e-9e1d-b1029eeadde6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"SHOW", ",", "GRAPH"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"box", " ", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], "*", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"jointsize", " ", "=", "0.02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", "1."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aspectratio", "=", RowBox[{"1", "/", "4"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PRINT", "[", RowBox[{"label_", ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Print", "[", RowBox[{"label", ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"ele", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"fun", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PRINT", "[", RowBox[{"label_", ",", RowBox[{"{", "tab_", "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Print", "[", RowBox[{"label", ",", "\"\< \>\"", ",", RowBox[{"MatrixForm", "[", RowBox[{"tab", ",", RowBox[{"TableDepth", "\[Rule]", "2"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{"var_", ",", "rule_", ",", "time_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "ne", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", RowBox[{"Length", "[", "time", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ne", " ", "=", RowBox[{"Length", "[", "var", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"time", "[", RowBox[{"[", "ii", "]"}], "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"var", "[", RowBox[{"[", "jj", "]"}], "]"}], " ", "/.", " ", RowBox[{"rule", "[", RowBox[{"[", "ii", "]"}], "]"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"sol", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", RowBox[{"AspectRatio", "\[Rule]", "aspectratio"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "ne"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"MODE", ",", "step_", ",", "time_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"funin", " ", "/.", " ", RowBox[{"t", " ", "\[Rule]", " ", "#"}]}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "time"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"funin", " ", "/.", " ", "#"}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ")"}], "&"}], ",", "rule"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"DG", ",", "rule_", ",", "time_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "funin_"}], "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "localrule", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"localrule", " ", "=", RowBox[{"rule", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"b_", ",", "0"}], "]"}], "\[Rule]", " ", RowBox[{"a", "[", "b", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", " ", RowBox[{"(", RowBox[{"funin", " ", "/.", RowBox[{"localrule", "[", RowBox[{"[", "ii", "]"}], "]"}]}], ")"}]}], ";", " ", RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "rule", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "box"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SHOW", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "rule_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele", ",", RowBox[{"fun", " ", "/.", "rule"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"SphericalRegion", " ", "\[Rule]", " ", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "None"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "box"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", "#", "]"}], "&"}], ",", "ele"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}], ",", RowBox[{"{", "I1_", "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"kx_", ",", "ky_"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "ty_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"GLUET", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "}"}], ",", RowBox[{"{", RowBox[{"z1_", ",", "z2_", ",", "ty_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "I1_", ",", "I2_", ",", "I3_", ",", "I4_", ",", "I5_", ",", "I6_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "mm_", ",", "Ixx_", ",", "Iyy_", ",", "Izz_", ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "Fx_", ",", "Fy_", ",", "Fz_", ",", "Mx_", ",", "My_", ",", "Mz_"}], "}"}]}], "}"}], ",", RowBox[{"{", "I1_", "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "AA_", "}"}], ",", RowBox[{"{", "fx_", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], ",", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}]}], " ", "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "jointsize", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BAR", ",", "list_", ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], ",", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}]}], " ", "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "jointsize", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NC", "=", " ", RowBox[{"SHAPES11", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I2", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "ww"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "vv"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x"}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"{", "hx", "}"}], "/", "2"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NC", "=", " ", RowBox[{"SHAPES11", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}]}], "}"}], ",", "\[CapitalOmega]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I3", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NC", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I3", "]"}]}], ",", RowBox[{"-", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "ww"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "vv"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"BEAMT", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Irr_", ",", "Iyy_", ",", "Izz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_", ",", "fz_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ix", ",", "hx", ",", "iz", ",", "ty", ",", "tz", ",", "\[CapitalOmega]", ",", "NL", ",", "NC", ",", "XX", ",", "YY", ",", "ZZ", ",", "uu", ",", "vv", ",", "ww", ",", "\[Phi]\[Phi]", ",", "\[CapitalTheta]\[CapitalTheta]", ",", "\[Psi]\[Psi]", ",", "XYZN"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "hx"}], "}"}], "=", RowBox[{"UNIT", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "-", RowBox[{"XYZ", "[", "I1", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"CROSS", "[", RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ty", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Iyy", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tz", " ", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"12", "*", RowBox[{"Izz", "/", "AA"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", " ", RowBox[{"SHAPES1", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"{", "hx", "}"}], "/", "2"}], ",", RowBox[{"{", "hx", "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"XX", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "I1", "]"}], ",", RowBox[{"X", "[", "I2", "]"}], ",", RowBox[{"X", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"YY", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"Y", "[", "I1", "]"}], ",", RowBox[{"Y", "[", "I2", "]"}], ",", RowBox[{"Y", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ZZ", "=", " ", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"Z", "[", "I1", "]"}], ",", RowBox[{"Z", "[", "I2", "]"}], ",", RowBox[{"Z", "[", "I3", "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"uu", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"vv", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"ww", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"UVW", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"UVW", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]\[Phi]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"ix", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]\[CapitalTheta]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"iy", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";"}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]\[Psi]", "=", " ", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{ RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I1", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I2", "]"}]}], ",", RowBox[{"iz", ".", RowBox[{"\[Phi]\[CapitalTheta]\[Psi]", "[", "I3", "]"}]}]}], "}"}]}], "*", "scale"}]}], ";"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"XX", ",", "YY", ",", "ZZ"}], "}"}], "+", RowBox[{"ix", "*", "uu"}], "+", RowBox[{"iy", "*", RowBox[{"(", RowBox[{"y", "+", "vv"}], ")"}]}], "+", RowBox[{"iz", "*", RowBox[{"(", RowBox[{"z", "+", "ww"}], ")"}]}], "+", RowBox[{"CROSS", "[", RowBox[{ RowBox[{ RowBox[{"ix", "*", "\[Phi]\[Phi]"}], "+", RowBox[{"iy", "*", "\[CapitalTheta]\[CapitalTheta]"}], "+", RowBox[{"iz", "*", "\[Psi]\[Psi]"}]}], ",", RowBox[{ RowBox[{"iy", "*", "y"}], "+", RowBox[{"iz", "*", "z"}]}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Join", "[", " ", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"XYZN", "[", RowBox[{"ty", ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", "tz"}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{ RowBox[{"-", "ty"}], ",", RowBox[{"-", "tz"}]}], "]"}], ",", RowBox[{"XYZN", "[", RowBox[{"ty", ",", RowBox[{"-", "tz"}]}], "]"}]}], "}"}], " ", "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "20"}]}], "}"}]}], "]"}], " ", ",", RowBox[{"{", "Gray", "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"XYZN", "[", RowBox[{"0", ",", "0"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "xr"}]}], ",", RowBox[{"{", RowBox[{"xr", ",", "0", ",", "hx", ",", RowBox[{"hx", "/", "50"}]}], "}"}]}], "]"}], " ", "]"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_"}], "}"}]}], "}"}], "]"}], ":=", "\n", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Polygon", "[", " ", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I1"}], "}"}], "]"}], "+", " ", RowBox[{ RowBox[{"UVW", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I1"}], "}"}], "]"}], "*", "scale"}]}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I3", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPH", "[", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"EE_", ",", "\[Nu]\[Nu]_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", RowBox[{"{", "tt_", "}"}], ",", RowBox[{"{", RowBox[{"fx_", ",", "fy_"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I1_", ",", "I2_", ",", "I3_", ",", "I4_"}], "}"}]}], "}"}], "]"}], ":=", "\n", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Polygon", "[", " ", RowBox[{ RowBox[{"XYZ", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I4", ",", "I3", ",", "I1"}], "}"}], "]"}], "+", " ", RowBox[{ RowBox[{"UVW", "[", RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I4", ",", "I3", ",", "I1"}], "}"}], "]"}], "*", "scale"}]}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I1", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I1", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I2", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I2", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I3", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I3", "]"}], "*", "scale"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"XYZ", "[", "I4", "]"}], "+", RowBox[{ RowBox[{"UVW", "[", "I4", "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.443928906918974*^9, 3.443928929991374*^9}, { 3.443929321457774*^9, 3.443929366962974*^9}, {3.443929418474174*^9, 3.443929420377375*^9}, {3.443929488800974*^9, 3.4439294898461742`*^9}, { 3.443930075892174*^9, 3.443930078840575*^9}, {3.443930455096974*^9, 3.443930459527375*^9}, {3.443930823241374*^9, 3.443930856126174*^9}, { 3.443931095008974*^9, 3.443931111997374*^9}, {3.443931155724174*^9, 3.443931182946175*^9}, {3.443931237046974*^9, 3.443931263410974*^9}, 3.443931316388574*^9, {3.4439313583057756`*^9, 3.443931361909374*^9}, 3.443931433650975*^9, {3.443931519341774*^9, 3.443931526377375*^9}, { 3.443931599338574*^9, 3.443931599915775*^9}, {3.443931654312974*^9, 3.443931663626174*^9}, {3.443931727149374*^9, 3.443931743685377*^9}, { 3.443931775712174*^9, 3.443931903195374*^9}, {3.443932055919374*^9, 3.443932087025774*^9}, {3.443932118069774*^9, 3.443932213385774*^9}, { 3.443932558437174*^9, 3.443932580074374*^9}, {3.443932636171974*^9, 3.443932669587174*^9}, {3.4439327043127756`*^9, 3.443932734670374*^9}, { 3.443932795307575*^9, 3.443932797023574*^9}, {3.443933058434774*^9, 3.443933059136774*^9}, {3.443933108214374*^9, 3.443933109821174*^9}, 3.443933204232374*^9, 3.443933238567974*^9, {3.443933324492774*^9, 3.443933325272774*^9}, {3.443933359343174*^9, 3.443933475204375*^9}, 3.443933509758374*^9, {3.443933589006374*^9, 3.443933589786374*^9}, { 3.443933864798774*^9, 3.443933872177574*^9}, {3.443933907417974*^9, 3.443933934561974*^9}, 3.443934011001974*^9, {3.443934148547174*^9, 3.443934154599975*^9}, {3.443934196688774*^9, 3.443934199559174*^9}, 3.443934615985574*^9, {3.443934665562374*^9, 3.443934690335174*^9}, { 3.443934870905175*^9, 3.443934878829974*^9}, {3.443934986984774*^9, 3.443934989371574*^9}, {3.443936277005175*^9, 3.443936288673974*^9}, 3.443937073322974*^9, {3.4439453557081738`*^9, 3.443945414722974*^9}, { 3.4439454486685743`*^9, 3.443945493908574*^9}, {3.443945592813574*^9, 3.443945602610374*^9}, {3.444042647998565*^9, 3.444042677045765*^9}, 3.4444395736456003`*^9, {3.4444396926112003`*^9, 3.4444397018152*^9}, { 3.446429971702*^9, 3.4464299849308*^9}, {3.4466049799505997`*^9, 3.4466049833514*^9}, {3.4466050206822*^9, 3.446605089025799*^9}, { 3.4466051204285984`*^9, 3.4466052301902*^9}, 3.4771131915032*^9, { 3.5007268004706*^9, 3.500726806523401*^9}, {3.500727240203401*^9, 3.5007272528238*^9}, 3.5007273148494*^9, {3.6880535892141175`*^9, 3.6880535907041197`*^9}},ExpressionUUID->"c8487f2f-36ce-334d-bbc3-\ e57b502e0d07"] }, Closed]], Cell[CellGroupData[{ Cell["GRAPHICS defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.734064825975355*^9, 3.734064828569765*^9}, {3.745143805087549*^9, 3.7451438075158496`*^9}, { 3.750748347033251*^9, 3.750748355529561*^9}, {3.78956792066949*^9, 3.789567926782812*^9}, 3.789567958555616*^9},ExpressionUUID->"8557dd29-65d5-1e40-bc39-\ 5fb83244736f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"BEAM", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", "0.003"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "t_"}], "}"}], ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"CapForm", "[", "\"\\"", "]"}], ",", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], " ", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"ly_", ",", "lz_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"x", " ", "ix"}], "+", RowBox[{"y", " ", "iy"}], "+", RowBox[{"z", " ", "iz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], ".", "T"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", "yz"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ly", ",", RowBox[{"-", "lz"}]}], "}"}]}], "}"}], "/", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pp", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", RowBox[{"d_", ",", "b_", ",", "iy_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"iy", "*", RowBox[{"b", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"iy", "*", RowBox[{"b", "/", "2"}]}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[Rho]_", "}"}], ",", RowBox[{"{", RowBox[{"lx_", ",", "ly_", ",", "lz_", ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pnt", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", "lz"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "pnt"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "t_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"ELEMENT", "[", "nodes_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "node", ",", "n\[Alpha]", ",", "n\[Beta]", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Rho]", ",", "r\[Alpha]", ",", "r\[Beta]", ",", "rn", ",", "r0", ",", "n", ",", "NN", ",", "en", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "face1", ",", "face2", ",", "face3", ",", "face4", ",", "face5", ",", "face6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "n\[Beta]"}], "}"}], "=", RowBox[{"Dimensions", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"LAGRANGE", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n\[Alpha]", ",", "\[Alpha]"}], "}"}], ",", RowBox[{"{", RowBox[{"n\[Beta]", ",", "\[Beta]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"node", "=", RowBox[{"Flatten", "[", "nodes", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Alpha]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r\[Beta]", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rn", "=", RowBox[{"r\[Alpha]", "\[Cross]", "r\[Beta]"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{"rn", "/", RowBox[{"Norm", "[", "rn", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "\[Gamma]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", "5"}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Gamma]", "->", RowBox[{"t", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face1", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}]}]}], " ", ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face2", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Beta]", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"face3", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Beta]", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face4", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face5", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", " ", RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], ",", RowBox[{"t", "/", "2"}], ",", RowBox[{"t", "/", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "n"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"face6", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Polygon", "[", "face1", "]"}], ",", RowBox[{"Polygon", "[", "face2", "]"}], ",", RowBox[{"Polygon", "[", "face3", "]"}], ",", RowBox[{"Polygon", "[", "face4", "]"}], ",", RowBox[{"Polygon", "[", "face5", "]"}], ",", RowBox[{"Polygon", "[", "face6", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Tiny", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"node", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"h", ">", "0"}], ",", RowBox[{"L", ">", "0"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{"\[Xi]", "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "h", "*", "\[Xi]"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], " ", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "]"}], "*", "scale"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nonlinear", " ", "beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "EE_", "}"}], ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]h", ",", "h0", ",", "NN", ",", "r0", ",", "u", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}]}], "+", RowBox[{"\[Xi]", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h0", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "[", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r0"}], ".", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], "r0"}]}], "]"}], ",", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Xi]"}]}], ")"}]}], ",", RowBox[{"h0", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Xi]"}], ")"}], "2"], " ", "\[Xi]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "\[Xi]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], ",", RowBox[{"h0", " ", SuperscriptBox["\[Xi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[Xi]"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NN", ".", RowBox[{"Flatten", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"2", ";;", "3"}], ",", "3"}], "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"r0", "+", RowBox[{"{", RowBox[{"u", ",", "0", ",", "w"}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "1", ",", "0.05"}], "}"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_Real", ",", "FY_Real", ",", "FZ_Real"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "r0"}], "}"}], ",", RowBox[{ RowBox[{"L", "=", RowBox[{"Max", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"MinMax", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "i"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", RowBox[{ RowBox[{"L", "/", "10"}], "*", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "/", RowBox[{"Max", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "]"}], ",", RowBox[{"1", "/", "100"}]}], "]"}]}]}]}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, 3.734064961166012*^9, {3.7340649924958353`*^9, 3.73406500711212*^9}, { 3.734065080806053*^9, 3.7340651183371983`*^9}, {3.734071708226326*^9, 3.734071710654184*^9}, {3.734073364096154*^9, 3.734073544150256*^9}, { 3.734073575450083*^9, 3.734073641576833*^9}, {3.734073691752476*^9, 3.7340736979070516`*^9}, {3.734073822724674*^9, 3.734073837462171*^9}, { 3.7340739034480777`*^9, 3.734073926441464*^9}, {3.7340739810895205`*^9, 3.734073989147008*^9}, {3.734074207086114*^9, 3.7340742176873436`*^9}, { 3.7340743130118575`*^9, 3.7340743136367188`*^9}, 3.734147513058416*^9, { 3.734147568916667*^9, 3.734147593930639*^9}, {3.734147807211531*^9, 3.734147828748175*^9}, {3.734147861578357*^9, 3.73414788566536*^9}, 3.73414797622887*^9, {3.734148333604216*^9, 3.7341483447645597`*^9}, { 3.734148391271126*^9, 3.734148430462343*^9}, {3.7341486538224015`*^9, 3.734148655872754*^9}, {3.734780635679473*^9, 3.7347806548690386`*^9}, { 3.734780765771411*^9, 3.734780780367008*^9}, {3.734780999671393*^9, 3.734781008203253*^9}, {3.734842705355623*^9, 3.734842741187677*^9}, { 3.734842781191771*^9, 3.7348428157425947`*^9}, {3.7352741876350036`*^9, 3.735274188984682*^9}, {3.744334694805724*^9, 3.744334695602414*^9}, { 3.744334726907612*^9, 3.744334727704249*^9}, {3.744370855629226*^9, 3.744370857925562*^9}, {3.744371036055887*^9, 3.744371037368114*^9}, { 3.744372868147454*^9, 3.744372879644797*^9}, {3.744372944801361*^9, 3.744372946519667*^9}, 3.744427237889816*^9, {3.745026981644952*^9, 3.745026983254672*^9}, {3.746150345449201*^9, 3.746150396452739*^9}, { 3.746150497725909*^9, 3.7461505005843096`*^9}, {3.746150558945475*^9, 3.746150615776053*^9}, {3.746150984703903*^9, 3.74615099456116*^9}, { 3.750748457386656*^9, 3.75074846753214*^9}, {3.750748881443331*^9, 3.7507488854690557`*^9}, {3.750749005058874*^9, 3.750749023499106*^9}, { 3.7507501792180104`*^9, 3.750750248150975*^9}, {3.7507502795426817`*^9, 3.750750280787862*^9}, {3.7507503174292965`*^9, 3.750750366591306*^9}, { 3.750750397245795*^9, 3.750750418733373*^9}, {3.7507505335852304`*^9, 3.750750827854561*^9}, {3.7507508607353196`*^9, 3.750750874987307*^9}, { 3.750750906727187*^9, 3.750750925222521*^9}, {3.750751196480165*^9, 3.750751249809139*^9}, {3.760607688544195*^9, 3.7606077135130415`*^9}, 3.760608746337007*^9, {3.765086128848972*^9, 3.765086135973978*^9}, { 3.765086334880218*^9, 3.765086340797302*^9}, {3.853205819769258*^9, 3.8532058295626307`*^9}, {3.853205931683282*^9, 3.853205950913233*^9}, { 3.853206459482326*^9, 3.853206497658714*^9}, 3.8532069619654517`*^9}, CellLabel-> "In[357]:=",ExpressionUUID->"9d4582a2-740f-fc4e-ba91-2daaa6bc6204"] }, Closed]], Cell[CellGroupData[{ Cell["SHOW3D defs", "Subsection", CellChangeTimes->{{3.633775702268554*^9, 3.633775735178437*^9}, { 3.734064727558645*^9, 3.73406474989952*^9}, {3.745143810516633*^9, 3.745143811840375*^9}, {3.7606070835401344`*^9, 3.760607098895162*^9}, { 3.760607741638811*^9, 3.760607749187194*^9}, {3.760608900875217*^9, 3.760608911376729*^9}, {3.873767332289979*^9, 3.8737673340685797`*^9}},ExpressionUUID->"c7385d52-a799-b24e-bd43-\ c1083eff2130"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}], "]"}], ":=", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", "#", ",", "fun"}], " ", "]"}], "&"}], ",", "ele"}], "]"}], "]"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SHOW3D", "[", RowBox[{"MESH", ",", RowBox[{"{", RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MEC", "-", RowBox[{"E1050", " ", "and", " ", "MEC"}], "-", RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"typ_", ",", "pro_", ",", "nod_"}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"LINK", ",", "typ_", ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763803`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497177`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726163`*^9, 3.775189913786336*^9}, {3.7751899486865597`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374655`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, 3.914116660274355*^9}, CellLabel-> "In[367]:=",ExpressionUUID->"bcbd28e7-347d-8343-bb54-ad4d9984cdea"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"constraint", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763803`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497177`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726163`*^9, 3.775189913786336*^9}, {3.7751899486865597`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374655`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, { 3.914116660274355*^9, 3.914116676583498*^9}, {3.914116707937298*^9, 3.914116727973816*^9}}, CellLabel-> "In[372]:=",ExpressionUUID->"0ef0dcc6-80cc-4442-a4e4-6ff2db01bb81"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"force", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "r0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Max", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"MinMax", "[", RowBox[{"fun", "[", RowBox[{"[", RowBox[{";;", ",", "1", ",", "i"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", RowBox[{ RowBox[{"L", "/", "10"}], "*", RowBox[{ RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "/", RowBox[{"Max", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{"{", RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], "]"}], ",", RowBox[{"1", "/", "100"}]}], "]"}]}]}]}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m_", ",", "J_"}], "}"}], ",", RowBox[{"{", RowBox[{"ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"xyz_", ",", "mc_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "crd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "xyz"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"FORCEFORM", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Polygon", "[", RowBox[{"r", "[", RowBox[{"[", "#", "]"}], "]"}], "]"}], "&"}], ",", "mc"}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763803`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497177`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726163`*^9, 3.775189913786336*^9}, {3.7751899486865597`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374655`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, 3.891396723599313*^9, {3.914116371021158*^9, 3.9141163933273544`*^9}, { 3.914116660274355*^9, 3.914116676583498*^9}}, CellLabel-> "In[373]:=",ExpressionUUID->"97259b9f-40c5-ad44-9357-5ff41de46e9c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"beam", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", "iy_", ",", RowBox[{"{", RowBox[{"yz_", ",", "mc_"}], "}"}]}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", "mc"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"zy", ",", "pn", ",", "t", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zy", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "t"}]}], "}"}]}], "}"}], "/", "2"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "b"}], "}"}], " ", "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iy", "^", "3"}], "/", "Iz"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iz", "^", "3"}], "/", "Iy"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"zy", ",", "pn"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"zy", ",", "pn", ",", "t", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zy", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "t"}]}], "}"}]}], "}"}], "/", "2"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "b"}], "}"}], " ", "->", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iy", "^", "3"}], "/", "Iz"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", "^", "2"}], " ", RowBox[{ RowBox[{"Iz", "^", "3"}], "/", "Iy"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}]}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA", ",", "Iy", ",", "Iz", ",", "iy"}], "}"}], ",", RowBox[{"{", RowBox[{"zy", ",", "pn"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{"crd_", ",", "nod_"}], "}"}]}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"crd", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"nod", "[", RowBox[{"[", RowBox[{"ip", ",", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"nod", "[", RowBox[{"[", RowBox[{"ip", ",", "1"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"nod", "[", RowBox[{"[", RowBox[{"ip", ",", "2"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"nod", "[", RowBox[{"[", RowBox[{"ip", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"nn", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ip", ",", "1", ",", RowBox[{"Length", "[", "nod", "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763803`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497177`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726163`*^9, 3.775189913786336*^9}, {3.7751899486865597`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374655`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.887163358787507*^9, 3.8871634993068037`*^9}, { 3.887163561290332*^9, 3.887163587479522*^9}, {3.887164575177785*^9, 3.887164836818138*^9}, {3.887165426098087*^9, 3.887165442731608*^9}, { 3.887165816135432*^9, 3.887165823537006*^9}, 3.88716606652994*^9, { 3.887166246706021*^9, 3.887166297016459*^9}, {3.890809558770171*^9, 3.890809638739278*^9}, {3.891396517595899*^9, 3.8913965355770936`*^9}, { 3.891396723599313*^9, 3.891396763527814*^9}, {3.8913967992800713`*^9, 3.891396810581273*^9}, {3.891397253531287*^9, 3.891397264039032*^9}, { 3.891397342619819*^9, 3.891397353090503*^9}, {3.891397414307041*^9, 3.8913974148457775`*^9}, {3.891397466855936*^9, 3.891397483533609*^9}, { 3.891397588012713*^9, 3.891397588552843*^9}, {3.914116640678644*^9, 3.9141166450783386`*^9}}, CellLabel-> "In[376]:=",ExpressionUUID->"88e09335-5122-f14b-af9d-96fb49d384dc"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"plate", " ", "and", " ", "shell", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r0", ",", "r0\[Alpha]", ",", "r0\[Beta]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "\[Rho]", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "pn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], ",", "\[Alpha]", ",", "\[Beta]"}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{ RowBox[{"(", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "n"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Prism", "[", "pp", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"four", " ", "node"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SHELL", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", "for"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", "hn", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "hn_", "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nl", ",", "NN", ",", "r0", ",", "r0\[Alpha]", ",", "r0\[Beta]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "e\[Alpha]", ",", "e\[Beta]", ",", "en", ",", "\[Alpha]", ",", "\[Beta]", ",", "n", ",", "\[Rho]", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "pp", ",", "pn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"1", "-", "\[Beta]"}], ")"}]}], ",", RowBox[{"\[Alpha]", " ", "\[Beta]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "\[Beta]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Alpha]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"r0\[Beta]", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r0"}]}], ";", "\[IndentingNewLine]", RowBox[{"en", "=", RowBox[{ RowBox[{"(", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], ")"}], "/", RowBox[{"Norm", "[", RowBox[{"r0\[Alpha]", StyleBox["\[Cross]", "OperatorCharacter"], "r0\[Beta]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "2"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "=", RowBox[{"NN", ".", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nl", ",", "3"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"en", "*", "n"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}], "+", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Psi]"}], "}"}], "\[Cross]", "\[Rho]"}], "*", "scale"}]}], ")"}], " ", "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{ RowBox[{"-", "hn"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"hn", "/", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r0", "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "*", "scale"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "n"}], "}"}], "\[Rule]", "#"}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Hexahedron", "[", "pp", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.765088701976381*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497187`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726172`*^9, 3.775189913786336*^9}, {3.7751899486865606`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374664`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, {3.846128946122293*^9, 3.846128968019552*^9}, { 3.846129003512868*^9, 3.8461290485155616`*^9}, {3.8461291291837807`*^9, 3.846129173768606*^9}, {3.8461293216071515`*^9, 3.846129324863345*^9}, { 3.846129415192334*^9, 3.846129416208379*^9}, {3.8461294959672627`*^9, 3.846129565497211*^9}, {3.84612986121124*^9, 3.8461298706686964`*^9}, { 3.891140939157926*^9, 3.8911409429731197`*^9}, {3.891396284929349*^9, 3.891396311010934*^9}, {3.9140493512961*^9, 3.91404935961582*^9}, { 3.914116607421397*^9, 3.914116632017269*^9}}, CellLabel-> "In[381]:=",ExpressionUUID->"1684d091-4739-364d-a47d-e3a4dce56bec"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"solid", " ", "element", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"mat_", ",", "for_"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_", ",", "n3_", ",", "n4_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "pn", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pn", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4"}], "}"}], ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Tetrahedron", "[", "pn", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"mat_", ",", "for_"}], "}"}], ",", RowBox[{"Hexahedron", "[", RowBox[{"{", RowBox[{ "n1_", ",", "n2_", ",", "n3_", ",", "n4_", ",", "n5_", ",", "n6_", ",", "n7_", ",", "n8_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"pn", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", RowBox[{"{", RowBox[{ "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", ",", "n8"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pn", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nn", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"nn", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Hexahedron", "[", "pn", "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", "pn", "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763803`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497177`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726163`*^9, 3.775189913786336*^9}, {3.7751899486865597`*^9, 3.775189952212755*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374655`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, {3.9141165059887753`*^9, 3.914116547730739*^9}}, CellLabel-> "In[393]:=",ExpressionUUID->"25e36884-b447-2c4c-857b-496595f2f5c2"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"project", " ", "definitions"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"CORNERE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i3", ",", "r0", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr2", "=", RowBox[{ RowBox[{"i2", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{"r0", ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr2"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr3"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"PIVOTA", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i3", ",", "r0", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr2", "=", RowBox[{ RowBox[{"i2", "*", "l"}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", "l"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", RowBox[{"d", "/", "4"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", RowBox[{"d", "/", "4"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{"r0", ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr2"}], ",", RowBox[{"r0", "+", "dr2"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr3"}], ",", RowBox[{"r0", "+", "dr3"}]}], "}"}], ",", "d"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"SLEEVEA", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d_", ",", "l_"}], "}"}], ",", "i1_", ",", "i2_"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "i3", ",", "r0", ",", "r1", ",", "dr1", ",", "dr2", ",", "dr3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"i3", "=", RowBox[{ RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "/", RowBox[{"Norm", "[", RowBox[{"i1", StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r0", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r1", "=", RowBox[{"r0", "+", RowBox[{"i2", "*", RowBox[{"d", "/", "2"}]}], "+", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i2"}], "*", RowBox[{"d", "/", "2"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr1", "=", RowBox[{ RowBox[{"i1", "*", RowBox[{"l", "/", "2"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i1"}], "*", RowBox[{"l", "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dr3", "=", RowBox[{ RowBox[{"i3", "*", RowBox[{"d", "/", "8"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], "i3"}], "*", RowBox[{"d", "/", "8"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r0", "-", "dr1"}], ",", RowBox[{"r0", "+", "dr1"}]}], "}"}], ",", RowBox[{"d", "/", "2"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r1", "-", "dr3"}], ",", RowBox[{"r1", "+", "dr3"}]}], "}"}], ",", "d"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "first", " ", "order", " ", "beam", " ", "model", " ", "graphics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", RowBox[{"{", RowBox[{"iyr_", ",", "\[Alpha]_"}], "}"}], ",", "pol_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ixr", ",", "izr", ",", "ix", ",", "iy", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ixr", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"izr", "=", RowBox[{"ixr", "\[Cross]", "iyr"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", " ", "=", "ixr"}], ";", "\[IndentingNewLine]", RowBox[{"iy", " ", "=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", " ", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", "iyr"}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "izr"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"pol", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"jj", "+", "1"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"jj", "+", "1"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"nn", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pol", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"scale", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"ix", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"iy", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}]}], ",", RowBox[{"r1", "+", RowBox[{"\[CapitalDelta]r", "/", "2"}], "+", RowBox[{"iz", "*", RowBox[{"h", "/", "10"}]}]}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ "AA_", ",", "Iy_", ",", "Iz_", ",", "Jx_", ",", "iy_", ",", "pol_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "r1", ",", "\[CapitalDelta]r", ",", "r", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp", ",", "nn"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r1", "=", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]r", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[CapitalDelta]r", ".", "\[CapitalDelta]r"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[CapitalDelta]r", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacements", " ", "and", " ", "rotations"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nn", "=", "10"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"ii", " ", "slab", " ", "and", " ", "jj", " ", "nod"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r1", "+", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "ux"}], ")"}], " ", "ix"}], "+", RowBox[{ RowBox[{"(", RowBox[{"y", "+", "uy"}], " ", ")"}], "iy"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"z", "+", "uz"}], ")"}], " ", "iz"}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"ii", "*", RowBox[{"h", "/", "nn"}]}], ")"}]}]}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", RowBox[{"pol", "[", RowBox[{"[", "jj", "]"}], "]"}]}], "]"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "jj"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"jj", "+", "1"}]}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"ii", ",", RowBox[{"jj", "+", "1"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "0", ",", RowBox[{"nn", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pol", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", "d_", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"CIRCLE", "[", "d", "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"BEAMFORM", "=", RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Gray", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"POINTFORM", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"PointSize", "[", "Small", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"d_", ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", RowBox[{"-", "\[Theta]z1"}], ",", "uy2", ",", RowBox[{"-", "\[Theta]z2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "x"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}]}], "]"}], ",", "2", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"ix", "*", "x"}], "+", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], ".", "T"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", "Black", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{"pp", ",", RowBox[{"d", "/", "2"}]}], "]"}], "}"}], ",", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], " ", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_", ",", "t_"}], "]"}], ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", "iy_"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", "iy"}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly", ",", "lz"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "for"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{"mat_", ",", RowBox[{"{", RowBox[{ RowBox[{"RECTANGLE", "[", RowBox[{"ly_", ",", "lz_"}], "]"}], ",", "iy_"}], "}"}], ",", "for_"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]", ",", "h", ",", "x", ",", "y", ",", "z", ",", "NL", ",", "NQ", ",", "ix", ",", "iz", ",", "T", ",", "u", ",", "v", ",", "w", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Psi]", ",", "ux1", ",", "ux2", ",", "uz1", ",", "uz2", ",", "uy1", ",", "uy2", ",", "\[Theta]x1", ",", "\[Theta]x2", ",", "\[Theta]y1", ",", "\[Theta]y2", ",", "\[Theta]z1", ",", "\[Theta]z2", ",", "ux", ",", "uy", ",", "uz", ",", "pp"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Sqrt", "[", RowBox[{"\[Rho]", ".", "\[Rho]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ix", "=", RowBox[{"\[Rho]", "/", "h"}]}], ";", "\[IndentingNewLine]", RowBox[{"iz", "=", RowBox[{"ix", "\[Cross]", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"x", " ", "ix"}], "+", RowBox[{"y", " ", "iy"}], "+", RowBox[{"z", " ", "iz"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"{", RowBox[{"ix", ",", "iy", ",", "iz"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NL", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ",", RowBox[{"x", "/", "h"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", RowBox[{"h", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", RowBox[{"x", "/", "h"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", RowBox[{"x", "/", "h"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", RowBox[{"h", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "/", "h"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "/", "h"}], "-", "1"}], ")"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"ux2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"uy2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"uz2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]x1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", " ", RowBox[{"\[Theta]x2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "ix"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]y1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", " ", RowBox[{"\[Theta]y2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iy"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]z1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", " ", RowBox[{"\[Theta]z2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "3"}], "]"}], "]"}], ".", "iz"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"ux1", ",", "ux2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uy1", ",", "\[Theta]z1", ",", "uy2", ",", "\[Theta]z2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"NQ", ".", RowBox[{"{", RowBox[{"uz1", ",", RowBox[{"-", "\[Theta]y1"}], ",", "uz2", ",", RowBox[{"-", "\[Theta]y2"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"NL", ".", RowBox[{"{", RowBox[{"\[Theta]x1", ",", "\[Theta]x2"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Theta]", "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Psi]", "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}], ";", "\[IndentingNewLine]", RowBox[{"ux", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", RowBox[{"\[Theta]", " ", "z"}], "-", RowBox[{"\[Psi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uy", "=", RowBox[{ RowBox[{"(", RowBox[{"v", "-", RowBox[{"\[Phi]", " ", "z"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"uz", "=", RowBox[{ RowBox[{"(", RowBox[{"w", "+", RowBox[{"\[Phi]", " ", "y"}]}], ")"}], "*", "scale"}]}], ";", "\[IndentingNewLine]", RowBox[{"pp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "\[Rho]", "+", RowBox[{ RowBox[{"{", RowBox[{"ux", ",", "uy", ",", "uz"}], "}"}], ".", "T"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "z"}], "}"}], "\[Rule]", "yz"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h", ",", RowBox[{"h", "/", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yz", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ly", ",", RowBox[{"-", "lz"}]}], "}"}]}], "}"}], "/", "2"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"BEAMFORM", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "3"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{"ii", ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{"pp", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "pp", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "POINTFORM", ",", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"RIGID", ",", "pro_", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd1", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"crd2", "=", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "1"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n2", ",", "2"}], "]"}], "]"}], "*", "scale"}]}]}], ";", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"PointSize", "[", "Medium", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"crd1", ",", "crd2"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORCEFORM", "=", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"EdgeForm", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GRAPHICS", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "scale_"}], "}"}], ",", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[Rho]_", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"HEXAHEDRON", "[", RowBox[{"lx_", ",", "ly_", ",", "lz_"}], "]"}], ",", "ix_", ",", "iy_"}], "}"}], ",", RowBox[{"{", RowBox[{ "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}], "}"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "T", ",", "pnt", ",", "crd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pnt", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", RowBox[{"-", "lz"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", RowBox[{"-", "ly"}], ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{"lx", ",", "ly", ",", "lz"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "lx"}], ",", "ly", ",", "lz"}], "}"}]}], "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"crd", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ix", ",", "iy", ",", RowBox[{"ix", StyleBox["\[Cross]", "OperatorCharacter"], "iy"}]}], "}"}], ".", "#"}], "&"}], ",", "pnt"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", "#", "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{"scale", "*", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "3"}], "]"}], "]"}], StyleBox["\[Cross]", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ StyleBox["#", "OperatorCharacter"], StyleBox["-", "OperatorCharacter"], RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}]}], "&"}], ",", "crd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"FORCEFORM", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"r", "[", RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "POINTFORM", ",", RowBox[{"{", RowBox[{"Point", "[", RowBox[{ RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"scale", "*", RowBox[{"fun", "[", RowBox[{"[", RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], "]"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.633673923685915*^9, 3.6336739535006204`*^9}, { 3.633674155068149*^9, 3.6336741996717*^9}, {3.6336745049841633`*^9, 3.6336745219741354`*^9}, {3.6336919593939404`*^9, 3.633691977597982*^9}, 3.633692380551029*^9, {3.633692711659968*^9, 3.633692727194856*^9}, { 3.635310826749509*^9, 3.635310834341944*^9}, {3.635311461613821*^9, 3.6353114619508405`*^9}, {3.732675980678066*^9, 3.732676000867433*^9}, { 3.732676033121262*^9, 3.7326760385677853`*^9}, {3.732684137201784*^9, 3.73268419404665*^9}, {3.732684306221466*^9, 3.7326843382153635`*^9}, 3.732684469923276*^9, {3.7326845133861027`*^9, 3.73268452322455*^9}, { 3.732759973190983*^9, 3.7327599776758347`*^9}, {3.732761372070311*^9, 3.7327614888170295`*^9}, {3.732761535853627*^9, 3.732761540494388*^9}, { 3.732761597266332*^9, 3.7327616122832594`*^9}, {3.732761669336185*^9, 3.73276183332095*^9}, {3.732761876700554*^9, 3.7327618790133*^9}, { 3.732761909063363*^9, 3.732761910469795*^9}, {3.73276200508918*^9, 3.732762006042756*^9}, {3.7327620750344048`*^9, 3.732762101490326*^9}, 3.7327688007102947`*^9, {3.7327705695330524`*^9, 3.732770570825414*^9}, { 3.732788507552166*^9, 3.732788508587015*^9}, {3.732788681344634*^9, 3.7327887090994544`*^9}, {3.732788743287696*^9, 3.73278879848213*^9}, { 3.732788922306119*^9, 3.7327889462731514`*^9}, {3.732789012151597*^9, 3.732789028200858*^9}, {3.73278907911924*^9, 3.732789086999034*^9}, { 3.732789135698248*^9, 3.732789135889238*^9}, {3.7327891989507074`*^9, 3.7327891993104925`*^9}, {3.733116709198372*^9, 3.733116731638229*^9}, { 3.733493133141255*^9, 3.733493207152207*^9}, {3.733493353668892*^9, 3.7334934953404007`*^9}, {3.733493581610343*^9, 3.733493589891471*^9}, { 3.733493631978956*^9, 3.733493662339269*^9}, {3.7334936935401745`*^9, 3.733493716917615*^9}, {3.733493768737518*^9, 3.733493799379287*^9}, { 3.733560296327675*^9, 3.733560389103868*^9}, {3.733703922252579*^9, 3.733703929721642*^9}, {3.73370402224626*^9, 3.7337040262631474`*^9}, { 3.733710121070121*^9, 3.733710122358057*^9}, 3.733711088578668*^9, 3.733711184948838*^9, {3.733711259729956*^9, 3.733711278366322*^9}, 3.733711324027111*^9, {3.733711384581702*^9, 3.733711436236964*^9}, 3.733711480946919*^9, {3.733711517391835*^9, 3.733711518879483*^9}, 3.733711560439453*^9, {3.733711609599924*^9, 3.733711634272267*^9}, { 3.733711689751358*^9, 3.73371169691195*^9}, {3.73371298798797*^9, 3.73371300141128*^9}, {3.733713172835663*^9, 3.733713173913886*^9}, { 3.733713248343648*^9, 3.733713249609408*^9}, {3.733713283003566*^9, 3.733713420018025*^9}, {3.733713464428997*^9, 3.7337135191222897`*^9}, { 3.733713577784737*^9, 3.73371367154463*^9}, {3.733714000985727*^9, 3.73371404589673*^9}, {3.733714091198394*^9, 3.733714107044007*^9}, { 3.733714143813529*^9, 3.733714146610505*^9}, {3.733721976862414*^9, 3.733721981362911*^9}, {3.733722281191476*^9, 3.733722294442954*^9}, { 3.733722382186266*^9, 3.733722382842562*^9}, {3.733722462429396*^9, 3.733722485869081*^9}, 3.733722553782515*^9, {3.733722654230641*^9, 3.733722661731436*^9}, {3.733722818999301*^9, 3.733722826749952*^9}, { 3.733723144924486*^9, 3.733723159691375*^9}, {3.733723196273369*^9, 3.733723198695795*^9}, {3.733723237777759*^9, 3.733723240887468*^9}, { 3.73372435111442*^9, 3.733724354067712*^9}, {3.733724409980168*^9, 3.733724433076069*^9}, {3.733724523632523*^9, 3.733724524679802*^9}, { 3.733787372405809*^9, 3.733787384188001*^9}, {3.733787915440947*^9, 3.733787915831661*^9}, {3.7340647908247976`*^9, 3.73406479426425*^9}, { 3.734065018482097*^9, 3.734065019689608*^9}, {3.734071775728932*^9, 3.734071783044138*^9}, 3.760607155346615*^9, 3.760607701328564*^9, 3.760607753497196*^9, {3.760608088928544*^9, 3.7606081156683984`*^9}, { 3.760608160193988*^9, 3.7606081844316325`*^9}, {3.760608240118147*^9, 3.7606082403257685`*^9}, {3.760608370421237*^9, 3.7606085188738213`*^9}, { 3.760608750516522*^9, 3.76060875360757*^9}, {3.7606087890680313`*^9, 3.760608797233983*^9}, {3.760608868721051*^9, 3.7606088969051304`*^9}, { 3.760608928173344*^9, 3.760608935537922*^9}, 3.760609001847164*^9, 3.760610501819937*^9, {3.760610747328852*^9, 3.760610758648224*^9}, 3.760610853832239*^9, {3.760611239604003*^9, 3.760611281733299*^9}, { 3.760611401222947*^9, 3.76061140197075*^9}, {3.760611673421208*^9, 3.7606117248806*^9}, {3.76061182870185*^9, 3.7606119921793656`*^9}, { 3.760612127470795*^9, 3.760612223396744*^9}, {3.76061550773096*^9, 3.760615508511997*^9}, 3.760615603302456*^9, {3.760615693062388*^9, 3.760615704512997*^9}, 3.7606158367472205`*^9, {3.760615988102416*^9, 3.760616004270499*^9}, {3.7632524995190973`*^9, 3.7632525737340136`*^9}, { 3.763426957870851*^9, 3.763426959053108*^9}, {3.763427187325386*^9, 3.763427188674776*^9}, {3.763442398821177*^9, 3.763442425173779*^9}, { 3.763442633494967*^9, 3.76344265601632*^9}, {3.763528275706467*^9, 3.76352840134599*^9}, {3.763528705040784*^9, 3.763528722441144*^9}, { 3.7635289011396055`*^9, 3.763528901842952*^9}, {3.763548522859683*^9, 3.76354854228095*^9}, {3.7636050270340595`*^9, 3.763605035756063*^9}, { 3.763605112705577*^9, 3.763605344908389*^9}, {3.7636054077448673`*^9, 3.763605432605407*^9}, {3.7636054757131557`*^9, 3.7636054979248376`*^9}, { 3.763605542706845*^9, 3.763605675311968*^9}, {3.763605884155599*^9, 3.763605898700396*^9}, {3.763606027844756*^9, 3.763606059351961*^9}, { 3.763606170804231*^9, 3.763606210806114*^9}, 3.763606241472248*^9, { 3.763606275207273*^9, 3.763606340114405*^9}, {3.763606445999727*^9, 3.76360644891715*^9}, {3.763606744287244*^9, 3.763606764805743*^9}, 3.763607060153672*^9, {3.763607262857174*^9, 3.763607300007738*^9}, { 3.763607439635916*^9, 3.763607483077087*^9}, {3.76360762630207*^9, 3.7636076543842106`*^9}, 3.763607688296667*^9, {3.7636077698636456`*^9, 3.763607775877318*^9}, {3.763607857294286*^9, 3.763607861344334*^9}, 3.763608605441226*^9, {3.763814247132352*^9, 3.763814248780352*^9}, { 3.7638142898908815`*^9, 3.763814356901274*^9}, {3.763958140651967*^9, 3.763958153489439*^9}, 3.76395845683808*^9, {3.763960860927021*^9, 3.763960872595887*^9}, {3.764339536191163*^9, 3.764339537393582*^9}, { 3.764339581142139*^9, 3.764339630789515*^9}, {3.764339727041641*^9, 3.764339746774886*^9}, {3.7643759693358665`*^9, 3.764375988525555*^9}, { 3.764410286736837*^9, 3.764410291232706*^9}, {3.7649058387052116`*^9, 3.764905888830049*^9}, {3.764905919657881*^9, 3.764905925570866*^9}, { 3.764906015807353*^9, 3.7649060798935275`*^9}, {3.764906127500795*^9, 3.764906182700228*^9}, {3.7649814310038157`*^9, 3.764981612888131*^9}, { 3.764981649845045*^9, 3.764981717214387*^9}, {3.76500955091663*^9, 3.7650095663321896`*^9}, {3.765009596962874*^9, 3.7650096065955095`*^9}, 3.765009816577336*^9, {3.765011173435627*^9, 3.765011180125066*^9}, { 3.7650788221318007`*^9, 3.765078823898266*^9}, {3.7650788935676775`*^9, 3.7650789311170053`*^9}, {3.765085243174881*^9, 3.7650852441096754`*^9}, 3.765085550868559*^9, {3.765085597839531*^9, 3.765085622092542*^9}, { 3.7650863545547857`*^9, 3.7650863799862742`*^9}, {3.765086519432647*^9, 3.765086519785918*^9}, {3.765086550525189*^9, 3.765086566989695*^9}, 3.765087372975154*^9, {3.765087403055101*^9, 3.7650874163952713`*^9}, { 3.765087536684074*^9, 3.7650876355597906`*^9}, 3.765087725291456*^9, { 3.765088672041128*^9, 3.7650887019763794`*^9}, {3.765088740411885*^9, 3.765088742455727*^9}, {3.7650889283353214`*^9, 3.765088944791841*^9}, { 3.765089035561446*^9, 3.765089061258445*^9}, {3.765089181255914*^9, 3.765089209061077*^9}, {3.765089342316796*^9, 3.76508943243054*^9}, { 3.765090684608432*^9, 3.765090700734714*^9}, 3.765090747761392*^9, { 3.765090836642859*^9, 3.7650908539151096`*^9}, {3.7650908896330676`*^9, 3.765090909940852*^9}, {3.765091082681374*^9, 3.765091111305516*^9}, { 3.765091142751696*^9, 3.7650911450258894`*^9}, {3.765091281937201*^9, 3.765091515369325*^9}, {3.765091610244338*^9, 3.7650917517497163`*^9}, { 3.765092443582117*^9, 3.765092498126871*^9}, {3.76509426500305*^9, 3.765094281405676*^9}, 3.765094315674655*^9, {3.765239690424948*^9, 3.765239693502611*^9}, 3.765253217258378*^9, {3.7652532852065315`*^9, 3.765253291861481*^9}, 3.766189724095389*^9, {3.766190438614527*^9, 3.7661905103848095`*^9}, {3.76619098699972*^9, 3.766190987925188*^9}, { 3.766193820625373*^9, 3.766193821536776*^9}, {3.766204156454901*^9, 3.7662041841044207`*^9}, {3.766204415112673*^9, 3.766204435514146*^9}, { 3.766204514370674*^9, 3.766204525664904*^9}, 3.766204570014185*^9, { 3.7665714310907745`*^9, 3.76657144559927*^9}, {3.766572542095325*^9, 3.766572542384548*^9}, {3.7666314737351704`*^9, 3.766631549248939*^9}, { 3.774088277125633*^9, 3.774088312744491*^9}, {3.774150773834302*^9, 3.774150944718382*^9}, {3.774150975094303*^9, 3.774151054824913*^9}, { 3.7741511238761725`*^9, 3.774151229851975*^9}, {3.77415129158794*^9, 3.774151651300989*^9}, {3.774151741892136*^9, 3.774151770064453*^9}, { 3.7742415341727543`*^9, 3.7742416306317797`*^9}, {3.7751898888726153`*^9, 3.775189913786336*^9}, {3.7751899486865587`*^9, 3.7751899522127547`*^9}, { 3.77518999896541*^9, 3.7751900149868736`*^9}, {3.775190051792812*^9, 3.775190066570419*^9}, {3.7879798676374645`*^9, 3.787979894320697*^9}, { 3.792287382183713*^9, 3.792287444759338*^9}, {3.792287488992601*^9, 3.7922875432928047`*^9}, {3.7922886672157793`*^9, 3.792288676437849*^9}, { 3.792288708660981*^9, 3.7922888810105305`*^9}, {3.792300131730332*^9, 3.7923001501177034`*^9}, {3.795768609226843*^9, 3.7957686326352*^9}, { 3.7957686687171*^9, 3.79576868466377*^9}, {3.7957688298513894`*^9, 3.795768834915843*^9}, 3.7957688867486525`*^9, {3.795768942098573*^9, 3.795768993537817*^9}, {3.795769023609819*^9, 3.79576902468211*^9}, { 3.7957690712421293`*^9, 3.795769275801197*^9}, {3.795769346070389*^9, 3.795769349757367*^9}, {3.79576972202382*^9, 3.795769771453448*^9}, { 3.795769801653285*^9, 3.795769804711711*^9}, {3.796345941656575*^9, 3.796345943088759*^9}, {3.8298913714361515`*^9, 3.829891372330407*^9}, { 3.843728585368825*^9, 3.84372858844851*^9}, {3.844995867951875*^9, 3.844995961730613*^9}, {3.845978121229767*^9, 3.845978121586933*^9}, { 3.845978175218417*^9, 3.845978183704877*^9}, {3.845978382630809*^9, 3.845978425443546*^9}, {3.845978956970813*^9, 3.8459791499511595`*^9}, 3.846128901549771*^9, 3.846128946122293*^9, {3.846309385225996*^9, 3.846309410347027*^9}, {3.846309504823522*^9, 3.846309511339752*^9}, { 3.85320516188323*^9, 3.853205175758207*^9}, 3.853205648810899*^9, { 3.853205773068694*^9, 3.8532058080261583`*^9}, {3.853206663322813*^9, 3.853206670956298*^9}, {3.891228490107478*^9, 3.891228495943495*^9}}, CellLabel-> "In[400]:=",ExpressionUUID->"84d13d00-d6e0-da4f-881a-c3647c01c1b7"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Building blocks", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, {3.473055192524*^9, 3.473055199133*^9}, { 3.47305542959*^9, 3.4730554407939997`*^9}, {3.4734696797594*^9, 3.4734696967634*^9}, {3.4933064685896*^9, 3.493306471148*^9}, { 3.556872529139889*^9, 3.5568725438967333`*^9}, 3.556872692951258*^9, { 3.5576544837556367`*^9, 3.557654488685245*^9}, {3.685248903610102*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}, { 3.813031714323161*^9, 3.813031718925788*^9}, {3.813031758195632*^9, 3.813031764803319*^9}, {3.813032384726508*^9, 3.813032390240255*^9}, { 3.814583256251114*^9, 3.8145832796753936`*^9}, {3.819600542414885*^9, 3.8196005483154497`*^9}, {3.819950294085473*^9, 3.8199503065825105`*^9}},ExpressionUUID->"6a385782-eb61-456f-9f91-\ 380d4036a0d8"], Cell[CellGroupData[{ Cell["APPROXIMATIONS", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.6618219059243097`*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036443`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.7807552452476187`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.812782454243184*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874376`*^9}, {3.8145817138547506`*^9, 3.814581739504287*^9}, { 3.814581776238999*^9, 3.814581799742174*^9}, {3.814581962677523*^9, 3.8145819647221575`*^9}, {3.814599819024694*^9, 3.814599846730754*^9}, { 3.8153778767843127`*^9, 3.815377881775329*^9}, {3.8199410957155104`*^9, 3.81994109881959*^9}},ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-\ 42a83bd3e7cd"], Cell[CellGroupData[{ Cell[TextData[{ "LINEAR ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "c8b3e187-d6d4-4a10-9d91-60e9247e2e5a"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377932666324*^9}, {3.819854195004692*^9, 3.819854197490559*^9}, 3.819941078108614*^9, {3.819947685840877*^9, 3.8199477222022824`*^9}, { 3.8199479521208344`*^9, 3.8199479622931805`*^9}},ExpressionUUID->"162ac754-d74f-4ca6-80c8-\ d8d961edea19"], Cell[BoxData[{ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1"}, {"x1", "x2"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, {"y1", "y2", "y3"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"}, {"u4"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1", "1"}, {"x1", "x2", "x3", "x4"}, {"y1", "y2", "y3", "y4"}, {"z1", "z2", "z3", "z4"} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, {"y"}, {"z"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.819600288176886*^9, 3.819600290595418*^9}, { 3.819793832823107*^9, 3.8197939441926823`*^9}, {3.8198542169513407`*^9, 3.819854304992836*^9}, {3.8199401440223775`*^9, 3.819940145175245*^9}, { 3.819940216079404*^9, 3.8199402350359707`*^9}, {3.8199402668370905`*^9, 3.819940270118642*^9}, {3.819941117148842*^9, 3.819941292564108*^9}, { 3.819941392926919*^9, 3.819941410180554*^9}, {3.819947320586339*^9, 3.8199473306436186`*^9}, {3.819947369119611*^9, 3.81994762763954*^9}}, CellLabel-> "In[461]:=",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUADRATIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "0"], TraditionalForm]],ExpressionUUID-> "9f431e87-135f-41fb-85e4-ea581823e804"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}, { 3.819949640075619*^9, 3.819949650844132*^9}},ExpressionUUID->"8b303821-a3bc-4d02-b626-\ 00ac8af3f93c"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"u2"}, {"u3"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "1"}, {"x1", "x2", "x3"}, { SuperscriptBox["x1", "2"], SuperscriptBox["x2", "2"], SuperscriptBox["x3", "2"]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.819948366415674*^9, 3.819948549388113*^9}, { 3.819948591314469*^9, 3.819948845089001*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707313`*^9}, { 3.819949721403361*^9, 3.819949748157431*^9}, 3.8199499668780727`*^9, { 3.819950073810108*^9, 3.8199500897824917`*^9}, {3.8199501689926205`*^9, 3.819950173688433*^9}, {3.8199502200208435`*^9, 3.819950224828543*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "QUBIC ", Cell[BoxData[ FormBox[ SuperscriptBox["C", "1"], TraditionalForm]],ExpressionUUID-> "c01813c7-0c55-4a5c-a2e6-8d68d976fd14"] }], "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.81537785853737*^9, 3.8153778611644797`*^9}, {3.8153778930697937`*^9, 3.815377926338909*^9}, {3.8199479921343904`*^9, 3.819948001552022*^9}},ExpressionUUID->"efb27dda-7a73-487d-b443-\ 3bf17635a222"], Cell[BoxData[ RowBox[{ RowBox[{"u", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u1"}, {"du1"}, {"u2"}, {"du2"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], ".", RowBox[{"Inverse", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "1", "0"}, {"x1", "1", "x2", "1"}, { SuperscriptBox["x1", "2"], RowBox[{"2", "x1"}], SuperscriptBox["x2", "2"], RowBox[{"2", "x2"}]}, { SuperscriptBox["x1", "3"], RowBox[{"3", SuperscriptBox["x1", "2"]}], SuperscriptBox["x2", "3"], RowBox[{"3", SuperscriptBox["x2", "2"]}]} }], "\[NoBreak]", ")"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"x"}, { SuperscriptBox["x", "2"]}, { SuperscriptBox["x", "3"]} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.819948366415674*^9, 3.819948549388113*^9}, { 3.819948591314469*^9, 3.819948845089001*^9}, {3.819949316406085*^9, 3.819949552511241*^9}, {3.819949588290868*^9, 3.8199495904707313`*^9}}, CellLabel-> "In[465]:=",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NN", " ", "=", " ", RowBox[{"a", "+", RowBox[{"b", " ", "x"}], "+", RowBox[{"c", " ", "y"}], "+", RowBox[{"d", " ", "x", " ", "y"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{"NN", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], ")"}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"NN", " ", "/.", "sol"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.822031610182944*^9, 3.822031900626928*^9}}, CellLabel-> "In[466]:=",ExpressionUUID->"5f613cb9-a9e2-4794-85a6-86c846186544"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "0"}], ",", RowBox[{"b", "\[Rule]", "0"}], ",", RowBox[{"c", "\[Rule]", FractionBox["1", "L"]}], ",", RowBox[{"d", "\[Rule]", RowBox[{"-", FractionBox["1", SuperscriptBox["L", "2"]]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.822031789655941*^9, 3.8220319015494275`*^9}, 3.853032924662415*^9}, CellLabel-> "Out[467]=",ExpressionUUID->"84d03451-e88f-406c-9148-b5d4913b09f7"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"L", "-", "x"}], ")"}], " ", "y"}], SuperscriptBox["L", "2"]]], "Output", CellChangeTimes->{{3.822031789655941*^9, 3.8220319015494275`*^9}, 3.853032924677374*^9}, CellLabel-> "Out[468]=",ExpressionUUID->"d2fcd6f9-9b75-4a34-97bf-6cbadd9df4e4"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIRTUAL WORK DENSITIES", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.6618219059243097`*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036443`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.7807552452476187`*^9, {3.811316330506975*^9, 3.81131633668452*^9}, 3.812782454243184*^9, 3.8127840219912105`*^9, {3.813031734498083*^9, 3.8130317350874376`*^9}, {3.8145817138547506`*^9, 3.814581739504287*^9}, { 3.814581776238999*^9, 3.814581799742174*^9}, {3.814581962677523*^9, 3.8145819647221575`*^9}, {3.814599819024694*^9, 3.814599846730754*^9}, { 3.8146008007283373`*^9, 3.81460080653517*^9}, {3.815970350460278*^9, 3.81597035188518*^9}},ExpressionUUID->"afb80a20-e5d9-4db8-bc99-\ 2e402a0d6607"], Cell[CellGroupData[{ Cell["BEAM MODEL", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376150616532*^9}, { 3.8155550704278803`*^9, 3.815555097192521*^9}, {3.81597039148044*^9, 3.815970392981469*^9}, {3.8197932900575747`*^9, 3.819793291008457*^9}},ExpressionUUID->"b1de8e05-e4e5-4906-a827-\ 733bd6c4e2d5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bar", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Exx", ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}]}], ";", " ", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]\[Delta]", "[", "Exx", "]"}]}], "\[CapitalEpsilon]", " ", "A", " ", "Exx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "u", "]"}], " ", "fx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "u", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "u"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], "]"}], "\[CapitalEpsilon]", " ", "A", " ", "\[Alpha]", " ", "\[CapitalDelta]\[CurlyTheta]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}], "]"}]}], " ", "k", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8122458946247797`*^9, 3.8122459117806687`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289288`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.812347096607202*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907797`*^9, 3.812347520634344*^9}, {3.812347575873441*^9, 3.812347579567418*^9}, { 3.812347749289109*^9, 3.812347762488459*^9}, {3.812347828223141*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943895`*^9, 3.8123481287065563`*^9}, {3.812348160659023*^9, 3.812348163527281*^9}, {3.812937300280417*^9, 3.8129374795649176`*^9}, { 3.812937560814893*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, {3.8129378361071234`*^9, 3.812937884842545*^9}, { 3.812937928137231*^9, 3.812937963479135*^9}, {3.812949534707676*^9, 3.812949648561287*^9}, {3.81303179182392*^9, 3.8130318138107257`*^9}, { 3.813031849106337*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.813035680999578*^9}, {3.813035723222085*^9, 3.8130357590144258`*^9}, { 3.813035862400596*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, {3.814582008240017*^9, 3.81458202487157*^9}, { 3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.81459987410084*^9, 3.814600136314242*^9}, {3.8146008155128937`*^9, 3.8146008175253997`*^9}, { 3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994*^9, 3.814601353039859*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, {3.81460648702644*^9, 3.814606490130829*^9}, 3.814606610960127*^9, {3.814606651276392*^9, 3.814606660664742*^9}, { 3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159703281352882`*^9, 3.8159703402311783`*^9}, {3.819793304529253*^9, 3.819793376237859*^9}, { 3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708922`*^9, 3.819853318519034*^9}, {3.8198534731601105`*^9, 3.81985350017823*^9}, { 3.822014194195599*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014371257183*^9}, {3.822014420871383*^9, 3.82201455714007*^9}, { 3.8220147683440948`*^9, 3.822014852498207*^9}, 3.822014890162271*^9, { 3.8220186983475327`*^9, 3.8220188522089043`*^9}, {3.8226254483668633`*^9, 3.8226254538325567`*^9}, {3.822625497769276*^9, 3.8226255989801593`*^9}, { 3.822625660413871*^9, 3.8226257244889565`*^9}, {3.822625784898554*^9, 3.8226257884059076`*^9}, {3.822625841405484*^9, 3.82262595974108*^9}, { 3.822626497029248*^9, 3.8226265279080334`*^9}, {3.822626574578147*^9, 3.822626587819417*^9}, {3.822626633786963*^9, 3.8226266353557687`*^9}, { 3.822626757328236*^9, 3.8226267614127035`*^9}, {3.822793793405351*^9, 3.822793877446885*^9}, {3.822793932631747*^9, 3.822793990580744*^9}, { 3.82279402359865*^9, 3.8227940749755487`*^9}}, CellLabel-> "In[469]:=",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"torsion", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}], "]"}]}], " ", "G", " ", "Ip", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[Phi]", "]"}], " ", "mx"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "\[Phi]", "]"}]}], " ", "\[Rho]", " ", "Irr", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "\[Phi]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8122458946247797`*^9, 3.8122459117806687`*^9}, { 3.81224594830929*^9, 3.8122462868421164`*^9}, {3.81224633207593*^9, 3.8122464535289288`*^9}, {3.812246516009039*^9, 3.812246563090599*^9}, { 3.812246638940317*^9, 3.812246876774053*^9}, {3.8123470486670413`*^9, 3.812347051682555*^9}, {3.812347096607202*^9, 3.812347323132008*^9}, { 3.81234741007143*^9, 3.812347415966572*^9}, {3.8123475116907797`*^9, 3.812347520634344*^9}, {3.812347575873441*^9, 3.812347579567418*^9}, { 3.812347749289109*^9, 3.812347762488459*^9}, {3.812347828223141*^9, 3.8123478472209744`*^9}, {3.812348071175949*^9, 3.812348072474114*^9}, { 3.8123481259943895`*^9, 3.8123481287065563`*^9}, {3.812348160659023*^9, 3.812348163527281*^9}, {3.812937300280417*^9, 3.8129374795649176`*^9}, { 3.812937560814893*^9, 3.8129376841051188`*^9}, {3.8129377388246346`*^9, 3.812937751721712*^9}, {3.8129378361071234`*^9, 3.812937884842545*^9}, { 3.812937928137231*^9, 3.812937963479135*^9}, {3.812949534707676*^9, 3.812949648561287*^9}, {3.81303179182392*^9, 3.8130318138107257`*^9}, { 3.813031849106337*^9, 3.81303188231655*^9}, {3.8130356475942745`*^9, 3.813035680999578*^9}, {3.813035723222085*^9, 3.8130357590144258`*^9}, { 3.813035862400596*^9, 3.8130359070572233`*^9}, {3.813035937058835*^9, 3.813035954588526*^9}, {3.814582008240017*^9, 3.81458202487157*^9}, { 3.814582096515246*^9, 3.8145820976899586`*^9}, {3.814582222644521*^9, 3.8145822694304285`*^9}, 3.8145823659907265`*^9, {3.81459987410084*^9, 3.814600136314242*^9}, {3.8146008155128937`*^9, 3.8146008175253997`*^9}, { 3.814600885570817*^9, 3.8146011063818507`*^9}, {3.8146011515994*^9, 3.814601353039859*^9}, 3.8146014065154305`*^9, {3.814601537078768*^9, 3.814601632104453*^9}, {3.81460648702644*^9, 3.814606490130829*^9}, 3.814606610960127*^9, {3.814606651276392*^9, 3.814606660664742*^9}, { 3.8146067115977106`*^9, 3.814606762494011*^9}, {3.8159703281352882`*^9, 3.8159703402311783`*^9}, {3.819793304529253*^9, 3.819793376237859*^9}, { 3.819793427516329*^9, 3.81979374113615*^9}, {3.8198531206708922`*^9, 3.819853318519034*^9}, {3.8198534731601105`*^9, 3.81985350017823*^9}, { 3.822014194195599*^9, 3.822014290900113*^9}, {3.8220143222350264`*^9, 3.822014346401341*^9}, {3.822014904572884*^9, 3.8220149367236567`*^9}, { 3.822794250933531*^9, 3.822794256864659*^9}}, CellLabel-> "In[476]:=",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xz", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "w"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.822794147993034*^9}, { 3.822794180887678*^9, 3.8227942482556634`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.822794528561179*^9}, {3.822794611759951*^9, 3.822794721694448*^9}}, CellLabel-> "In[479]:=",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", RowBox[{"(", "xy", ")"}], " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "v"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "v", "]"}], " ", "fy"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "v", "]"}]}], " ", "\[Rho]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "v"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}], " ", "\[Rho]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "t", ",", "t"}]], "v"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "]"}]}], RowBox[{"(", RowBox[{"\[CapitalEpsilon]", " ", "A", " ", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.822794101700261*^9, 3.822794147993034*^9}, { 3.822794180887678*^9, 3.8227942482556634`*^9}, {3.8227942842341223`*^9, 3.822794309893144*^9}, {3.8227944130550375`*^9, 3.822794429081745*^9}, { 3.8227944653822117`*^9, 3.822794528561179*^9}, {3.822794611759951*^9, 3.822794721694448*^9}, {3.822800306589834*^9, 3.822800386059091*^9}}, CellLabel-> "In[483]:=",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{"uZ", "[", "0", "]"}], " ", "4", " ", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], "]"}]}], " ", "\[CapitalEpsilon]", " ", "Iyy", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}], " ", "-", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}], "]"}], "\[CapitalEpsilon]", " ", "A", " ", FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{"\[Delta]wint", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}]}], "]"}], "+", RowBox[{"F", " ", RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "\[Delta]W", "]"}]}]}]], "Input", CellChangeTimes->{{3.82279483009081*^9, 3.822794969956561*^9}, { 3.822795020470271*^9, 3.8227951518811617`*^9}, {3.822795344383899*^9, 3.822795351564015*^9}, {3.822795991762432*^9, 3.8227960047802234`*^9}}, CellLabel-> "In[487]:=",ExpressionUUID->"19bb77ba-380c-49d2-99b3-5d1a77644648"], Cell[BoxData[ RowBox[{ RowBox[{"F", " ", RowBox[{"\[Delta]uZ", "[", "0", "]"}]}], "-", FractionBox[ RowBox[{"64", " ", "\[CapitalEpsilon]", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "Iyy", " ", RowBox[{"uZ", "[", "0", "]"}]}], "+", RowBox[{"2", " ", "A", " ", SuperscriptBox[ RowBox[{"uZ", "[", "0", "]"}], "3"]}]}], ")"}], " ", RowBox[{"\[Delta]uZ", "[", "0", "]"}]}], RowBox[{"5", " ", SuperscriptBox["L", "3"]}]]}]], "Output", CellChangeTimes->{3.853032925061337*^9}, CellLabel-> "Out[490]=",ExpressionUUID->"a07f3917-4445-4893-bac5-45a1114501cc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["PLATE MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376175716915*^9}, { 3.815555061285624*^9, 3.8155550857667847`*^9}, {3.815970383671178*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.822013855091523*^9, 3.8220138550928526`*^9}},ExpressionUUID->"d7109425-1791-4931-ad0b-\ bad3a9ba7ad1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"thin", " ", "slab", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "/", "2"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "/", "2"}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{"h\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], " ", FractionBox[ RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]", " "}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pine", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "\[CurlyTheta]"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "\[CurlyTheta]"}]} }], "\[NoBreak]", ")"}]}], " ", "t", " ", "k"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]pext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "\[CurlyTheta]", "]"}], " ", "s"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853400372193*^9}, {3.820995440322495*^9, 3.820995464460252*^9}, { 3.821411602113981*^9, 3.821411613520486*^9}, {3.822013466437859*^9, 3.822013494212563*^9}, {3.822013636172348*^9, 3.822013660653085*^9}, { 3.822013694064325*^9, 3.8220137095733585`*^9}, {3.822013740034285*^9, 3.8220138276621084`*^9}, {3.822013865712245*^9, 3.8220141198601246`*^9}, { 3.8220145897943444`*^9, 3.822014632748041*^9}, {3.822018553668655*^9, 3.8220186366280785`*^9}, 3.8222202914316864`*^9, {3.822284129118959*^9, 3.822284130436101*^9}, {3.822285758917274*^9, 3.822285839222003*^9}, { 3.8226263917600307`*^9, 3.822626400054607*^9}, {3.822626471378187*^9, 3.822626472382482*^9}, {3.822626695952267*^9, 3.822626747776212*^9}, { 3.822626796327529*^9, 3.8226269739859304`*^9}, {3.8226270696375046`*^9, 3.822627097464016*^9}, {3.82262738419366*^9, 3.822627384868784*^9}, { 3.8226275012187433`*^9, 3.8226275136853914`*^9}, {3.8227023828653297`*^9, 3.822702630787526*^9}, {3.8227027245174074`*^9, 3.82270283265123*^9}, { 3.822702868916325*^9, 3.822702874231553*^9}, {3.822702931109446*^9, 3.822702940209586*^9}, {3.822703290165615*^9, 3.822703320158644*^9}, { 3.8228004802034807`*^9, 3.822800485425867*^9}, {3.822800521161858*^9, 3.8228005919369607`*^9}, {3.823135482928742*^9, 3.8231354842107*^9}, { 3.851847556164915*^9, 3.851847597203542*^9}}, CellLabel-> "In[491]:=",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"bending", " ", "mode"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], " ", "fz"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wine", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[Rho]"}], "12"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}]}], ")"}]}], " ", "]"}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", "w", "]"}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wcpl", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942403`*^9}, { 3.82099550430188*^9, 3.820995603399565*^9}, {3.821411597204849*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.822012228548747*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.822012458930317*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.822013584589524*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.82262747007555*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}}, CellLabel-> "In[499]:=",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"shallow", " ", "nonlinear", " ", "plate"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"], "/", "2"}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint0", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Exx"}, {"Eyy"}, {"Exy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853450433564*^9}, {3.8204731596954165`*^9, 3.820473173739369*^9}, { 3.820995119011181*^9, 3.820995126402494*^9}, {3.820995209861804*^9, 3.8209952799743805`*^9}, {3.820995322040347*^9, 3.8209954099942403`*^9}, { 3.82099550430188*^9, 3.820995603399565*^9}, {3.821411597204849*^9, 3.82141161802429*^9}, {3.8214117784781094`*^9, 3.821411786344531*^9}, { 3.822012228548747*^9, 3.822012357613187*^9}, {3.822012424643895*^9, 3.82201242811836*^9}, {3.822012458930317*^9, 3.822012572850343*^9}, { 3.822012605546539*^9, 3.822012664677631*^9}, 3.822012703591533*^9, { 3.8220127349053545`*^9, 3.822012736825061*^9}, {3.822012823284993*^9, 3.822012848119725*^9}, {3.822013229620719*^9, 3.822013238456396*^9}, { 3.822013398186573*^9, 3.822013431874333*^9}, {3.822013507516363*^9, 3.8220135520108066`*^9}, {3.822013584589524*^9, 3.822013653677226*^9}, { 3.822014131762353*^9, 3.822014171541131*^9}, {3.8220145927934275`*^9, 3.8220145983616686`*^9}, {3.822014638268268*^9, 3.822014661660056*^9}, { 3.822018656159581*^9, 3.82201865956546*^9}, {3.8222830439812937`*^9, 3.822283045885082*^9}, {3.822283084714826*^9, 3.8222832254020443`*^9}, 3.822283404395464*^9, {3.822283436828066*^9, 3.822283551562297*^9}, { 3.82262747007555*^9, 3.822627475568598*^9}, 3.822702730887912*^9, { 3.822703037483117*^9, 3.822703093054139*^9}, {3.822703167004958*^9, 3.822703169454815*^9}, {3.822800601333069*^9, 3.822800618058327*^9}, { 3.822800668211516*^9, 3.822800705393556*^9}, {3.853218494706453*^9, 3.853218677855839*^9}, {3.853218715456251*^9, 3.8532187197553587`*^9}, 3.8532187862418203`*^9, {3.8532228638308563`*^9, 3.85322287562099*^9}},ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-\ 55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell["SOLID MODEL ", "Subsubsection", CellChangeTimes->{{3.8153761102345724`*^9, 3.815376175716915*^9}, { 3.815555061285624*^9, 3.8155550857667847`*^9}, {3.815970383671178*^9, 3.815970385180562*^9}, 3.819793250888075*^9, {3.819853555422123*^9, 3.8198535571357107`*^9}},ExpressionUUID->"fb5115cb-5c46-462d-b545-\ 09d24c3dbd84"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}]} }], "\[NoBreak]", ")"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], "2"]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], "2"]}]} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "u"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "v"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "z"], "w"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}], ")"}]}]}]} }], "\[NoBreak]", ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ RowBox[{"(", " ", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Nu]"}]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1", "-", "\[Nu]"}], "\[Nu]", "\[Nu]"}, {"\[Nu]", RowBox[{"1", "-", "\[Nu]"}], "\[Nu]"}, {"\[Nu]", "\[Nu]", RowBox[{"1", "-", "\[Nu]"}]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}]}]}], ";", " ", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}], ":=", RowBox[{ FractionBox["\[CapitalEpsilon]", RowBox[{"2", "+", RowBox[{"2", "\[Nu]"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Epsilon]xx"}, {"\[Epsilon]yy"}, {"\[Epsilon]zz"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xx"}, {"\[Sigma]yy"}, {"\[Sigma]zz"} }], "\[NoBreak]", ")"}]}]}], "-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Gamma]xy"}, {"\[Gamma]yz"}, {"\[Gamma]zx"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"\[Sigma]xy"}, {"\[Sigma]yz"}, {"\[Sigma]zx"} }], "\[NoBreak]", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wext", ":=", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"}, {"w"} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"fx"}, {"fy"}, {"fz"} }], "\[NoBreak]", ")"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.815376079275247*^9, 3.815376084074486*^9}, { 3.8153762691761475`*^9, 3.81537637169284*^9}, {3.815376408228937*^9, 3.8153768545545063`*^9}, 3.815376890662513*^9, {3.815377226090613*^9, 3.815377243749753*^9}, {3.815377320906008*^9, 3.8153773695372734`*^9}, { 3.815377401490987*^9, 3.8153774339257736`*^9}, 3.815377636067772*^9, { 3.815377743689173*^9, 3.8153777579877357`*^9}, {3.815378317503425*^9, 3.815378329784062*^9}, {3.815378596102874*^9, 3.8153786641604166`*^9}, { 3.815555236681955*^9, 3.815555256861638*^9}, {3.815970241520693*^9, 3.815970288970612*^9}, {3.8197930288557158`*^9, 3.819793108805518*^9}, { 3.8197931428339415`*^9, 3.8197932600036354`*^9}, {3.8198533334635763`*^9, 3.819853400372193*^9}, {3.819853568522805*^9, 3.819853574857469*^9}, { 3.8198536434093485`*^9, 3.819853647541463*^9}, {3.8198536777405787`*^9, 3.819853767687767*^9}, {3.819853815679607*^9, 3.8198540710650525`*^9}, { 3.8220149705414286`*^9, 3.822014991080544*^9}, {3.822015024732211*^9, 3.822015493649189*^9}, {3.8220155277480507`*^9, 3.822015651179119*^9}, 3.822015690035177*^9, {3.8220157282408*^9, 3.822015819731036*^9}, { 3.822018449619231*^9, 3.8220185243444552`*^9}, {3.822220449505496*^9, 3.822220581738879*^9}}, CellLabel-> "In[504]:=",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\ \\\"x\\\"}]], \\\"u\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[\\\"\ \[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \\\"}\\\"}]}], \ \\\"}\\\"}], \\\"+\\\", RowBox[{FractionBox[\\\"1\\\", \\\"2\\\"], \\\" \\\", \ RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{SuperscriptBox[RowBox[{\ \\\"(\\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\ \"u\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\ \", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \ \\\"v\\\"}], \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\ \\\", RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"x\\\"}]], \\\"w\\\ \"}], \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"y\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"u\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"v\\\"}], \ \\\")\\\"}], \\\"2\\\"], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ RowBox[{SubscriptBox[\\\"\[PartialD]\\\", RowBox[{\\\"z\\\"}]], \\\"w\\\"}], \ \\\")\\\"}], \\\"2\\\"]}], \\\"}\\\"}]}], \\\"}\\\"}]}]}]\\) are not the same \ shape.\"", 2, 505, 5, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925407507*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zz\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{FractionBox[RowBox[{\ \\\"\[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"1\\\", \\\"-\\\", \ \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\", \\\",\\\", \\\"\[Nu]\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}], \\\",\\\", \\\"\[Nu]\\\"}], \\\ \"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[Nu]\\\", \\\",\\\", \\\ \"\[Nu]\\\", \\\",\\\", RowBox[{\\\"1\\\", \\\"-\\\", \\\"\[Nu]\\\"}]}], \ \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \ \\\"+\\\", \\\"\[Nu]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ \")\\\"}]}]], \\\".\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Epsilon]xx\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]yy\ \\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Epsilon]zz\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]}]\\) are not the same shape.\"", 2, 507, 6, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925423025*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[BoxData[ TemplateBox[{ "SetDelayed", "shape", "\"Lists \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \\\"\ \[Sigma]xy\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ \\\"\[Sigma]yz\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"\[Sigma]zx\ \\\", \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*FractionBox[RowBox[{\\\"\ \[CapitalEpsilon]\\\", \\\" \\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", \\\"\[Gamma]xy\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]yz\\\", \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", \\\"\[Gamma]zx\\\", \\\"}\\\"}]}], \\\"}\\\"}]}], RowBox[{\ \\\"2\\\", \\\"+\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Nu]\\\"}]}]]\\) are \ not the same shape.\"", 2, 507, 7, 16193119520414287340, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.853032925562045*^9}, CellLabel-> "During evaluation of \ In[504]:=",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Problems and solutions", "Title", CellChangeTimes->{ 3.4430806364968*^9, {3.4453166713874*^9, 3.4453166747414*^9}, { 3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 3.4695731359491997`*^9}, {3.473055192524*^9, 3.473055199133*^9}, { 3.47305542959*^9, 3.4730554407939997`*^9}, {3.4734696797594*^9, 3.4734696967634*^9}, {3.4933064685896*^9, 3.493306471148*^9}, { 3.556872529139889*^9, 3.5568725438967333`*^9}, 3.556872692951258*^9, { 3.5576544837556367`*^9, 3.557654488685245*^9}, {3.685248903610102*^9, 3.68524892333013*^9}, {3.688455478402707*^9, 3.688455486552718*^9}},ExpressionUUID->"c094e867-eedb-49ea-81fe-\ 4ac178148a9f"], Cell[CellGroupData[{ Cell["INTRODUCTION (week 2)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.6618219059243097`*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.6858764117036443`*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.69079328920778*^9, 3.753071235456575*^9, 3.7866746400333786`*^9, { 3.816933130133701*^9, 3.8169331461988683`*^9}, {3.8187683453801126`*^9, 3.8187683495925474`*^9}},ExpressionUUID->"4b032a41-028b-4092-b65a-\ 9e634ae03405"], Cell[CellGroupData[{ Cell["Lecture example 1.1 (structure analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.818903771638553*^9, 3.818903776541187*^9}},ExpressionUUID->"9aac42a8-292f-4229-ba7a-\ ff683fbe5b47"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.818903903343067*^9, 3.818904167227741*^9}, { 3.818904329868784*^9, 3.818904360696265*^9}, 3.818904432229208*^9, { 3.818932203173953*^9, 3.818932219421686*^9}, 3.8189390550786867`*^9, { 3.81907738355456*^9, 3.8190773971877785`*^9}}, CellLabel-> "In[423]:=",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.2 (displacement analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}},ExpressionUUID->"61bce4a2-2758-460e-9011-\ 10d261d3455b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.8189322784076977`*^9, 3.818932279384528*^9}, 3.818939038386253*^9}, CellLabel-> "In[426]:=",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.3 (vibration analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, 3.818905799942091*^9},ExpressionUUID->"5f18722c-d360-4af9-9f52-\ 1aaae1c2afe0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ini", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", RowBox[{"a", "/", "2"}]}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "a"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", "ini"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "]"}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.8189324188198233`*^9, 3.818932419716118*^9}, {3.818933917456164*^9, 3.818933953146742*^9}, {3.8189342859506845`*^9, 3.818934335588433*^9}}, CellLabel-> "In[429]:=",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.4 (stability analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}},ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-\ 7e504f9c030c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.818932589763369*^9, 3.8189325919837103`*^9}}, CellLabel-> "In[433]:=",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.5 (large displacement analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}, {3.818906680532697*^9, 3.818906710304649*^9}, { 3.818907219119192*^9, 3.818907222320526*^9}, {3.819104609063642*^9, 3.81910461349381*^9}},ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-\ 11727f8765cd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"a", "\[Rule]", RowBox[{ RowBox[{"-", "L"}], "/", "10"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "ALL"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.8189069265140653`*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, 3.818939166730035*^9, { 3.8189392811217995`*^9, 3.818939308027191*^9}, {3.818939612512598*^9, 3.818939625554674*^9}, {3.8189396888230515`*^9, 3.818939690546791*^9}, { 3.818941306347761*^9, 3.8189413069023876`*^9}, {3.8189413536741486`*^9, 3.818941366867316*^9}, 3.819104686652321*^9, {3.850615302098191*^9, 3.850615307831856*^9}, {3.850615350957108*^9, 3.850615422642296*^9}, { 3.8506154564202604`*^9, 3.8506155467512794`*^9}}, CellLabel-> "In[436]:=",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.6 (thermo-mechanical analysis)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.7876248316360083`*^9, 3.787624839161375*^9}, {3.8189037505536313`*^9, 3.818903765919631*^9}, { 3.818904453117077*^9, 3.818904455443469*^9}, {3.8189058032326117`*^9, 3.818905813617999*^9}, {3.818906680532697*^9, 3.818906710304649*^9}, { 3.8189071749677935`*^9, 3.818907184003142*^9}, {3.818907228710081*^9, 3.818907236014058*^9}, {3.819104708530879*^9, 3.819104713378007*^9}},ExpressionUUID->"5de18652-2348-4485-9982-\ 16fe2124dc17"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.4426465840284443`*^9, 3.4426465892856445`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759174`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126244`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.8187685944225264`*^9, 3.818768632979694*^9}, {3.8189037897896566`*^9, 3.818903891691725*^9}, { 3.818904466225399*^9, 3.818904675241041*^9}, {3.8189049237970304`*^9, 3.818904925119929*^9}, {3.8189049615108304`*^9, 3.818904961921609*^9}, { 3.818905081334079*^9, 3.818905089763498*^9}, {3.818905130599954*^9, 3.818905143860015*^9}, {3.8189052185399995`*^9, 3.818905228906042*^9}, { 3.818905349587069*^9, 3.8189053888000546`*^9}, {3.81890546709683*^9, 3.818905492145599*^9}, {3.818905582761438*^9, 3.818905626899233*^9}, { 3.818905680709712*^9, 3.818905682976835*^9}, 3.818905766358502*^9, { 3.818905911877447*^9, 3.818906001649149*^9}, {3.8189061178251677`*^9, 3.8189061484071755`*^9}, {3.818906243285356*^9, 3.818906271463165*^9}, { 3.818906351175879*^9, 3.818906356837691*^9}, {3.818906585329872*^9, 3.818906591483492*^9}, {3.818906626703429*^9, 3.81890662834041*^9}, { 3.8189067855957966`*^9, 3.818906795741164*^9}, {3.818906847646274*^9, 3.8189069265140653`*^9}, {3.8189069660607*^9, 3.8189069751089797`*^9}, { 3.8189070137046757`*^9, 3.818907071690199*^9}, {3.819011234808808*^9, 3.819011267096024*^9}, {3.81901130156429*^9, 3.819011303017789*^9}, { 3.850614543193836*^9, 3.850614549498017*^9}, {3.8506150595049334`*^9, 3.85061507150959*^9}, {3.850615129445158*^9, 3.8506151582241964`*^9}, { 3.8506156789915085`*^9, 3.850615685597824*^9}, 3.88206293458878*^9}, CellLabel-> "In[440]:=",ExpressionUUID->"35452574-3b83-4220-8780-2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 1.7 (eigenvalue decomposition)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}, 3.8820648728970056`*^9, {3.882498012765389*^9, 3.882498035775823*^9}},ExpressionUUID->"383cddbb-4de9-44d2-b165-\ db2ad34a0b83"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "X"}], "}"}], "=", RowBox[{"Eigensystem", "[", "A", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "X", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "\[Lambda]", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "X", "]"}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.7683570674174623`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088834`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632293`*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.8819045868166137`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, {3.8820645695351*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, { 3.882064757755306*^9, 3.882064854460331*^9}, {3.8820649167673025`*^9, 3.88206496989681*^9}, {3.882498040886921*^9, 3.8824980488949137`*^9}, { 3.882498080138829*^9, 3.882498312927214*^9}}, CellLabel-> "In[443]:=",ExpressionUUID->"6618f3df-ec4c-4656-a5f6-57d989120d0b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}},ExpressionUUID->"1d96790f-49fb-4e00-ab56-\ a3da92924588"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"K", "=", RowBox[{"k", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", " ", "=", RowBox[{"P", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"K", ".", "a"}]}], "+", "F"}], "==", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.7683570674174623`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088834`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632293`*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.8819045868166137`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, {3.8820645695351*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, { 3.882064757755306*^9, 3.882064854460331*^9}}, CellLabel-> "In[446]:=",ExpressionUUID->"3a56a45f-1b1f-497b-ab28-e7afa331a80b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064552332571*^9, 3.882064558193267*^9}, 3.8820648728970056`*^9},ExpressionUUID->"7b5eb442-ec67-4f72-9a01-\ bde21270b68f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "2"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Eigensystem", "[", "A", "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.7683570674174623`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088834`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632293`*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.8819045868166137`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, {3.8820645695351*^9, 3.88206457106326*^9}, {3.882064608130267*^9, 3.8820647158548326`*^9}, { 3.882064757755306*^9, 3.882064854460331*^9}, {3.8820649167673025`*^9, 3.88206496989681*^9}}, CellLabel-> "In[450]:=",ExpressionUUID->"287fffa5-19c6-4076-8be0-eb0069f4eda1"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (analytical solution)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726366745177*^9}, { 3.786679702027638*^9, 3.786679709115581*^9}, {3.816934964556473*^9, 3.816934967437971*^9}, {3.818587108592916*^9, 3.818587112079057*^9}, { 3.818587147124024*^9, 3.818587150622024*^9}, {3.818768504761609*^9, 3.818768511921299*^9}, {3.881210246375242*^9, 3.881210248696087*^9}, { 3.882063071644257*^9, 3.882063080875761*^9}, {3.882064878837919*^9, 3.8820648810216274`*^9}, {3.8821505174563293`*^9, 3.8821505582112355`*^9}},ExpressionUUID->"dd1069d3-171e-41c1-b554-\ f1a75dbbbe54"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{ FractionBox["3", RowBox[{"4", " ", "\[Pi]"}]], RowBox[{"(", RowBox[{"3", "+", "\[Nu]"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}]}], ")"}]}], " ", "//.", "val"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"a1", " ", "u"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \(2\)]\), \ \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766728193630061*^9, 3.76672819508255*^9}, {3.7668226244126663`*^9, 3.766822719296406*^9}, { 3.7668227719268694`*^9, 3.766822786626172*^9}, {3.766822823126491*^9, 3.7668228813658266`*^9}, {3.7668229260422144`*^9, 3.7668229380494995`*^9}, {3.7683555758986053`*^9, 3.768355668707209*^9}, { 3.768356902587074*^9, 3.768357020762136*^9}, {3.7683570674174623`*^9, 3.768357075346031*^9}, {3.768357275055511*^9, 3.7683572895188885`*^9}, { 3.7684537754941835`*^9, 3.768453813213885*^9}, 3.786684377575962*^9, { 3.786684412268845*^9, 3.7866844872632594`*^9}, {3.786684540491506*^9, 3.7866845854386406`*^9}, {3.7866846822157893`*^9, 3.786684882745893*^9}, { 3.786685178950626*^9, 3.786685233195717*^9}, {3.786685494114931*^9, 3.7866855462458096`*^9}, {3.7866855886652155`*^9, 3.786685700525444*^9}, { 3.787583416298359*^9, 3.787583421968145*^9}, 3.816935166983514*^9, 3.8185889346088834`*^9, {3.881210313250187*^9, 3.8812103148553205`*^9}, { 3.881210410289939*^9, 3.881210614736026*^9}, {3.881210655955831*^9, 3.881210678114351*^9}, {3.881212501988709*^9, 3.8812126903939743`*^9}, { 3.881212764355893*^9, 3.88121279865739*^9}, 3.8812135078947144`*^9, { 3.8818020152424674`*^9, 3.881802018137377*^9}, {3.881808609496234*^9, 3.88180874421102*^9}, {3.881823814557173*^9, 3.8818238153632293`*^9}, { 3.881903990326119*^9, 3.881904007776201*^9}, {3.8819044987732973`*^9, 3.8819045868166137`*^9}, {3.881982879428274*^9, 3.88198289465664*^9}, { 3.882056131803876*^9, 3.882056134717905*^9}, 3.882065037491746*^9, { 3.882065080910858*^9, 3.882065337758348*^9}, {3.8821619174930587`*^9, 3.882162003074859*^9}, {3.882162037624195*^9, 3.8821620393929677`*^9}, { 3.882495822060247*^9, 3.882495824203086*^9}}, CellLabel-> "In[413]:=",ExpressionUUID->"4f360d6e-d091-4856-9ab9-d907f2d730b2"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (simulation experiment)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726397862908*^9}, { 3.81858697660985*^9, 3.818586979564518*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.881217589618954*^9, 3.881217594377773*^9}, {3.882063012466925*^9, 3.882063022902251*^9}, 3.882065502228348*^9, {3.8820661755074587`*^9, 3.88206617566441*^9}, {3.882150408430088*^9, 3.88215041408447*^9}, { 3.8821504968526525`*^9, 3.882150531282355*^9}, {3.882161870949678*^9, 3.882161880329682*^9}},ExpressionUUID->"9c2e6990-d836-4ccd-b21b-\ 052d4ee15ac5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"data", " ", "by", " ", "simulation", " ", "with", " ", "\[Nu]"}], "=", RowBox[{ RowBox[{"0.1", " ", "and", " ", "\[Nu]"}], "=", "0.4"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.26"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2.34"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3.21"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3.94"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.56"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5.10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5.58"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.94"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1.81"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2.59"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3.28"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3.89"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4.44"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4.93"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "polynomial", " ", "fits", " ", "to", " ", "dimensionless", " ", "data"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat2"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat3"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a3", ",", "b3"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a2", " ", "u"}], "+", RowBox[{"b2", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{ RowBox[{"a3", " ", "u"}], "+", RowBox[{"b3", " ", SuperscriptBox["u", "3"]}]}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \ \(2\)]\), \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766726409922574*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.766726823044849*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.7667376461757193`*^9}, {3.766753557627868*^9, 3.766753567823385*^9}, { 3.766753600132004*^9, 3.766753665145244*^9}, {3.76675371609384*^9, 3.7667537659916058`*^9}, {3.766753804364827*^9, 3.766753808023478*^9}, { 3.766753888049261*^9, 3.7667538883438697`*^9}, 3.768354669925649*^9, { 3.768354953226757*^9, 3.768354970698362*^9}, {3.768355007095215*^9, 3.768355024734041*^9}, {3.786677211862581*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973144`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.786677605209071*^9}, { 3.786677717034564*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.7875829483079214`*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.817522366725713*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.850882673763413*^9, 3.850882680403383*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.881210786670344*^9}, {3.881211107895405*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.881211420851748*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.88121159370508*^9}, { 3.881211624550127*^9, 3.8812116752395577`*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.881212272347547*^9, 3.881212326655923*^9}, 3.881212932784515*^9, 3.881287482607715*^9, {3.881808149177123*^9, 3.881808322076841*^9}, {3.88180839183644*^9, 3.881808424957499*^9}, { 3.881808492494951*^9, 3.881808514856808*^9}, {3.881808546913206*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.8818218155800548`*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.881823760214083*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.88190059400862*^9, 3.881900596305593*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.881903651765631*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.882062974953603*^9, 3.882062978980215*^9}, { 3.882065424011973*^9, 3.8820654735248594`*^9}, {3.8820656556559987`*^9, 3.882065996201406*^9}, {3.882066051819203*^9, 3.8820660925936446`*^9}, { 3.882066168840043*^9, 3.882066171095505*^9}, {3.882066246607629*^9, 3.8820668803161163`*^9}, {3.882161669830431*^9, 3.8821617992370844`*^9}, { 3.88216184492286*^9, 3.8821618520006866`*^9}, {3.882162060892294*^9, 3.882162062483858*^9}, {3.882162217037974*^9, 3.8821622428876038`*^9}, { 3.8821622826294003`*^9, 3.882162324501197*^9}, {3.8821659349211802`*^9, 3.8821659808423386`*^9}, {3.88216634775259*^9, 3.8821664030495605`*^9}, { 3.8821666450662093`*^9, 3.8821667233401103`*^9}, {3.8821670014879646`*^9, 3.8821670079162683`*^9}, {3.8821671748629956`*^9, 3.8821671753190937`*^9}, {3.882169168335758*^9, 3.882169255461441*^9}, 3.882493159181163*^9, {3.882495764925558*^9, 3.8824957933381877`*^9}, { 3.882495850094112*^9, 3.8824959976970925`*^9}, {3.882496029401913*^9, 3.8824960618444552`*^9}, {3.882496094482272*^9, 3.88249617964052*^9}, { 3.882496220504897*^9, 3.88249622450869*^9}, {3.8824962673626*^9, 3.882496273155483*^9}}, CellLabel-> "In[416]:=",ExpressionUUID->"d6fcdadd-20ab-4f69-b0c9-d74096902c98"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (physical experiment)", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 3.764819308912721*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, { 3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 3.766480417312395*^9}, {3.766726364104932*^9, 3.766726397862908*^9}, { 3.81858697660985*^9, 3.818586979564518*^9}, {3.818587134665669*^9, 3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, { 3.881217589618954*^9, 3.881217594377773*^9}, {3.882063012466925*^9, 3.882063022902251*^9}, 3.882065502228348*^9, 3.882150416650697*^9, { 3.882150488104493*^9, 3.88215051059935*^9}},ExpressionUUID->"9cc77e32-cdd0-4bee-9203-\ b12742da6a83"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "strongly", " ", "rounded", " ", "data", " ", "to", " ", "be", " ", "replaced", " ", "by", " ", "the", " ", "precise", " ", "measured", " ", "values"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"4.22", " ", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"L", "\[Rule]", RowBox[{"0.56", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dat4", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.0", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0", ",", "3.0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.0", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "5.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5.0", ",", "4.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "polynomial", " ", "fit", " ", "to", " ", "dimensionless", " ", "data"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ui", ",", "mi"}], "}"}], "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"1000", "t"}]], ",", FractionBox[ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "g", "*", SuperscriptBox["R", "2"]}], RowBox[{"\[CapitalEpsilon]", " ", SuperscriptBox["t", "4"]}]]}], "}"}], "&"}], ",", "dat4"}], "]"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a4", ",", "b4"}], "}"}], "=", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "ui"}], ",", RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", SuperscriptBox["ui", "3"]}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", SuperscriptBox["ui", "3"]}]}], "}"}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"ui", ".", "mi"}], ",", RowBox[{ SuperscriptBox["ui", "3"], ".", "mi"}]}], "}"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"a4", " ", "u"}], "+", RowBox[{"b4", " ", SuperscriptBox["u", "3"]}]}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "1.2"}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(u\), \(t\)]\)\>\"", ",", "\"\<\!\(\*FractionBox[\(m\\\ g\\\ \*SuperscriptBox[\(R\), \ \(2\)]\), \(\[CapitalEpsilon]\\\ \*SuperscriptBox[\(t\), \(4\)]\)]\)\>\""}], "}"}]}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, { 3.7329638807173038`*^9, 3.732963983840688*^9}, {3.7329640219057136`*^9, 3.7329640679494686`*^9}, {3.732964110609591*^9, 3.7329641238605337`*^9}, { 3.7329641586934195`*^9, 3.7329641775638523`*^9}, {3.732964213129275*^9, 3.7329642468139334`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, { 3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, { 3.732964812880664*^9, 3.732964840639957*^9}, {3.7329649084689856`*^9, 3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, { 3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 3.732965299325104*^9}, {3.732965386002489*^9, 3.732965389706509*^9}, { 3.7329654581300693`*^9, 3.732965467485167*^9}, {3.732965507989204*^9, 3.7329655085784197`*^9}, 3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {3.7330544527768817`*^9, 3.733054457152335*^9}, { 3.733054573883443*^9, 3.7330546234511395`*^9}, {3.7330643435838375`*^9, 3.7330643547895336`*^9}, {3.7330643919191055`*^9, 3.733064430340221*^9}, { 3.7331050956954737`*^9, 3.733105118905311*^9}, {3.733111108648563*^9, 3.733111152387784*^9}, {3.733111635938667*^9, 3.733111681037479*^9}, 3.733146698513293*^9, {3.733146742189515*^9, 3.733146742517947*^9}, { 3.733188268921356*^9, 3.733188270562525*^9}, {3.733456902620245*^9, 3.7334569073552113`*^9}, 3.765705905145417*^9, {3.765706272424467*^9, 3.765706305757754*^9}, {3.765706387441074*^9, 3.765706568252978*^9}, { 3.765706604881063*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 3.765857133233873*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, { 3.7664803019289956`*^9, 3.766480319352639*^9}, {3.766726409922574*^9, 3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, { 3.766726823044849*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 3.7667376461757193`*^9}, {3.766753557627868*^9, 3.766753567823385*^9}, { 3.766753600132004*^9, 3.766753665145244*^9}, {3.76675371609384*^9, 3.7667537659916058`*^9}, {3.766753804364827*^9, 3.766753808023478*^9}, { 3.766753888049261*^9, 3.7667538883438697`*^9}, 3.768354669925649*^9, { 3.768354953226757*^9, 3.768354970698362*^9}, {3.768355007095215*^9, 3.768355024734041*^9}, {3.786677211862581*^9, 3.7866772198621316`*^9}, { 3.786677258517625*^9, 3.7866772970973144`*^9}, {3.78667734452592*^9, 3.786677487664295*^9}, {3.7866775183684816`*^9, 3.786677605209071*^9}, { 3.786677717034564*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 3.786677922979863*^9}, 3.7875829483079214`*^9, {3.817522292235844*^9, 3.817522327395365*^9}, {3.817522366725713*^9, 3.8175223711802607`*^9}, { 3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, { 3.850615829178358*^9, 3.85061583665879*^9}, {3.850882673763413*^9, 3.850882680403383*^9}, {3.850975423241478*^9, 3.8509754467253647`*^9}, { 3.88121068950696*^9, 3.881210786670344*^9}, {3.881211107895405*^9, 3.8812112904758835`*^9}, 3.8812113895522423`*^9, {3.881211420851748*^9, 3.881211463658502*^9}, {3.881211530704384*^9, 3.88121159370508*^9}, { 3.881211624550127*^9, 3.8812116752395577`*^9}, {3.881211731641097*^9, 3.8812117646262436`*^9}, {3.8812118309540386`*^9, 3.8812118349675865`*^9}, {3.881211974754718*^9, 3.881212007844157*^9}, { 3.881212064823042*^9, 3.881212093576828*^9}, {3.881212194907983*^9, 3.8812122242094145`*^9}, {3.881212272347547*^9, 3.881212326655923*^9}, 3.881212932784515*^9, 3.881287482607715*^9, {3.881808149177123*^9, 3.881808322076841*^9}, {3.88180839183644*^9, 3.881808424957499*^9}, { 3.881808492494951*^9, 3.881808514856808*^9}, {3.881808546913206*^9, 3.8818085500647063`*^9}, {3.8818216779967594`*^9, 3.881821679421136*^9}, { 3.8818217245889635`*^9, 3.881821782151245*^9}, {3.8818218155800548`*^9, 3.8818218638055105`*^9}, {3.881823735078023*^9, 3.881823760214083*^9}, { 3.881900094381774*^9, 3.881900096386544*^9}, {3.8819001802014494`*^9, 3.881900198322691*^9}, {3.88190059400862*^9, 3.881900596305593*^9}, { 3.881901429125909*^9, 3.881901441878559*^9}, 3.881903651765631*^9, { 3.881904395709629*^9, 3.881904476292863*^9}, {3.8820560025192423`*^9, 3.8820560616695824`*^9}, {3.882062974953603*^9, 3.882062978980215*^9}, { 3.882065424011973*^9, 3.8820654735248594`*^9}, {3.8820656556559987`*^9, 3.882065996201406*^9}, {3.882066051819203*^9, 3.8820660925936446`*^9}, { 3.8821564670575304`*^9, 3.88215654759122*^9}, {3.8821570101230307`*^9, 3.8821570311220093`*^9}, {3.882157511892976*^9, 3.882157518580715*^9}, { 3.882161476233898*^9, 3.8821615726944876`*^9}, {3.8821616368588486`*^9, 3.8821616564410095`*^9}, {3.8821621770275884`*^9, 3.882162182401278*^9}, { 3.8824931800616117`*^9, 3.882493207149097*^9}, {3.8824953095919633`*^9, 3.88249545635437*^9}, {3.882495544971618*^9, 3.8824956359666524`*^9}, { 3.882495668325274*^9, 3.8824957035676165`*^9}, {3.8824962427626877`*^9, 3.882496251614539*^9}, {3.882496315371043*^9, 3.8824963232124114`*^9}}, CellLabel-> "In[424]:=",ExpressionUUID->"73f8cfb8-97ea-49a7-acca-be10ec775006"] }, Closed]], Cell[CellGroupData[{ Cell["Small displacement FEM simulation", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.7331849245982537`*^9, 3.7331849405062184`*^9}, { 3.733186311322669*^9, 3.7331863141198378`*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.7657068329763846`*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.766555590685497*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.816934891197394*^9}, { 3.8185891808580103`*^9, 3.818589189499062*^9}, {3.81876856459061*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.881629411483649*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.882056162050333*^9, 3.882056173944016*^9}, { 3.882063089159107*^9, 3.882063104456729*^9}, {3.882065400593013*^9, 3.8820654011268687`*^9}, {3.882065555305724*^9, 3.8820655885644617`*^9}},ExpressionUUID->"5ad1acca-50cc-4ca3-a866-\ da762d59a872"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", " ", RowBox[{"4.22", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uX", ",", "uY", ",", "uZ", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "1"}], ":", " ", "mesh"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "//.", "val"}]}], "]"}], ",", RowBox[{ RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}]}], " ", "//.", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"org", "=", RowBox[{"First", "[", RowBox[{"Ordering", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "#", "]"}], "&"}], ",", "crd"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"crd", "[", RowBox[{"[", "org", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fix", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}], ",", "0"}], "]"}], "/.", RowBox[{ RowBox[{"Point", "[", "any_", "]"}], "->", "any"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.8812818358624477`*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.8812820272948446`*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.8816314655389028`*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.8816315804554973`*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.8816361795998707`*^9, 3.8816361801216493`*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, {3.881637581637206*^9, 3.881637582386245*^9}, { 3.881637681612921*^9, 3.881637682656345*^9}, {3.8816379135998383`*^9, 3.88163791499751*^9}, {3.881638411573781*^9, 3.881638414087544*^9}, { 3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, {3.8816402341253767`*^9, 3.881640247025017*^9}, { 3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881807690275758*^9, 3.88180769040689*^9}, {3.881808811712034*^9, 3.8818088123069353`*^9}, { 3.8818098023009*^9, 3.8818098043163443`*^9}, {3.881899827652234*^9, 3.881899827740927*^9}, {3.881900438068577*^9, 3.881900439768372*^9}, { 3.8819006824575415`*^9, 3.8819006853596725`*^9}, {3.881904149147517*^9, 3.881904150093765*^9}, {3.8824935894917665`*^9, 3.882493590886983*^9}, { 3.882493655473471*^9, 3.882493668237099*^9}, 3.882493994715257*^9, { 3.882494096086979*^9, 3.8824941670781403`*^9}, {3.882494298980874*^9, 3.882494320721956*^9}, 3.882494428021493*^9, {3.882495119256623*^9, 3.882495138013758*^9}, {3.913690295991896*^9, 3.9136903005548663`*^9}}, CellLabel-> "In[429]:=",ExpressionUUID->"8a1b5cc7-4abc-4c24-ae20-d0588623975a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "2"}], ":", " ", RowBox[{"problem", " ", "deskription", " ", "tables"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "pol"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele2", "=", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "m"}], " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "org", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", RowBox[{"ele1", ",", "ele2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"ii", "++"}], "]"}], ",", "0"}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", "fix"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004116`*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432585`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735846`*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.8816362572923174`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.8816486541857834`*^9, 3.881648677610757*^9}, {3.8816491964036326`*^9, 3.8816492277071652`*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.8818080195847836`*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.8818089660348797`*^9, 3.8818090197455993`*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.882493570265463*^9, 3.8824935721346984`*^9}, 3.882493700279276*^9, {3.882494267347906*^9, 3.882494305016581*^9}, 3.882494431750765*^9}, CellLabel-> "In[438]:=",ExpressionUUID->"f432d014-8b06-4fcb-95f0-7456c47df0ef"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "3"}], ":", " ", RowBox[{"data", " ", "by", " ", "FEM", " ", "simulation"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"dat3", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "m", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uZ", "[", "org", "]"}]}], "*", "1000"}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "0", ",", "7", ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004116`*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432585`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735846`*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.8816362572923174`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.8816486541857834`*^9, 3.881648677610757*^9}, {3.8816491964036326`*^9, 3.8816492277071652`*^9}, { 3.881807574948438*^9, 3.8818076036174746`*^9}, {3.8818076405693545`*^9, 3.881807663741283*^9}, 3.8818078743967843`*^9, {3.8818079185382357`*^9, 3.88180793951931*^9}, {3.8818080195847836`*^9, 3.881808042492062*^9}, { 3.881808899612398*^9, 3.881808926498794*^9}, {3.8818089660348797`*^9, 3.8818090197455993`*^9}, 3.881809345056508*^9, {3.881809658061907*^9, 3.881809663090382*^9}, {3.881809730679174*^9, 3.88180973186058*^9}, { 3.881899853374852*^9, 3.8818998535214424`*^9}, 3.881900249624958*^9, { 3.881904188007068*^9, 3.881904197230788*^9}, {3.8819042361292324`*^9, 3.881904236287718*^9}, {3.881904271128318*^9, 3.8819042893015842`*^9}, { 3.881981371655233*^9, 3.881981375081414*^9}, {3.882493570265463*^9, 3.8824935721346984`*^9}, 3.882493700279276*^9, {3.882494216031043*^9, 3.882494253230341*^9}, {3.8824943371633673`*^9, 3.8824943423065157`*^9}, 3.882494445854312*^9, 3.8824949506061516`*^9}, CellLabel-> "In[444]:=",ExpressionUUID->"0bc09805-d817-4b40-898b-5ebbc9d77f1e"] }, Closed]], Cell[CellGroupData[{ Cell["Large displacement FEM simulation", "Subsubsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 3.6297916561604843`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, { 3.6624537703648133`*^9, 3.662453773274979*^9}, 3.685248933840145*^9, { 3.685267058363743*^9, 3.685267127373839*^9}, {3.685323461463516*^9, 3.6853234663335238`*^9}, {3.685876421183657*^9, 3.68587642352366*^9}, 3.6859482147140565`*^9, {3.686226212775403*^9, 3.686226215135407*^9}, { 3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 3.732333351257193*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, { 3.7330643803419495`*^9, 3.733064384574917*^9}, {3.7331064314352827`*^9, 3.733106433686386*^9}, {3.7331849245982537`*^9, 3.7331849405062184`*^9}, { 3.733186311322669*^9, 3.7331863141198378`*^9}, {3.764818735955555*^9, 3.764818757330291*^9}, {3.7657068324597855`*^9, 3.7657068329763846`*^9}, { 3.766476969087038*^9, 3.7664769771360793`*^9}, {3.766477197694624*^9, 3.7664771995413065`*^9}, {3.766555582509639*^9, 3.766555590685497*^9}, { 3.786678204834051*^9, 3.786678208360791*^9}, {3.786679720427352*^9, 3.786679727097021*^9}, {3.816934890146792*^9, 3.816934891197394*^9}, { 3.8185891808580103`*^9, 3.818589189499062*^9}, {3.81876856459061*^9, 3.8187685770115395`*^9}, {3.881217564232961*^9, 3.881217585781951*^9}, { 3.881629398259244*^9, 3.881629411483649*^9}, {3.881633037823718*^9, 3.8816330408580446`*^9}, {3.882056179921326*^9, 3.882056185099937*^9}, { 3.882063106937883*^9, 3.882063116665798*^9}, {3.882065564228017*^9, 3.882065594411677*^9}},ExpressionUUID->"303ece05-32ad-4e88-960a-\ 6bb799cf3661"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalEpsilon]", "\[Rule]", " ", RowBox[{"4.22", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", RowBox[{"g", " ", "\[Rule]", " ", "9.81"}], ",", RowBox[{"R", "\[Rule]", RowBox[{"0.49", "/", "2"}]}], ",", RowBox[{"t", "\[Rule]", "0.0041"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "uX", ",", "uY", ",", "uZ", ",", "\[Theta]X", ",", "\[Theta]Y", ",", "\[Theta]Z"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "1"}], ":", " ", "mesh"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]n", "=", RowBox[{"DiscretizeRegion", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"R", " ", "//.", "val"}]}], "]"}], ",", RowBox[{ RowBox[{"MaxCellMeasure", "\[Rule]", RowBox[{"(", RowBox[{"Pi", " ", RowBox[{ RowBox[{"R", "^", "2"}], "/", "nn"}]}], ")"}]}], " ", "//.", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", " ", "=", RowBox[{"MeshCoordinates", "[", "\[ScriptCapitalR]n", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"org", "=", RowBox[{"First", "[", RowBox[{"Ordering", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "#", "]"}], "&"}], ",", "crd"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"crd", "[", RowBox[{"[", "org", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pol", "=", RowBox[{"MeshCells", "[", RowBox[{"\[ScriptCapitalR]n", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fix", "=", RowBox[{ RowBox[{"MeshCells", "[", RowBox[{ RowBox[{"BoundaryMesh", "[", "\[ScriptCapitalR]n", "]"}], ",", "0"}], "]"}], "/.", RowBox[{ RowBox[{"Point", "[", "any_", "]"}], "->", "any"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.8812816103569045`*^9}, 3.881281752766385*^9, 3.881281783473477*^9, { 3.8812818358624477`*^9, 3.8812819418326592`*^9}, {3.881282004328244*^9, 3.8812820272948446`*^9}, {3.881282069205654*^9, 3.881282070124452*^9}, { 3.8812821019816976`*^9, 3.881282201338771*^9}, {3.881286828830138*^9, 3.881286831884796*^9}, {3.881287664003351*^9, 3.881287668940099*^9}, { 3.88128822424356*^9, 3.8812882247804565`*^9}, {3.881288637311291*^9, 3.881288639340893*^9}, {3.881290396543259*^9, 3.881290402452772*^9}, { 3.8812906071803226`*^9, 3.88129060757959*^9}, {3.881375678775543*^9, 3.8813756795713034`*^9}, {3.881375920217667*^9, 3.881375921333089*^9}, { 3.881375982901305*^9, 3.881375984106994*^9}, {3.881376329134333*^9, 3.8813763292613497`*^9}, {3.881376410079954*^9, 3.881376411390881*^9}, { 3.881376509443366*^9, 3.8813765103476915`*^9}, {3.881376743689297*^9, 3.881376746518368*^9}, {3.881455584849612*^9, 3.881455586825743*^9}, { 3.881629980749297*^9, 3.881629983625548*^9}, {3.881630234045879*^9, 3.8816302341858273`*^9}, {3.8816314655389028`*^9, 3.881631466288211*^9}, { 3.881631513479971*^9, 3.881631514062019*^9}, {3.8816315804554973`*^9, 3.8816315805340047`*^9}, {3.881631647088698*^9, 3.881631647763936*^9}, { 3.8816336800598125`*^9, 3.881633689439929*^9}, {3.8816361795998707`*^9, 3.8816361801216493`*^9}, {3.8816371438147573`*^9, 3.8816371450639744`*^9}, {3.881637581637206*^9, 3.881637582386245*^9}, { 3.881637681612921*^9, 3.881637682656345*^9}, {3.8816379135998383`*^9, 3.88163791499751*^9}, {3.881638411573781*^9, 3.881638414087544*^9}, { 3.881638529402946*^9, 3.881638533354944*^9}, {3.881640141166048*^9, 3.881640142533432*^9}, {3.8816402341253767`*^9, 3.881640247025017*^9}, { 3.881648189913725*^9, 3.8816482012074003`*^9}, {3.881900844720973*^9, 3.881900846361178*^9}, {3.881901862873384*^9, 3.881901865409485*^9}, { 3.881902067721775*^9, 3.881902079105772*^9}, {3.8819025253629894`*^9, 3.881902527702314*^9}, {3.881981490867894*^9, 3.881981492810197*^9}, { 3.8819822644102564`*^9, 3.881982269154549*^9}, {3.881983405466066*^9, 3.881983405647296*^9}, {3.882169824575003*^9, 3.882169825984502*^9}, { 3.882494488814298*^9, 3.88249450543427*^9}, {3.913690282944849*^9, 3.913690286328585*^9}}, CellLabel-> "In[464]:=",ExpressionUUID->"e40d0474-ba96-40e0-b4dc-74990b6df7fa"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "2"}], ":", " ", RowBox[{"problem", " ", "desciption", " ", "tables"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele1", "=", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "pol"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele2", "=", RowBox[{"{", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "m"}], " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "org", "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Join", "[", RowBox[{"ele1", ",", "ele2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "ii", "]"}], ",", RowBox[{"uY", "[", "ii", "]"}], ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Z", "[", RowBox[{"ii", "++"}], "]"}]}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", " ", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "->", "0"}], "&"}], ",", "fix"}], " ", "]"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "org", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uY", "[", "org", "]"}], "->", "0"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004116`*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432585`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735846`*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.8816362572923174`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.8816486541857834`*^9, 3.881648677610757*^9}, {3.8816491964036326`*^9, 3.8816492277071652`*^9}, { 3.8819008542756414`*^9, 3.881900859754232*^9}, {3.8819011967583857`*^9, 3.881901238113044*^9}, 3.881901296454344*^9, {3.881901346717934*^9, 3.881901411188458*^9}, {3.881901517929899*^9, 3.881901530687578*^9}, 3.881901737846433*^9, {3.881901829623014*^9, 3.881901838246963*^9}, { 3.8819022176481943`*^9, 3.881902227869177*^9}, {3.881902338594118*^9, 3.881902342490307*^9}, {3.881902388706169*^9, 3.881902398087553*^9}, { 3.8819028145630445`*^9, 3.881902823302149*^9}, 3.881903377341365*^9, { 3.88190421594077*^9, 3.881904217373233*^9}, {3.881905700868268*^9, 3.881905703835044*^9}, {3.8819057462286863`*^9, 3.881905756765298*^9}, 3.881905846664426*^9, 3.8819064645585647`*^9, {3.8819065457449875`*^9, 3.881906558207797*^9}, {3.881979717755958*^9, 3.881979722111252*^9}, { 3.8819829286033936`*^9, 3.881982930210773*^9}, {3.882494528119797*^9, 3.8824945805403776`*^9}, 3.882494636178766*^9}, CellLabel-> "In[473]:=",ExpressionUUID->"2fb73d1a-c795-4589-bf9e-50830b7d8bb6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "3"}], ":", " ", RowBox[{"data", " ", "by", " ", "FEM", " ", "simulation"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uY", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "_", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "_", "]"}], "->", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"dat4", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"NONL", ",", "sol"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "m", "]"}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uZ", "[", "org", "]"}]}], "*", "1000"}], "/.", "sol"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"m", ",", "0", ",", "7", ",", "1"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.881222212883892*^9, 3.88122229778907*^9}, { 3.881222443854233*^9, 3.881222456384448*^9}, {3.881222986131251*^9, 3.881223059173297*^9}, {3.8812791899548683`*^9, 3.881279194220287*^9}, { 3.881279284836769*^9, 3.88127935250933*^9}, {3.881279580120329*^9, 3.881279585000471*^9}, {3.881279784621027*^9, 3.881279925978841*^9}, { 3.881279966694149*^9, 3.881280021447315*^9}, {3.881280051680834*^9, 3.8812800730743313`*^9}, {3.881280103158717*^9, 3.881280112000038*^9}, { 3.8812801568014402`*^9, 3.8812801909728203`*^9}, 3.881280227322183*^9, { 3.881280307613277*^9, 3.881280325528195*^9}, {3.881280508286308*^9, 3.881280516101451*^9}, {3.8812805554195285`*^9, 3.881280585272716*^9}, { 3.881280619437128*^9, 3.881280659171822*^9}, {3.8812806893779984`*^9, 3.881280745525983*^9}, {3.8812807790061407`*^9, 3.88128086713996*^9}, { 3.88128094217719*^9, 3.8812810914854956`*^9}, {3.881281139384633*^9, 3.8812812549666986`*^9}, {3.881281292498185*^9, 3.8812813106807904`*^9}, { 3.88128134365018*^9, 3.881281346325078*^9}, {3.881281395246464*^9, 3.8812813964011497`*^9}, {3.881281436201359*^9, 3.881281462629706*^9}, { 3.8812815028580017`*^9, 3.881281504636815*^9}, {3.881281554209492*^9, 3.881281576822656*^9}, {3.881281614775635*^9, 3.88128162591912*^9}, { 3.8812822646926866`*^9, 3.881282318784873*^9}, {3.881282413673441*^9, 3.881282477280543*^9}, {3.8812847004004116`*^9, 3.881284744892775*^9}, { 3.8812849777633705`*^9, 3.881284983019682*^9}, {3.8812850507057977`*^9, 3.88128520245286*^9}, {3.881285247584407*^9, 3.88128526044875*^9}, { 3.881285408786317*^9, 3.881285453046232*^9}, {3.881285485403373*^9, 3.881285500983265*^9}, {3.881285599355725*^9, 3.8812856261134963`*^9}, { 3.8812858823368273`*^9, 3.881285928395704*^9}, {3.881374976311453*^9, 3.881375019489995*^9}, {3.881375110939423*^9, 3.8813751119786024`*^9}, { 3.8813753246213665`*^9, 3.8813753249874077`*^9}, {3.881375413078365*^9, 3.8813754237432585`*^9}, {3.8813759059601173`*^9, 3.8813759078920665`*^9}, {3.881376296371315*^9, 3.8813763018989744`*^9}, { 3.881452436507377*^9, 3.881452483712535*^9}, {3.881452561776505*^9, 3.88145259829317*^9}, {3.881452785150011*^9, 3.8814528285735846`*^9}, { 3.881453819851926*^9, 3.881453820780937*^9}, 3.881629902287943*^9, { 3.8816330537963676`*^9, 3.881633067956076*^9}, 3.881633140133834*^9, { 3.881633186781321*^9, 3.8816332033915443`*^9}, {3.8816332943931184`*^9, 3.881633369279467*^9}, {3.881633410541478*^9, 3.881633460165421*^9}, { 3.881633538972787*^9, 3.881633543921743*^9}, {3.881633596936718*^9, 3.8816336418885083`*^9}, {3.881633706948352*^9, 3.881633761371233*^9}, { 3.8816339777864056`*^9, 3.881634020051221*^9}, {3.8816340742154865`*^9, 3.881634074432324*^9}, {3.881634115338264*^9, 3.881634171561998*^9}, { 3.881634270012111*^9, 3.8816342734928217`*^9}, {3.8816343242155943`*^9, 3.881634329607917*^9}, {3.881634395840207*^9, 3.8816344014442425`*^9}, { 3.8816344710935106`*^9, 3.881634476418906*^9}, {3.881634741891348*^9, 3.881634742768635*^9}, {3.881634903880536*^9, 3.8816349049817204`*^9}, { 3.881635962740074*^9, 3.8816359768515625`*^9}, {3.8816362572923174`*^9, 3.881636258455795*^9}, {3.881636289947008*^9, 3.881636314853009*^9}, { 3.881636474231148*^9, 3.88163653599526*^9}, {3.8816365671991444`*^9, 3.88163657453016*^9}, {3.881636829611811*^9, 3.8816368317366805`*^9}, { 3.881636890920104*^9, 3.8816368925119815`*^9}, {3.881637236399575*^9, 3.8816372986436844`*^9}, {3.881637400374699*^9, 3.881637403180776*^9}, 3.88163769527988*^9, {3.8816384254305573`*^9, 3.881638427040083*^9}, { 3.881640391226668*^9, 3.881640396613613*^9}, {3.881640426658804*^9, 3.8816404276243725`*^9}, 3.8816404684472384`*^9, 3.881642198908455*^9, { 3.881642241245933*^9, 3.881642254063521*^9}, {3.8816486541857834`*^9, 3.881648677610757*^9}, {3.8816491964036326`*^9, 3.8816492277071652`*^9}, { 3.8819008542756414`*^9, 3.881900859754232*^9}, {3.8819011967583857`*^9, 3.881901238113044*^9}, 3.881901296454344*^9, {3.881901346717934*^9, 3.881901411188458*^9}, {3.881901517929899*^9, 3.881901530687578*^9}, 3.881901737846433*^9, {3.881901829623014*^9, 3.881901838246963*^9}, { 3.8819022176481943`*^9, 3.881902227869177*^9}, {3.881902338594118*^9, 3.881902342490307*^9}, {3.881902388706169*^9, 3.881902398087553*^9}, { 3.8819028145630445`*^9, 3.881902823302149*^9}, 3.881903377341365*^9, { 3.88190421594077*^9, 3.881904217373233*^9}, {3.881905700868268*^9, 3.881905703835044*^9}, {3.8819057462286863`*^9, 3.881905756765298*^9}, 3.881905846664426*^9, 3.8819064645585647`*^9, {3.8819065457449875`*^9, 3.881906558207797*^9}, {3.881979717755958*^9, 3.881979722111252*^9}, { 3.8819829286033936`*^9, 3.881982930210773*^9}, {3.882494528119797*^9, 3.882494533702*^9}, {3.882494577166047*^9, 3.882494616033735*^9}, { 3.8824949179853616`*^9, 3.8824949306371613`*^9}}, CellLabel-> "In[479]:=",ExpressionUUID->"056ddfe2-f01b-44ca-880b-4a4721dd4725"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["DISPLACEMENT ANALYSIS (week 3)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.56811615754536*^9, 3.568116161819767*^9}, { 3.59922265025865*^9, 3.599222653363055*^9}, 3.629777520582675*^9, 3.629791653258878*^9, {3.630370559869874*^9, 3.630370566297086*^9}, { 3.661821902258303*^9, 3.66182190592431*^9}, 3.685248899510096*^9, 3.685281849223243*^9, {3.685323459053513*^9, 3.685323459673514*^9}, { 3.68587640866364*^9, 3.685876411703644*^9}, {3.6862101948897667`*^9, 3.6862101984397717`*^9}, {3.686235632357339*^9, 3.68623563254734*^9}, { 3.686290377128008*^9, 3.686290380228012*^9}, {3.6863951313545313`*^9, 3.6863951457345514`*^9}, {3.6883646955890894`*^9, 3.688364697149092*^9}, 3.69079328920778*^9, 3.753071235456575*^9, 3.7866746400333786`*^9},ExpressionUUID->"ffa371b1-b6e0-6843-8302-\ 8c4c38f6a718"], Cell[CellGroupData[{ Cell["Lecture example 2.1 (bar)", "Subsubsection", CellChangeTimes->{{3.4734694905626*^9, 3.4734694918886*^9}, { 3.599224769524777*^9, 3.599224771911581*^9}, 3.686233707034644*^9, 3.686290215967782*^9, {3.6863951815146017`*^9, 3.6863951817946024`*^9}, { 3.686463495303398*^9, 3.6864634969434*^9}, {3.787624831636009*^9, 3.787624839161375*^9}, 3.819515906084639*^9},ExpressionUUID->"38909720-3933-714c-8d88-\ 33e5b9a5967d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473469518159*^9, 3.473469542105*^9}, {3.567488659560421*^9, 3.567488679996457*^9}, { 3.6293857978759193`*^9, 3.629385803008325*^9}, {3.6293859164049253`*^9, 3.629386031689128*^9}, {3.6297796999883165`*^9, 3.629779712249938*^9}, { 3.629779753418411*^9, 3.629779757864418*^9}, {3.6297799558131657`*^9, 3.629779994220433*^9}, {3.629782168783454*^9, 3.629782179984273*^9}, { 3.629782271197634*^9, 3.629782308232099*^9}, {3.62979163132524*^9, 3.6297916340240445`*^9}, {3.62987105119119*^9, 3.629871103544882*^9}, { 3.630231689415316*^9, 3.630231730349788*^9}, {3.6305529893093967`*^9, 3.63055299723485*^9}, {3.630669784679088*^9, 3.630669836330779*^9}, { 3.630669891211675*^9, 3.6306699292913427`*^9}, 3.661175262784764*^9, { 3.68519377703102*^9, 3.685193786311034*^9}, 3.685193829331094*^9, { 3.685233503917756*^9, 3.685233516277773*^9}, {3.685233597647887*^9, 3.685233615337912*^9}, {3.685233734408079*^9, 3.685233778910141*^9}, { 3.685233822710202*^9, 3.685233869000267*^9}, {3.685234136752804*^9, 3.685234139506961*^9}, 3.685234415812765*^9, {3.685234451830825*^9, 3.685234467719734*^9}, 3.6852619909866486`*^9, {3.6852629455979857`*^9, 3.6852629685880175`*^9}, 3.68526725553402*^9, {3.685270602011979*^9, 3.685270662762064*^9}, 3.685270775492222*^9, {3.685271434203144*^9, 3.685271439133151*^9}, {3.685341105577231*^9, 3.685341119183009*^9}, { 3.685341298473264*^9, 3.685341309986923*^9}, {3.685341731080008*^9, 3.685341741111581*^9}, {3.6853446026382513`*^9, 3.685344638248288*^9}, { 3.685875619502535*^9, 3.685875662152595*^9}, 3.685875776552756*^9, { 3.686357668404184*^9, 3.686357679234198*^9}, {3.69079336330791*^9, 3.690793478888513*^9}, {3.690793512022971*^9, 3.6907935419126263`*^9}, { 3.690793581973494*^9, 3.690793609445143*^9}, {3.690795505722073*^9, 3.690795509076079*^9}, {3.7537624520547013`*^9, 3.75376245992811*^9}, { 3.754127553263769*^9, 3.754127567681919*^9}, {3.754127654073234*^9, 3.754127655370629*^9}, 3.7553517003717556`*^9, {3.81951574949915*^9, 3.819515754203024*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"72324f59-4cff-1d46-9904-da1504774bd1"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.2 (beam truss)", "Subsubsection", CellChangeTimes->{ 3.4734694944314*^9, 3.599224766420371*^9, 3.686233709964648*^9, 3.686290219307787*^9, {3.686290301227902*^9, 3.686290301967902*^9}, { 3.6863951855946074`*^9, 3.686395186494609*^9}, {3.6864635001634054`*^9, 3.6864635018334074`*^9}, {3.692021469465041*^9, 3.692021471095044*^9}, 3.787624846976976*^9, 3.819515911959202*^9},ExpressionUUID->"486c1ac8-1c9b-0d45-ace0-\ 0e041bbe4a1e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "f"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.62978336224795*^9, 3.6297833821535845`*^9}, {3.629783466362533*^9, 3.629783471978543*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.62978400545268*^9, 3.62978400563988*^9}, {3.629784041629145*^9, 3.629784042237544*^9}, { 3.629784285878772*^9, 3.629784299357196*^9}, {3.629784645038203*^9, 3.6297846906682825`*^9}, {3.6297850092208424`*^9, 3.629785101651005*^9}, { 3.629785975190139*^9, 3.629786017294613*^9}, {3.629786068306703*^9, 3.6297860840939302`*^9}, {3.629786362148819*^9, 3.6297864363425493`*^9}, { 3.629786900072529*^9, 3.629786945484209*^9}, 3.629786990225087*^9, { 3.629787120366516*^9, 3.6297871260449266`*^9}, {3.629787266780774*^9, 3.629787391144192*^9}, {3.629787459706314*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.629788565935456*^9, 3.629788575529473*^9}, {3.629789227875819*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.629789333285203*^9}, { 3.629791455653332*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.629870255964194*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.630658602728892*^9}, { 3.630658768962784*^9, 3.630658991185174*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.630673485449588*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.630675282296249*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.630675469236941*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.630675737496383*^9}, {3.630675897804008*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.685252345393893*^9, 3.68525240748398*^9}, {3.685252549068148*^9, 3.685252567028177*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.685271461053181*^9, 3.685271466233188*^9}, { 3.685340224314878*^9, 3.685340242554904*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, 3.686395242074687*^9, { 3.686659082190265*^9, 3.686659133750337*^9}, {3.686659210920446*^9, 3.6866592825905457`*^9}, 3.686659319650598*^9, 3.692021466075037*^9, { 3.6920215028250885`*^9, 3.6920215243751183`*^9}, {3.692021558445167*^9, 3.692021647645292*^9}, 3.692021691165352*^9, {3.752975656227773*^9, 3.752975673716866*^9}, {3.819523472816743*^9, 3.819523475913159*^9}, { 3.8197802724004292`*^9, 3.819780276349952*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"e8d7eecb-9b71-e540-af82-5d76cd8adcb5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.7876248508872967`*^9, 3.8195159139209347`*^9},ExpressionUUID->"dd4acb81-beb4-1946-b2be-\ 6572359f7529"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, {3.753006222114415*^9, 3.753006264963928*^9}, { 3.787625003286798*^9, 3.78762500483702*^9}, 3.819780438938782*^9}, CellLabel->"In[13]:=",ExpressionUUID->"ab0e2e84-3b5a-2d42-a4d7-42787183ee94"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.4 (beam)", "Subsubsection", CellChangeTimes->{ 3.4734694944314*^9, 3.599224766420371*^9, 3.686233709964648*^9, 3.686290219307787*^9, {3.686290301227902*^9, 3.686290301967902*^9}, { 3.686377587511134*^9, 3.686377589931137*^9}, 3.6864635125734224`*^9, { 3.6920273329210854`*^9, 3.692027334031087*^9}, {3.787624857073228*^9, 3.787624858265213*^9}, 3.819515917947086*^9},ExpressionUUID->"e2bd0353-9b80-2c44-b9cb-\ 0125853e1423"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ "A", ",", "\[CapitalIota]yy", ",", "\[CapitalIota]zz", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.629783307211053*^9, 3.629783319737875*^9}, { 3.62978336224795*^9, 3.6297833821535845`*^9}, {3.629783466362533*^9, 3.629783471978543*^9}, {3.629783540353462*^9, 3.629783541960265*^9}, { 3.629783803978326*^9, 3.629783888920475*^9}, {3.62978400545268*^9, 3.62978400563988*^9}, {3.629784041629145*^9, 3.629784042237544*^9}, { 3.629784285878772*^9, 3.629784299357196*^9}, {3.629784645038203*^9, 3.6297846906682825`*^9}, {3.6297850092208424`*^9, 3.629785101651005*^9}, { 3.629785975190139*^9, 3.629786017294613*^9}, {3.629786068306703*^9, 3.6297860840939302`*^9}, {3.629786362148819*^9, 3.6297864363425493`*^9}, { 3.629786900072529*^9, 3.629786945484209*^9}, 3.629786990225087*^9, { 3.629787120366516*^9, 3.6297871260449266`*^9}, {3.629787266780774*^9, 3.629787391144192*^9}, {3.629787459706314*^9, 3.629787510344002*^9}, 3.629788110882656*^9, {3.629788171800763*^9, 3.6297881758411703`*^9}, { 3.629788565935456*^9, 3.629788575529473*^9}, {3.629789227875819*^9, 3.629789232243826*^9}, {3.629789276625904*^9, 3.629789333285203*^9}, { 3.629791455653332*^9, 3.6297914630945444`*^9}, {3.629869949096054*^9, 3.629870013430567*^9}, {3.629870255714593*^9, 3.629870255964194*^9}, { 3.630553045404605*^9, 3.6305530553091717`*^9}, {3.6305893694622536`*^9, 3.630589404874316*^9}, {3.6306585642124243`*^9, 3.630658602728892*^9}, { 3.630658768962784*^9, 3.630658991185174*^9}, 3.630659024070032*^9, { 3.630673454818836*^9, 3.630673485449588*^9}, {3.630675026717631*^9, 3.6306750934294467`*^9}, {3.63067528213724*^9, 3.630675282296249*^9}, { 3.630675363622901*^9, 3.630675390674448*^9}, {3.630675423882347*^9, 3.630675469236941*^9}, 3.6306755736573396`*^9, {3.6306756175005193`*^9, 3.6306756249209433`*^9}, {3.630675655290681*^9, 3.6306756841903334`*^9}, { 3.630675727032784*^9, 3.630675737496383*^9}, {3.630675897804008*^9, 3.630675909644429*^9}, 3.630739547935058*^9, {3.685252345393893*^9, 3.68525240748398*^9}, {3.685252549068148*^9, 3.685252567028177*^9}, { 3.6852540883581915`*^9, 3.6852541237762175`*^9}, 3.6852541568981113`*^9, { 3.685261324675716*^9, 3.6852613495857506`*^9}, 3.685261974676626*^9, 3.685267244644004*^9, {3.685271461053181*^9, 3.685271466233188*^9}, { 3.685340224314878*^9, 3.685340242554904*^9}, {3.6858757975527844`*^9, 3.685875800692789*^9}, 3.685875976643035*^9, {3.686377605391159*^9, 3.6863776382012053`*^9}, {3.686379134233299*^9, 3.6863791914533796`*^9}, { 3.692059670428982*^9, 3.692059704899029*^9}, {3.723798411849661*^9, 3.723798434904174*^9}, {3.723798791899322*^9, 3.7237987936592455`*^9}, { 3.723799349340538*^9, 3.723799350506401*^9}, 3.753006485592584*^9, { 3.75300740903244*^9, 3.7530074156090126`*^9}, {3.8197805328576946`*^9, 3.8197805360133047`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"8bd255ca-af29-8340-839c-135b9b9c9c27"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.5 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.473469503105*^9, {3.599225885667139*^9, 3.599225887617143*^9}, { 3.686233649684563*^9, 3.686233650204564*^9}, 3.686290918768766*^9, 3.686291030808923*^9, {3.6863793069335413`*^9, 3.6863793075335417`*^9}, 3.686463514823425*^9, {3.6920597199190507`*^9, 3.692059720879052*^9}, { 3.692059925419338*^9, 3.692059927729341*^9}, {3.787624862002798*^9, 3.7876248627953*^9}, 3.81951592114197*^9},ExpressionUUID->"cfa9c1fd-46fb-ed41-aa50-\ 4d96d79b1051"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.442646954776645*^9, 3.442646959269444*^9}, { 3.630368423748622*^9, 3.630368519220789*^9}, {3.6303685521992474`*^9, 3.6303685620584645`*^9}, 3.6303705303858223`*^9, {3.685262281457055*^9, 3.685262388467205*^9}, {3.685262467037316*^9, 3.685262481977336*^9}, { 3.68526278509776*^9, 3.685262791257769*^9}, 3.685267202483945*^9, { 3.685271553953312*^9, 3.685271559193319*^9}, {3.685343078299064*^9, 3.685343089408699*^9}, 3.686379355343609*^9, {3.6863831012088532`*^9, 3.68638310635886*^9}, {3.686394209423241*^9, 3.686394266353321*^9}, 3.68760004884201*^9, {3.692059987549425*^9, 3.692060000999444*^9}, 3.692060112739601*^9, {3.692060203029727*^9, 3.692060219839751*^9}, { 3.723943463177676*^9, 3.723943469317417*^9}, {3.723943597251667*^9, 3.723943612704048*^9}, {3.724054731755507*^9, 3.724054735286746*^9}, { 3.753007457114498*^9, 3.7530075727121496`*^9}, {3.8197805851870413`*^9, 3.81978060109126*^9}, {3.8197811716809254`*^9, 3.8197811892458363`*^9}, { 3.8197812993773036`*^9, 3.819781344958915*^9}, {3.849338627434058*^9, 3.849338634162207*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"dd3bc962-19f2-0a47-a731-79e438dcc751"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6a (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.755435763828392*^9, { 3.7876248662926164`*^9, 3.7876248671217155`*^9}, 3.819515922929814*^9},ExpressionUUID->"74850f1a-3997-8042-ad60-\ 077a78411e28"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "block", " ", "to", " ", "localize", " ", "some", " ", "variables"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "val", ",", "w", ",", "E\[Sigma]", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol", ",", "w0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox["x", "L"], " ", ")"}], "2"], RowBox[{"a", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"E\[Sigma]", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], "*", RowBox[{"\[CapitalEpsilon]", "/", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}], "]"}], ".", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["t", "3"], "12"], "E\[Sigma]"}], ")"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}], ",", RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]}], "}"}]}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wext", "[", "w_", "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "p"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], "+", RowBox[{"\[Delta]wext", "[", "w", "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["{", "OperatorCharacter"], RowBox[{ StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], ",", RowBox[{"H", ">", "0"}]}], "}"}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", "=", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}]}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"w0", " ", "//.", "val"}], " ", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4467277951594*^9, 3.4467279649186*^9}, 3.446728037053*^9, {3.4467281489206*^9, 3.4467281816806*^9}, { 3.4467282630708*^9, 3.4467282697788*^9}, 3.4467284401292*^9, { 3.574470787150603*^9, 3.5744707892254057`*^9}, {3.574470823030665*^9, 3.5744708311270795`*^9}, {3.5744708665859413`*^9, 3.574470916303229*^9}, { 3.5744709579553022`*^9, 3.5744709639145126`*^9}, {3.5744710148018017`*^9, 3.574471033974235*^9}, 3.604299208289191*^9, {3.604299253819795*^9, 3.604299278050181*^9}, {3.604299318865515*^9, 3.6042993269519796`*^9}, { 3.604305825073493*^9, 3.604305908252839*^9}, {3.6043059427601*^9, 3.604305989248181*^9}, {3.604306056094299*^9, 3.604306314961153*^9}, { 3.604308274382595*^9, 3.604308484499364*^9}, {3.604308525933037*^9, 3.604308791414303*^9}, {3.604308992623457*^9, 3.604309008441884*^9}, { 3.6043109233452473`*^9, 3.604311002296986*^9}, {3.604311041094255*^9, 3.604311044713461*^9}, {3.604311077301918*^9, 3.604311301021912*^9}, 3.604311474057415*^9, {3.604311572431188*^9, 3.604311574973995*^9}, { 3.604311620541672*^9, 3.604311622413676*^9}, {3.604311654861735*^9, 3.604311738571479*^9}, {3.604311961932672*^9, 3.604311987984718*^9}, { 3.604312252108781*^9, 3.604312271562016*^9}, {3.604312318159297*^9, 3.604312461367549*^9}, {3.604312525982863*^9, 3.604312531801673*^9}, { 3.604312575060549*^9, 3.6043125754037495`*^9}, {3.604312772666098*^9, 3.604312785458118*^9}, {3.636082009030026*^9, 3.6360821021793537`*^9}, { 3.636082135359248*^9, 3.6360821994179153`*^9}, {3.6360822411353016`*^9, 3.636082308140134*^9}, {3.636082428925042*^9, 3.636082467283236*^9}, 3.636082772513695*^9, {3.636455026326277*^9, 3.636455043447257*^9}, 3.63645529332755*^9, 3.636455373217118*^9, {3.636455466633462*^9, 3.6364555214936*^9}, 3.6673026911198535`*^9, {3.688993360197467*^9, 3.688993409407536*^9}, {3.688993441347581*^9, 3.68899349791766*^9}, { 3.688998643522042*^9, 3.688998810972276*^9}, {3.689070158580252*^9, 3.6890701724702716`*^9}, {3.75186550410758*^9, 3.7518656604145575`*^9}, { 3.751865728032886*^9, 3.751865773303449*^9}, {3.751865812403625*^9, 3.7518658214955225`*^9}, {3.751865855237538*^9, 3.7518658598771863`*^9}, { 3.7518659717099*^9, 3.751866085179107*^9}, 3.751970256071211*^9, { 3.753762979087547*^9, 3.7537629902408724`*^9}, {3.753764460655489*^9, 3.753764491257679*^9}, {3.755352253831594*^9, 3.755352276164716*^9}, { 3.787485543690708*^9, 3.787485549161389*^9}, 3.787485623549152*^9, { 3.787486067951891*^9, 3.787486076053173*^9}, {3.787494602777807*^9, 3.7874946422828565`*^9}, {3.78749467607176*^9, 3.78749468646475*^9}, { 3.787535715793891*^9, 3.787535739520609*^9}, {3.787583561143423*^9, 3.78758356240777*^9}, {3.819515723763521*^9, 3.819515731584694*^9}, { 3.85063826104118*^9, 3.8506382622126656`*^9}, {3.85069882110884*^9, 3.850699020708857*^9}, {3.850790712020523*^9, 3.850790722706362*^9}, { 3.850790761779279*^9, 3.850790798616454*^9}, {3.850790863990443*^9, 3.85079088717745*^9}, {3.851132701102967*^9, 3.851132856682681*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"ea714ff2-6bb7-1641-9aea-3ac3298cf160"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6b (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403304`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322457`*^9}, 3.8195159245188594`*^9},ExpressionUUID->"a8c8a29f-35b9-2b4b-bf53-\ f18e24a5398c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "7", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "3", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "7", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"H", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "7", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "7", "]"}], ",", RowBox[{"\[Theta]Y", "[", "7", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "7", "]"}], "/.", "sol"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585377`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851132967713168*^9, 3.851132969332811*^9}, {3.9140365190689354`*^9, 3.914036598321518*^9}, {3.91403668302675*^9, 3.914036690858591*^9}, { 3.91411537678154*^9, 3.91411537932197*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"9bc781d3-7c6a-3044-b668-6e95fbe8ea5b"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 2.6c (Plate bending mode)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403304`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787583842760546*^9, 3.787583846863057*^9}, {3.787624871323914*^9, 3.787624892334219*^9}, 3.819515926239003*^9},ExpressionUUID->"03569d76-8463-7e41-b498-\ dc8c543ea4b7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"p", "\[Rule]", RowBox[{"10", "*", "\[CapitalEpsilon]", RowBox[{ RowBox[{"(", RowBox[{"t", "/", "L"}], ")"}], "^", "3"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"crd", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "H"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}], "/", "2"}]}], "}"}], " ", "/.", "val"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"seg", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mrk", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"crd", ",", "nod", ",", "seg", ",", "mrk"}], "}"}], "=", RowBox[{"TRIANGULATE", "[", RowBox[{ RowBox[{"{", RowBox[{"seg", ",", "mrk"}], "}"}], ",", "crd", ",", "0.004"}], "]"}]}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"MeshRegion", "[", RowBox[{"crd", ",", "nod"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585377`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.787583859418512*^9, {3.787584745638142*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, { 3.787626222566106*^9, 3.7876263421533403`*^9}, {3.787626618958929*^9, 3.787626769278859*^9}, {3.78762684083017*^9, 3.787626977343978*^9}, { 3.787627036414548*^9, 3.787627070893828*^9}, {3.787627116121263*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, { 3.787627439600284*^9, 3.78762754940958*^9}, {3.787627582858582*^9, 3.78762760510789*^9}, {3.787627643428895*^9, 3.787627945738302*^9}, { 3.787627998554865*^9, 3.7876280606848803`*^9}, {3.787628100992851*^9, 3.787628119386298*^9}, {3.787628305002683*^9, 3.787628320747191*^9}, { 3.787628360297442*^9, 3.787628369532871*^9}, {3.7876284743277445`*^9, 3.78762853794334*^9}, {3.787628585293813*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.787629511602801*^9, { 3.787629704647373*^9, 3.787629705628329*^9}, {3.787629738731262*^9, 3.787629757779501*^9}, 3.787629810670388*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.787629992849468*^9, {3.787650664761368*^9, 3.7876506804881225`*^9}, {3.787653344430348*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, 3.78765405058292*^9, { 3.78765411755648*^9, 3.7876541249132113`*^9}, {3.787654198335023*^9, 3.787654200402335*^9}, {3.787654259858419*^9, 3.787654273263777*^9}, { 3.787654576327304*^9, 3.787654600865675*^9}, {3.787654632137179*^9, 3.787654660777486*^9}, {3.849339047133091*^9, 3.84933905664736*^9}, { 3.850637993079445*^9, 3.8506380126114783`*^9}, {3.850638046294045*^9, 3.8506380669349008`*^9}, {3.850638100377042*^9, 3.85063810577764*^9}, { 3.8506382329360204`*^9, 3.850638238073007*^9}, 3.8507911757405424`*^9, { 3.850791329287785*^9, 3.8507913294289546`*^9}, {3.850791394259633*^9, 3.850791394433782*^9}, {3.850791437007037*^9, 3.8507914371461887`*^9}, { 3.850791661541446*^9, 3.85079166166672*^9}, {3.850791947541059*^9, 3.850791948524747*^9}, {3.91403696425935*^9, 3.9140369643849125`*^9}, { 3.914037007257742*^9, 3.9140370073471546`*^9}, {3.914037052151785*^9, 3.914037077662985*^9}, {3.914115294246872*^9, 3.914115302713714*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"06493582-5486-6647-8214-8f28c0e2cb6c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "condition", " ", "at", " ", "the", " ", "clamped", " ", "boundaries"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bnd2", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "2"}], "]"}]}], "]"}], "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bnd4", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Pick", "[", RowBox[{"seg", ",", RowBox[{"Thread", "[", RowBox[{"mrk", "\[Equal]", "4"}], "]"}]}], "]"}], "/.", RowBox[{ RowBox[{"Line", "[", "a_", "]"}], "->", "a"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{"Flatten", "[", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]X", "[", "#", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "#", "]"}], "\[Rule]", "0"}]}], "}"}], "&"}], ",", RowBox[{"Join", "[", RowBox[{"bnd2", ",", "bnd4"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"problem", " ", "decription"}], "*)"}], "\n", RowBox[{ RowBox[{"ii", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "p"}]}], "}"}]}], "}"}], ",", "#"}], "}"}], " ", "&"}], ",", "nod"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "ii", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "ii", "]"}], ",", RowBox[{"\[Theta]Y", "[", RowBox[{"ii", "++"}], "]"}], ",", "0"}], "}"}]}], "}"}], " ", "&"}], ",", "crd"}], "]"}], " ", "/.", "cnd"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"displacement", " ", "solution"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", "val"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", "sol"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"uZ", "[", "5", "]"}], " ", "/.", "sol"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "sol", "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585377`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.787583859418512*^9, {3.787584745638142*^9, 3.787584763036994*^9}, {3.787626017181223*^9, 3.787626056127921*^9}, { 3.787626222566106*^9, 3.7876263421533403`*^9}, {3.787626618958929*^9, 3.787626769278859*^9}, {3.78762684083017*^9, 3.787626977343978*^9}, { 3.787627036414548*^9, 3.787627070893828*^9}, {3.787627116121263*^9, 3.787627166521246*^9}, {3.787627218096628*^9, 3.787627360333486*^9}, { 3.787627439600284*^9, 3.78762754940958*^9}, {3.787627582858582*^9, 3.78762760510789*^9}, {3.787627643428895*^9, 3.787627945738302*^9}, { 3.787627998554865*^9, 3.7876280606848803`*^9}, {3.787628100992851*^9, 3.787628119386298*^9}, {3.787628305002683*^9, 3.787628320747191*^9}, { 3.787628360297442*^9, 3.787628369532871*^9}, {3.7876284743277445`*^9, 3.78762853794334*^9}, {3.787628585293813*^9, 3.787628625163664*^9}, { 3.7876286848615*^9, 3.7876286910090876`*^9}, 3.787629511602801*^9, { 3.787629704647373*^9, 3.787629705628329*^9}, {3.787629738731262*^9, 3.787629757779501*^9}, 3.787629810670388*^9, {3.787629859960314*^9, 3.787629902017136*^9}, 3.787629992849468*^9, {3.787650664761368*^9, 3.7876506804881225`*^9}, {3.787653344430348*^9, 3.787653351724442*^9}, { 3.787653758995246*^9, 3.787653955639387*^9}, {3.78765405058292*^9, 3.787654070902216*^9}, 3.787654213377517*^9, {3.787654285875464*^9, 3.787654287552429*^9}, {3.787654363512497*^9, 3.787654382879185*^9}, 3.78771085179297*^9, {3.84933901209382*^9, 3.849339018841712*^9}, { 3.850638127788494*^9, 3.850638129701925*^9}, {3.850638173389373*^9, 3.8506381744526567`*^9}, {3.850791086419498*^9, 3.850791100119047*^9}, { 3.850791460607442*^9, 3.8507914660338907`*^9}, {3.914036857456402*^9, 3.914036903584659*^9}, {3.914036933629257*^9, 3.914036943956938*^9}, { 3.914036983562092*^9, 3.9140369910654297`*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"1d18d613-be20-ea44-8dcd-3c6a93ec2787"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (bar truss)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.5674300455873165`*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, {3.686462478831975*^9, 3.6864624804619775`*^9}, {3.692004483813607*^9, 3.692004508753642*^9}, 3.787624916590842*^9},ExpressionUUID->"774a9f3e-bf4b-1945-8fe2-\ b9a4562ee9eb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.686462484531983*^9, 3.686462628752185*^9}, {3.6864627547623615`*^9, 3.686462780662398*^9}, 3.687600063012029*^9, {3.692004516933654*^9, 3.69200472173394*^9}, {3.7238001148135943`*^9, 3.72380011594358*^9}, { 3.7552812833582325`*^9, 3.755281465277815*^9}, {3.755281499276145*^9, 3.755281574314885*^9}, {3.819777247860895*^9, 3.819777263728089*^9}}, CellLabel-> "In[233]:=",ExpressionUUID->"4652bec0-c735-1c46-a7d0-afd263405abc"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam structure)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.5674300455873165`*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, 3.686463173752948*^9, 3.692004488803614*^9, {3.692004765984002*^9, 3.6920047817840242`*^9}, 3.7876249198908176`*^9},ExpressionUUID->"083a3150-1dbf-b442-9764-\ ef13d79ecff1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, 3.6876000739430437`*^9, {3.69200479275404*^9, 3.6920050211343594`*^9}, { 3.723800088983532*^9, 3.723800090369502*^9}, {3.755281662771347*^9, 3.755281668907722*^9}, {3.819777312265813*^9, 3.8197773157181125`*^9}, { 3.819781904225833*^9, 3.819781980419295*^9}, {3.819782020668747*^9, 3.819782026383217*^9}}, CellLabel-> "In[238]:=",ExpressionUUID->"b6f79569-3567-8e48-a69f-739b9a717d5e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, 3.567430048036519*^9, {3.567430197047981*^9, 3.567430205846396*^9}, { 3.5992247831280007`*^9, 3.599224789570812*^9}, {3.686233716864658*^9, 3.6862337397746897`*^9}, {3.68629059311831*^9, 3.6862906012683215`*^9}, 3.692004491293617*^9, {3.692005080664443*^9, 3.692005087424453*^9}, 3.78762492757936*^9},ExpressionUUID->"2c0c10d4-3a3e-8f47-a3e9-\ 4f4b2e00ba91"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", "M"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.567430226922035*^9, 3.567430240790459*^9}, {3.567488739432561*^9, 3.567488848804353*^9}, { 3.567489228738623*^9, 3.5674892390034404`*^9}, {3.62978936549926*^9, 3.629789551950788*^9}, {3.629790193501915*^9, 3.62979028126767*^9}, { 3.629791512889832*^9, 3.62979152889546*^9}, 3.629791607815998*^9, { 3.629870491103406*^9, 3.629870525875867*^9}, {3.630569827149594*^9, 3.630569846992729*^9}, {3.630570058718839*^9, 3.630570068503399*^9}, 3.6305701178622217`*^9, {3.630570274365174*^9, 3.630570286132846*^9}, { 3.630588429326602*^9, 3.6305884379378176`*^9}, {3.630588892460216*^9, 3.6305889218974676`*^9}, {3.6305890060752153`*^9, 3.630589009351221*^9}, { 3.630589067086923*^9, 3.630589069551728*^9}, {3.685260934525169*^9, 3.6852609544951973`*^9}, {3.685260985325241*^9, 3.685261056135341*^9}, { 3.6852611137454205`*^9, 3.685261294805674*^9}, 3.685261943976583*^9, 3.685267231203985*^9, {3.6852714918932247`*^9, 3.6852714982332335`*^9}, { 3.685341844218479*^9, 3.685341907732112*^9}, {3.685876041473126*^9, 3.6858760505831385`*^9}, 3.686290656018399*^9, {3.686290701298462*^9, 3.6862907191684866`*^9}, 3.6876000892040653`*^9, {3.692005099424469*^9, 3.692005126334507*^9}, {3.692005295634743*^9, 3.692005364734839*^9}, { 3.6920073658081074`*^9, 3.692007368868112*^9}, {3.755281747342649*^9, 3.7552817544032793`*^9}, {3.8197773382954226`*^9, 3.819777342270657*^9}, 3.8197821573500376`*^9}, CellLabel-> "In[241]:=",ExpressionUUID->"1c8001ee-ecf2-ce49-b6ad-1d4ad2e15a0d"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam truss)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, {3.473061742094*^9, 3.473061762285*^9}, 3.567430050922524*^9, {3.567431829809649*^9, 3.56743183009045*^9}, { 3.567431908886188*^9, 3.567431917965404*^9}, {3.599224811863251*^9, 3.599224812268852*^9}, 3.686290397238036*^9, {3.68646345367334*^9, 3.6864634569533443`*^9}, 3.6864663436772566`*^9, {3.686650112822079*^9, 3.6866501251020966`*^9}, {3.692007265767968*^9, 3.692007266607969*^9}, { 3.723800212618948*^9, 3.723800221804382*^9}, 3.787624930628697*^9},ExpressionUUID->"ddad0d8b-a119-454e-8f92-\ 6eac9f83500d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "f"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.4426465892856426`*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4730617731*^9, 3.567431929993025*^9, { 3.567431974016302*^9, 3.5674320810480905`*^9}, {3.567489090990381*^9, 3.567489159552501*^9}, {3.629790618836662*^9, 3.629790760937312*^9}, 3.629790820435816*^9, 3.629791112530729*^9, {3.629791153356*^9, 3.629791155321604*^9}, {3.629791373097986*^9, 3.629791381459601*^9}, { 3.630553231368241*^9, 3.6305532595738544`*^9}, {3.685261672976204*^9, 3.685261743386302*^9}, {3.68526183461643*^9, 3.6852619078265347`*^9}, 3.685262033236707*^9, {3.68526207754677*^9, 3.685262079426772*^9}, 3.6852672173839655`*^9, {3.6852715282732754`*^9, 3.685271533543282*^9}, { 3.685346747734944*^9, 3.685346764006874*^9}, 3.687600229404261*^9, 3.6920072921580048`*^9, {3.6920172043090706`*^9, 3.692017263929154*^9}, { 3.692017430049386*^9, 3.692017460239428*^9}, {3.692017504419491*^9, 3.692017581889599*^9}, {3.7238003598908434`*^9, 3.72380039128267*^9}, { 3.755281842923458*^9, 3.755281878876894*^9}, 3.7552820401590757`*^9, { 3.755282088789769*^9, 3.7552820920530305`*^9}, {3.819782282769621*^9, 3.819782296979185*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"e5b6fa0e-29e3-3941-9418-cb2b00c60dc9"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, 3.787624933146837*^9},ExpressionUUID->"1db0c3dd-f7a5-764b-8206-\ db414215420b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.819782394768776*^9, 3.819782395299322*^9}, { 3.850699113589163*^9, 3.850699114830697*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"94f926cc-6ab4-664d-9c35-341e269f4d02"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "Subsubsection", CellChangeTimes->{{3.473061354483*^9, 3.473061370995*^9}, {3.473061504827*^9, 3.473061506814*^9}, 3.473061752673001*^9, 3.5674300455873165`*^9, 3.567430154740707*^9, {3.599224775421587*^9, 3.599224775795988*^9}, { 3.686233712964652*^9, 3.686233737814687*^9}, 3.6862904664481325`*^9, 3.686458624014577*^9, 3.686463177452954*^9, {3.686463277853094*^9, 3.686463284393102*^9}, 3.692004496313625*^9, {3.6920057803254223`*^9, 3.692005780945423*^9}, 3.723800228134458*^9, 3.787624935467222*^9},ExpressionUUID->"a8a50d00-bfa6-e540-bc4d-\ e5edd1180133"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"m", " ", "g"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.442646584028444*^9, 3.442646589285642*^9}, { 3.442646804859646*^9, 3.442646838774046*^9}, {3.473061388457*^9, 3.473061428737*^9}, 3.4734695779694*^9, {3.56748861907835*^9, 3.567488647267599*^9}, {3.5674887133961153`*^9, 3.567488713786116*^9}, { 3.629779795335684*^9, 3.629779927389916*^9}, {3.6297874043730154`*^9, 3.629787426509455*^9}, {3.630553071672108*^9, 3.630553079300544*^9}, { 3.630675957233904*^9, 3.630675996863765*^9}, {3.630676099185744*^9, 3.630676142683233*^9}, {3.630739581085117*^9, 3.63073959471954*^9}, { 3.685260807414992*^9, 3.685260834245029*^9}, 3.685261964306611*^9, 3.685267237733994*^9, {3.6852714775732045`*^9, 3.6852714824832115`*^9}, { 3.68534178007981*^9, 3.685341824245337*^9}, {3.685342348146302*^9, 3.68534237731597*^9}, {3.685344715012679*^9, 3.685344741643202*^9}, { 3.6862904953181734`*^9, 3.6862905374482317`*^9}, 3.687600158424163*^9, { 3.692005777055418*^9, 3.6920058190554767`*^9}, {3.692007331208059*^9, 3.69200733928807*^9}, {3.723800525178776*^9, 3.7238005261261005`*^9}, { 3.755282243395219*^9, 3.755282245406639*^9}, {3.755282315713289*^9, 3.755282333070498*^9}, {3.81977742531068*^9, 3.8197774297587557`*^9}, { 3.819782480155594*^9, 3.819782595987687*^9}}, CellLabel-> "In[401]:=",ExpressionUUID->"76cc8759-4e33-bd4e-aec6-8841e2bd8988"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, {3.6862917162198825`*^9, 3.6862917246998944`*^9}, 3.686463531723449*^9, 3.692004498783628*^9, { 3.692006070175828*^9, 3.692006073605833*^9}, 3.72380023043182*^9, 3.787624938042087*^9},ExpressionUUID->"b1b1aaf4-aeff-6845-98a6-\ 92f910f333b7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", " ", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"p", " ", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.687415123418954*^9, 3.6874151238689547`*^9}, 3.687415669729719*^9, {3.692006063845819*^9, 3.692006215986033*^9}, { 3.692006278026119*^9, 3.692006360616235*^9}, {3.72380056109401*^9, 3.723800562397469*^9}, {3.755282537168726*^9, 3.755282773413573*^9}, { 3.755283052582584*^9, 3.755283052984254*^9}, {3.819778134314925*^9, 3.819778134798916*^9}, {3.819778172830922*^9, 3.819778178063283*^9}, { 3.819778263451173*^9, 3.8197782788524485`*^9}, {3.819782701677379*^9, 3.8197828017916217`*^9}, {3.8506991448914785`*^9, 3.850699152453859*^9}, { 3.914037366243889*^9, 3.9140373804521065`*^9}}, CellLabel-> "In[256]:=",ExpressionUUID->"ac9e5b7c-38f7-7b4f-ac66-50ee2838c10f"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.723800751264373*^9, 3.723800756977186*^9}, 3.787624940487248*^9},ExpressionUUID->"d503fa5f-680d-1846-bcff-\ bd4d6955aec5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.686650165202153*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, 3.723800734382908*^9, {3.723801165592532*^9, 3.72380116701786*^9}, {3.755346276432062*^9, 3.755346282581628*^9}, { 3.819782887020639*^9, 3.8197829001345263`*^9}, {3.850699178533646*^9, 3.850699180254986*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"c4722159-037d-b544-823e-d974832b830b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (structure)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686463534413453*^9, 3.692004501493633*^9, {3.723800620598589*^9, 3.723800620691759*^9}, {3.723801233232855*^9, 3.7238012573010836`*^9}, 3.787624943642918*^9},ExpressionUUID->"f44b747f-ee4f-8046-8090-\ 6ceb87fa79b0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ",", RowBox[{"L", ">", "0"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.6920064252563243`*^9, 3.692006513386449*^9}, {3.692007015637617*^9, 3.69200708896772*^9}, {3.755346344589837*^9, 3.755346363639088*^9}, { 3.819782973965758*^9, 3.8197829746637726`*^9}, {3.850699199483954*^9, 3.850699210218806*^9}, {3.9140374252634287`*^9, 3.91403743362931*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"3f37e6c7-6a8d-ef4c-8f15-c922f2f2aa94"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate bending mode)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.75535162028418*^9, 3.755351621212493*^9}, 3.755438873215465*^9, { 3.755438925281444*^9, 3.75543892920196*^9}, 3.755438960659221*^9, 3.787624948518618*^9, 3.7877081438848276`*^9, 3.7877106066678777`*^9},ExpressionUUID->"25f32072-ab58-4246-bb90-\ 8030f206f706"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]W", ",", "\[CapitalOmega]", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", FractionBox["y", "L"]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"w", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "L"}], ",", RowBox[{"y", "\[Rule]", "L"}]}], "}"}]}], "]"}], " ", "F"}]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"L", "/", "2"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"L", "/", "2"}]}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146637`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625747`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, 3.755346424741544*^9, {3.7553464606567307`*^9, 3.755346499889244*^9}, { 3.7553465641565332`*^9, 3.7553465866992493`*^9}, 3.755352181219705*^9, { 3.8197830540070057`*^9, 3.819783114655628*^9}, {3.819783147386803*^9, 3.819783172063084*^9}, {3.8197928508538337`*^9, 3.819792907159875*^9}, { 3.850699232073991*^9, 3.850699376103595*^9}, {3.8511331557648935`*^9, 3.851133177216421*^9}}, CellLabel-> "In[268]:=",ExpressionUUID->"252774d7-b0e1-6843-a03b-a93eff5e4031"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar structure)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, { 3.7553481278960447`*^9, 3.75534813971142*^9}, {3.755351432742616*^9, 3.75535143857418*^9}, {3.881205298470283*^9, 3.881205300914299*^9}},ExpressionUUID->"9a200cb6-cac1-9344-ab21-\ 6a370b4ca6c9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", RowBox[{"P", "/", "L"}]}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "P"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.755351451611568*^9, 3.755351510181407*^9}, {3.755351564011986*^9, 3.7553515656706686`*^9}, {3.787709262831045*^9, 3.78770926747865*^9}, { 3.8197897248576317`*^9, 3.81978972525374*^9}, {3.81979129812329*^9, 3.819791303703355*^9}, 3.819791338734643*^9, {3.850699536859164*^9, 3.85069953805099*^9}}, CellLabel-> "In[269]:=",ExpressionUUID->"9fb96039-25de-6145-bef4-9c877abdc30c"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar element)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, { 3.473061806072*^9, 3.4730618092860003`*^9}, 3.567430053590129*^9, 3.567430291662147*^9, {3.59922479409482*^9, 3.5992247947344213`*^9}, 3.686233727874673*^9, 3.686290754588537*^9, 3.69200449359362*^9, { 3.6920055576551104`*^9, 3.692005561315116*^9}, 3.723800225487144*^9, { 3.7553481278960447`*^9, 3.75534813971142*^9}, {3.88120530305619*^9, 3.881205305352699*^9}},ExpressionUUID->"b50f00bc-6199-be4d-9e37-\ 1eb33264f0de"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ux", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.4730618307860003`*^9, 3.473062130566*^9}, {3.567430501513716*^9, 3.567430508034527*^9}, 3.5674306789176297`*^9, {3.567488941198918*^9, 3.567489021180258*^9}, { 3.629790306898514*^9, 3.629790413571501*^9}, {3.629790456471576*^9, 3.629790478888816*^9}, {3.6297905091060686`*^9, 3.6297905324281096`*^9}, 3.629791598299982*^9, {3.629870281797838*^9, 3.629870287819449*^9}, { 3.629870322950711*^9, 3.629870429155697*^9}, {3.6307481815629396`*^9, 3.630748218441405*^9}, {3.68526147726593*^9, 3.685261629646143*^9}, { 3.685261920896551*^9, 3.685261929826563*^9}, 3.6852672248539762`*^9, { 3.685271509423249*^9, 3.6852715139832554`*^9}, 3.685330160876338*^9, 3.685330191642098*^9, {3.685339890964412*^9, 3.685339924654458*^9}, { 3.685876073983171*^9, 3.685876077853177*^9}, {3.686290816478623*^9, 3.6862908363386507`*^9}, {3.6868258114230947`*^9, 3.6868258331431227`*^9}, 3.686827356635258*^9, 3.687600102954085*^9, {3.6920055669051237`*^9, 3.6920056989553084`*^9}, {3.7552821496563406`*^9, 3.7552821715493975`*^9}, {3.755348147988492*^9, 3.755348203975028*^9}, { 3.81985560583586*^9, 3.81985560715914*^9}, 3.819855639149332*^9, { 3.8506995593066325`*^9, 3.850699559924745*^9}}, CellLabel-> "In[272]:=",ExpressionUUID->"7c143f00-54dc-7c44-a54d-c2587f28d883"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar truss)", "Subsubsection", CellChangeTimes->{{3.473055608665*^9, 3.4730556508570004`*^9}, { 3.473057986849*^9, 3.473057995505*^9}, {3.473061553363*^9, 3.473061575471*^9}, {3.473061758688001*^9, 3.473061759511*^9}, 3.567430048036519*^9, {3.567430197047981*^9, 3.567430205846396*^9}, { 3.5992247831280007`*^9, 3.599224789570812*^9}, {3.686233716864658*^9, 3.6862337397746897`*^9}, {3.68629059311831*^9, 3.6862906012683215`*^9}, 3.692004491293617*^9, {3.692005080664443*^9, 3.692005087424453*^9}, { 3.7238016457050695`*^9, 3.72380164857003*^9}, {3.755346653452105*^9, 3.755346654634207*^9}, {3.8812052612268715`*^9, 3.8812052765856037`*^9}},ExpressionUUID->"5a7a4e07-9ae0-284e-bee1-\ e2f52d277bad"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{ 3.442646896400446*^9, {3.473058050178*^9, 3.473058242583*^9}, { 3.473058273832*^9, 3.473058275781*^9}, {3.473058324647*^9, 3.473058418342*^9}, {3.473058484495*^9, 3.47305848615*^9}, { 3.473061601906*^9, 3.473061685848*^9}, {3.567430226922035*^9, 3.567430240790459*^9}, {3.567488739432561*^9, 3.567488848804353*^9}, { 3.567489228738623*^9, 3.5674892390034404`*^9}, {3.62978936549926*^9, 3.629789551950788*^9}, {3.629790193501915*^9, 3.62979028126767*^9}, { 3.629791512889832*^9, 3.62979152889546*^9}, 3.629791607815998*^9, { 3.629870491103406*^9, 3.629870525875867*^9}, {3.630569827149594*^9, 3.630569846992729*^9}, {3.630570058718839*^9, 3.630570068503399*^9}, 3.6305701178622217`*^9, {3.630570274365174*^9, 3.630570286132846*^9}, { 3.630588429326602*^9, 3.6305884379378176`*^9}, {3.630588892460216*^9, 3.6305889218974676`*^9}, {3.6305890060752153`*^9, 3.630589009351221*^9}, { 3.630589067086923*^9, 3.630589069551728*^9}, {3.685260934525169*^9, 3.6852609544951973`*^9}, {3.685260985325241*^9, 3.685261056135341*^9}, { 3.6852611137454205`*^9, 3.685261294805674*^9}, 3.685261943976583*^9, 3.685267231203985*^9, {3.6852714918932247`*^9, 3.6852714982332335`*^9}, { 3.685341844218479*^9, 3.685341907732112*^9}, {3.685876041473126*^9, 3.6858760505831385`*^9}, 3.686290656018399*^9, {3.686290701298462*^9, 3.6862907191684866`*^9}, 3.6876000892040653`*^9, {3.692005099424469*^9, 3.692005126334507*^9}, {3.692005295634743*^9, 3.692005364734839*^9}, { 3.6920073658081074`*^9, 3.692007368868112*^9}, {3.723801696129915*^9, 3.723801805136783*^9}, {3.755346661138646*^9, 3.7553468118982153`*^9}, { 3.75534710857136*^9, 3.755347166185311*^9}, {3.787637090745477*^9, 3.787637216549518*^9}, {3.819783343573612*^9, 3.819783424599503*^9}, { 3.9144715436182957`*^9, 3.914471596304041*^9}, {3.91447163211652*^9, 3.914471633745268*^9}, {3.914471675072399*^9, 3.914471721015972*^9}, { 3.9144717711324444`*^9, 3.914471811211937*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"14c63415-97f9-9e4d-b310-f2100e748ca4"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam structure)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.7238019986456356`*^9, 3.723802005404753*^9}, { 3.755347238509882*^9, 3.755347246000849*^9}, {3.881205268160168*^9, 3.8812052792203903`*^9}},ExpressionUUID->"3bd41426-648d-c143-b55e-\ d7b04e18cde3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.686650165202153*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.7238020220566053`*^9, 3.723802033852277*^9}, { 3.7238020769072275`*^9, 3.723802128986509*^9}, {3.7238021621517096`*^9, 3.723802245010724*^9}, {3.723802283265064*^9, 3.723802336595177*^9}, 3.723802402136009*^9, 3.723802432333054*^9, {3.755347265559884*^9, 3.7553473060631647`*^9}, {3.755347343708659*^9, 3.755347428680601*^9}, { 3.787638865656962*^9, 3.787638869316835*^9}, {3.819788782147968*^9, 3.819788782738602*^9}, {3.850699406492807*^9, 3.850699411807452*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"b91236a7-74aa-f64e-8ca0-30ce14b516ad"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (plate bending)", "Subsubsection", CellChangeTimes->{{3.47305567022*^9, 3.473055683948*^9}, {3.473056486087*^9, 3.473056492503*^9}, 3.473057491051*^9, {3.473057733758*^9, 3.473057755476*^9}, {3.568116356788909*^9, 3.568116373168938*^9}, { 3.599223116065869*^9, 3.59922314473872*^9}, {3.5992232122508388`*^9, 3.5992232356352797`*^9}, {3.686463442653324*^9, 3.686463466683358*^9}, { 3.686650104192067*^9, 3.686650133092108*^9}, {3.692017996330179*^9, 3.692017999280184*^9}, {3.723802446254207*^9, 3.723802463707958*^9}, { 3.7553474763676414`*^9, 3.75534748379393*^9}, {3.787633609669371*^9, 3.787633614740041*^9}, {3.881205282037093*^9, 3.881205287078536*^9}},ExpressionUUID->"314619be-38a6-e14f-ad15-\ 6d92555fce9a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}]}], ";", RowBox[{ RowBox[{"\[Delta]wint", "[", "w_", "]"}], ":=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "R"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "[", "w", "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"R", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], RowBox[{ StyleBox["(", "OperatorCharacter"], RowBox[{ RowBox[{ StyleBox["F", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"\[Delta]", "[", "w", "]"}]}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "->", "0"}], ",", RowBox[{"y", "->", "0"}]}], "}"}]}], ")"}]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"sol", " ", "=", RowBox[{"SOLVE", "[", "\[Delta]W", " ", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"w", " ", "/.", "sol"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.599224897569802*^9, 3.599224926773053*^9}, { 3.630748433394182*^9, 3.630748504265106*^9}, {3.6308320967004905`*^9, 3.630832113387444*^9}, {3.685263514118781*^9, 3.6852635972488976`*^9}, 3.685267287144063*^9, {3.685344442272079*^9, 3.685344490915861*^9}, { 3.685876309813501*^9, 3.6858763218235188`*^9}, {3.686226407525676*^9, 3.686226411685681*^9}, 3.686445942025214*^9, {3.6866501652021527`*^9, 3.686650292232331*^9}, 3.687600260794306*^9, {3.692020854784181*^9, 3.6920209683943405`*^9}, {3.723802484790901*^9, 3.723802499197665*^9}, { 3.7238025319830265`*^9, 3.7238025647169557`*^9}, {3.723802608386079*^9, 3.723802674992315*^9}, {3.723802720756008*^9, 3.723802818918144*^9}, { 3.723802858515747*^9, 3.723802861259667*^9}, {3.755347519931821*^9, 3.755347550666892*^9}, {3.755347600502432*^9, 3.7553476976960354`*^9}, { 3.7876336452513866`*^9, 3.787633782499028*^9}, {3.819788880883937*^9, 3.819788998621375*^9}, {3.819789154036225*^9, 3.819789200160994*^9}, { 3.819789231642615*^9, 3.81978927602325*^9}, {3.819789326683582*^9, 3.8197893816473036`*^9}, {3.819789441296125*^9, 3.819789469001286*^9}, { 3.8197895293743763`*^9, 3.8197896174515867`*^9}, {3.850699429169247*^9, 3.850699501883779*^9}, {3.851133304879807*^9, 3.851133328802708*^9}, { 3.882588311058855*^9, 3.882588472972661*^9}, {3.8825886030413275`*^9, 3.882588624616124*^9}, {3.8825886648654957`*^9, 3.882588714089068*^9}}, CellLabel-> "In[405]:=",ExpressionUUID->"a1ea2cf6-30e7-4f4f-beae-e5557f29322b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["VIBRATION ANALYSIS (week 4)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4932789338394*^9, 3.493278944697*^9}, 3.493306237067601*^9, { 3.493870833212584*^9, 3.493870838516244*^9}, {3.5566240340051107`*^9, 3.556624040463522*^9}, 3.619407916962384*^9, {3.6924123022392583`*^9, 3.692412310189269*^9}, 3.753071243176319*^9, 3.78667464222047*^9},ExpressionUUID->"12852f09-908d-e64e-8732-\ 7053a3806c64"], Cell[CellGroupData[{ Cell["Lecture example 3.1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242746`*^9}, {3.787803673092881*^9, 3.787803679378704*^9}, 3.82002459370605*^9},ExpressionUUID->"5bd93c7a-9e96-c544-80df-\ 334de98c97e7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalOmega]2", "=", RowBox[{"(", GridBox[{ {"3", RowBox[{ RowBox[{"-", "1"}], "/", "3"}]}, { RowBox[{"-", "3"}], "3"} }], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "\[CapitalOmega]2", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Sqrt", "[", "val", "]"}]}]}], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.72448682200508*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.724486949659159*^9}, {3.724486989272713*^9, 3.7244870143222284`*^9}, { 3.724490936279661*^9, 3.724491010626911*^9}, {3.724491047177368*^9, 3.724491106948316*^9}, {3.724495033934505*^9, 3.7244950625113554`*^9}, { 3.85139370048866*^9, 3.8513937647740607`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"1566edb1-a159-aa43-9c49-2d7636619736"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.2 (ode)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242746`*^9}, {3.692855267934506*^9, 3.692855272014512*^9}, 3.787803686654455*^9, 3.820024595889677*^9},ExpressionUUID->"f8cde5ee-55d7-4d4b-94b6-\ 6052a6d27135"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MM", "=", RowBox[{"m", RowBox[{"(", GridBox[{ {"0", "1"}, {"1", "0"} }], ")"}]}]}], ";", " ", RowBox[{"KK", "=", RowBox[{"k", RowBox[{"(", GridBox[{ { RowBox[{"-", "1"}], "1"}, {"1", RowBox[{"-", "1"}]} }], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{ RowBox[{"Inverse", "[", "MM", "]"}], ".", "KK"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", RowBox[{"{", RowBox[{"KK", ",", "MM"}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sqrt", "[", "val", "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.6928553102645626`*^9, 3.692855394424683*^9}, {3.851393780093685*^9, 3.851393872788854*^9}, {3.8513939134173965`*^9, 3.851393942741399*^9}, 3.883443268244711*^9}, CellLabel->"In[10]:=",ExpressionUUID->"3da6a0fe-4c3e-bf40-be77-ab935b3d7f64"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.3 (bar structure)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616558180996*^9}, 3.787803700161643*^9, 3.820024597714839*^9},ExpressionUUID->"45f0dc69-03d6-3a48-a442-\ 3b6e869750fc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, { 3.6926777445380497`*^9, 3.69267776592808*^9}, {3.6926948008051434`*^9, 3.69269481310516*^9}, {3.6926949183153076`*^9, 3.6926949195553093`*^9}, { 3.6928546233136005`*^9, 3.6928546243636026`*^9}, {3.692854687563693*^9, 3.6928548011538525`*^9}, {3.692854847613918*^9, 3.6928548503039217`*^9}, { 3.69285492225402*^9, 3.692854923784023*^9}, {3.692855453534766*^9, 3.692855477104799*^9}, {3.756618747609501*^9, 3.7566188279765987`*^9}, { 3.7566188619999294`*^9, 3.756618981627329*^9}, {3.756619574245274*^9, 3.7566195805721426`*^9}, {3.756619612517589*^9, 3.756619616079483*^9}, { 3.7566197161185665`*^9, 3.756619733973471*^9}, {3.7882441687016416`*^9, 3.788244211754738*^9}, {3.788244272436096*^9, 3.78824427308834*^9}, 3.788244403420265*^9, {3.820025067066265*^9, 3.820025096859448*^9}, { 3.820025153417162*^9, 3.820025155783327*^9}, {3.850794221377445*^9, 3.8507942337721004`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"9454b572-9f90-5042-b899-046edb576131"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.4 (bar truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.7557191504411116`*^9, 3.7878037030530243`*^9, 3.7882445751277742`*^9, 3.8200245994156294`*^9},ExpressionUUID->"5e161ea3-b982-d843-9cac-\ e76975df6aba"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", OverscriptBox["U", "."]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448434`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153787`*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.72429732021502*^9, 3.724297324409199*^9}, {3.724297387527439*^9, 3.724297390176303*^9}, {3.724297489356834*^9, 3.7242974986059*^9}, { 3.724297536463794*^9, 3.724297599229539*^9}, {3.724297724331859*^9, 3.7242977252218814`*^9}, {3.75307152810109*^9, 3.7530715577593575`*^9}, { 3.753071592776411*^9, 3.7530716192701263`*^9}, {3.753079890337639*^9, 3.753079910015238*^9}, {3.788077556292513*^9, 3.7880775604619937`*^9}, 3.788077612775126*^9, {3.82002517421471*^9, 3.820025200885493*^9}, 3.8204702417446294`*^9, {3.820470330146205*^9, 3.820470391166701*^9}, { 3.820470434077013*^9, 3.820470435462103*^9}, {3.820470474734195*^9, 3.820470531412328*^9}, {3.850796354640504*^9, 3.850796364032633*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"fe060951-3f1f-0b4a-a864-b8d42bf73ece"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Lecture example", StyleBox[" ", FontColor->GrayLevel[0]], "3.5 (solid)" }], "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.78780371289613*^9, 3.787803721386668*^9}, 3.820024601172648*^9},ExpressionUUID->"ceb78b8e-fcbd-664b-bb96-\ f242bc902f6e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.692695317325865*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.724303840459796*^9, 3.724303841561829*^9}, {3.724303879564316*^9, 3.724303894223379*^9}, 3.7243039281242995`*^9, 3.724304089062259*^9, {3.724423222711531*^9, 3.724423243110194*^9}, 3.724423598723547*^9, {3.724463041661843*^9, 3.724463049647305*^9}, {3.7244630934956675`*^9, 3.7244632541685715`*^9}, { 3.72446356412341*^9, 3.724463638943798*^9}, {3.72446370987291*^9, 3.724463778130144*^9}, {3.724463812618352*^9, 3.724463883547698*^9}, { 3.724463917785564*^9, 3.7244640373763757`*^9}, {3.724464085350275*^9, 3.724464220520729*^9}, {3.724464316140095*^9, 3.724464324422034*^9}, { 3.724464381428324*^9, 3.724464454982666*^9}, {3.7244713771886415`*^9, 3.7244713848341866`*^9}, {3.724471420086172*^9, 3.724471422815348*^9}, { 3.724486692210102*^9, 3.7244866984451756`*^9}, {3.724555736695492*^9, 3.724555737789098*^9}, 3.724555838936*^9, 3.753072258430368*^9, { 3.755721147524676*^9, 3.755721172313273*^9}, 3.787894131266028*^9, 3.788077650022805*^9, {3.820025985576888*^9, 3.820025987333465*^9}, { 3.8200260200845194`*^9, 3.8200260249775887`*^9}, {3.820026116812697*^9, 3.820026130634335*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"90c923cf-8f51-7a47-8080-202940d0edf2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.6 (beam)", "Subsubsection", CellChangeTimes->{ 3.493898298796033*^9, 3.557721748078542*^9, {3.692536423145355*^9, 3.692536450625394*^9}, {3.6926054332359266`*^9, 3.6926054525459566`*^9}, 3.69261651130093*^9, 3.692616585331034*^9, {3.755721309140517*^9, 3.755721316132911*^9}, {3.755722559939822*^9, 3.755722564665438*^9}, 3.78780372656058*^9, 3.820024603173844*^9, {3.820029883755011*^9, 3.8200299159157624`*^9}},ExpressionUUID->"7763c5c1-13a1-d94c-8253-\ 623196e9f6c6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], " ", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938984436576324`*^9, 3.4938984505060325`*^9}, { 3.4939508930964003`*^9, 3.4939508993052*^9}, 3.5007186129984*^9, { 3.692536436605374*^9, 3.692536507425473*^9}, {3.6925365733255653`*^9, 3.69253658391558*^9}, {3.6925366551056795`*^9, 3.692536696275738*^9}, 3.692536781945857*^9, 3.692536825315918*^9, {3.6925369042360287`*^9, 3.692536960336108*^9}, {3.692537436846774*^9, 3.6925374748468275`*^9}, { 3.692537506446872*^9, 3.692537543896924*^9}, {3.6925384725244083`*^9, 3.692538507064457*^9}, {3.692538541444505*^9, 3.6925385532045217`*^9}, { 3.692538591154575*^9, 3.6925388837549844`*^9}, {3.692539113345305*^9, 3.6925391566234407`*^9}, {3.6925393311497364`*^9, 3.692539439369888*^9}, { 3.692539579530084*^9, 3.692539592770103*^9}, {3.692539800900394*^9, 3.692539874350497*^9}, {3.69254008407079*^9, 3.6925400981808105`*^9}, { 3.692540281981068*^9, 3.6925402985610905`*^9}, 3.692540330111135*^9, { 3.692540625661548*^9, 3.692540659601597*^9}, {3.692540713921673*^9, 3.692540842291852*^9}, {3.692540939781988*^9, 3.692540965192024*^9}, { 3.692541020762102*^9, 3.692541021512103*^9}, {3.6925410776721816`*^9, 3.692541095012206*^9}, {3.692542771504553*^9, 3.692542820804621*^9}, { 3.69259963100324*^9, 3.6925996373546033`*^9}, {3.692600739241358*^9, 3.69260087649155*^9}, 3.692601242522064*^9, 3.692601292102132*^9, { 3.6926014023522863`*^9, 3.692601430842326*^9}, {3.6926021565553417`*^9, 3.692602173695366*^9}, {3.692602818836269*^9, 3.69260281947627*^9}, { 3.692603523289254*^9, 3.692603523869256*^9}, 3.692603706969513*^9, { 3.692604877223151*^9, 3.692604895363177*^9}, {3.692605009033335*^9, 3.692605020963352*^9}, 3.692623323970467*^9, {3.692623397890571*^9, 3.692623415880596*^9}, {3.6926953498559113`*^9, 3.692695352475915*^9}, { 3.692702706197453*^9, 3.692702716667467*^9}, {3.692702815217605*^9, 3.692702828447624*^9}, {3.6927713388298225`*^9, 3.6927713433298283`*^9}, { 3.692858789939437*^9, 3.692858819149478*^9}, {3.724549846206141*^9, 3.724549943983004*^9}, {3.724550010823572*^9, 3.724550067544624*^9}, { 3.724557628664399*^9, 3.724557643852253*^9}, {3.724557692950014*^9, 3.724557709686152*^9}, {3.724557743595968*^9, 3.724557747868984*^9}, { 3.724557786013905*^9, 3.724557792611299*^9}, {3.7245578833218794`*^9, 3.7245578838691053`*^9}, {3.724558827336274*^9, 3.724558898176444*^9}, { 3.724558935228176*^9, 3.724558988552925*^9}, {3.724559339693288*^9, 3.724559376000408*^9}, {3.755722026667111*^9, 3.755722040084095*^9}, { 3.756798537284498*^9, 3.756798578243656*^9}, {3.756798669627799*^9, 3.7567986729551954`*^9}, {3.756798753405105*^9, 3.756798757013638*^9}, 3.8200270638226805`*^9, {3.820027800698624*^9, 3.820027802357981*^9}, { 3.850796567070136*^9, 3.8507965763999834`*^9}, {3.914724196108894*^9, 3.914724239084713*^9}, {3.914808979752441*^9, 3.914808994323759*^9}, { 3.914809049131389*^9, 3.914809075323383*^9}, {3.9148102953996143`*^9, 3.914810299772089*^9}, 3.914810888696478*^9}, CellLabel->"In[93]:=",ExpressionUUID->"2c39636b-d7e9-b04e-ae15-639912f41cc2"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.692859033309777*^9, 3.6928590340097756`*^9}, {3.755722529254018*^9, 3.75572255367753*^9}, 3.787803749802318*^9, 3.8200246120636396`*^9, {3.820029874369141*^9, 3.820029874901998*^9}},ExpressionUUID->"6d923f20-1ba8-7049-8335-\ ea06da29deb3"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.692859047249797*^9, 3.6928591207299*^9}, {3.724558341263359*^9, 3.7245583544585257`*^9}, {3.7245593962612076`*^9, 3.724559397823843*^9}, 3.787894208588889*^9, {3.8200286793925047`*^9, 3.8200286799010334`*^9}, { 3.8200287132036333`*^9, 3.820028715346983*^9}, {3.8518338780309815`*^9, 3.851833910613217*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"d29ae52e-f374-7148-9222-1ea1edc5e61a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.8 (beam and rigid body)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, 3.692859036409782*^9, 3.787803754681381*^9, 3.8200246140907764`*^9},ExpressionUUID->"42182e4a-6420-024c-88fb-\ b693048efc89"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"m", " ", RowBox[{ RowBox[{"L", "^", "2"}], "/", "5"}], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.692699048081089*^9, 3.692699048901091*^9}, { 3.6926995790618324`*^9, 3.692699589401847*^9}, {3.6926996396619177`*^9, 3.69269965575194*^9}, {3.6926997301520443`*^9, 3.692699736682053*^9}, { 3.692858978739701*^9, 3.6928589854697065`*^9}, {3.692859254510087*^9, 3.692859294020142*^9}, {3.755722787395869*^9, 3.755722808123771*^9}, 3.7557231852619715`*^9, {3.755723220656005*^9, 3.755723263671439*^9}, { 3.755723435970131*^9, 3.755723458365805*^9}, 3.756001870205928*^9, { 3.788245381106416*^9, 3.7882453893709884`*^9}, {3.788245616548293*^9, 3.788245627763839*^9}, {3.820029466509404*^9, 3.82002949697728*^9}, { 3.8204708439732113`*^9, 3.820470844932032*^9}}, CellLabel-> "In[804]:=",ExpressionUUID->"52da886f-6b46-3d45-9c6f-272b8ed09b0a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9a (plate bending)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147644742329*^9, 3.724147660776068*^9}, { 3.724318554593711*^9, 3.724318567030655*^9}, {3.724318639035441*^9, 3.72431864778099*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.756168889253424*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9, {3.8514029661882205`*^9, 3.851402967215026*^9}, { 3.851404172035494*^9, 3.851404176827886*^9}, 3.882926811450559*^9},ExpressionUUID->"8ed2014c-c93e-a04b-a7d9-\ 571a0f463508"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"h", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"\[Rho]", "\[Rule]", "100"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W", ",", "equ", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "t", "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"x", " "}], "L"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"x", " "}], "L"], ")"}], "2"]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{ RowBox[{"L", ">", "0"}], ",", RowBox[{"H", ">", "0"}]}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"equ", " ", "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{"\[Delta]W", ",", RowBox[{"\[Delta]a", "[", "t", "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"f", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{"a", "[", "t", "]"}]}], "]"}], "/", RowBox[{"D", "[", RowBox[{"equ", ",", " ", RowBox[{ SuperscriptBox["a", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "]"}]}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f", "/.", "val"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, {3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, { 3.7243189720383396`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, { 3.724319254042012*^9, 3.724319356123252*^9}, {3.724319391282081*^9, 3.72431954051195*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, { 3.756167762169789*^9, 3.756167773023137*^9}, {3.75616841215146*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, {3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, {3.756168892902129*^9, 3.756168895433659*^9}, {3.75616897494083*^9, 3.756169048281694*^9}, { 3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, {3.7561693934476376`*^9, 3.756169399702859*^9}, { 3.820471718532618*^9, 3.820471721437819*^9}, {3.820471897247976*^9, 3.820472076545085*^9}, {3.820472129390857*^9, 3.82047229648011*^9}, { 3.820472329751877*^9, 3.820472814886578*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, {3.820472916718054*^9, 3.820472939308642*^9}, { 3.820472984885528*^9, 3.8204730343634863`*^9}, {3.8204730817979555`*^9, 3.820473114451143*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}, { 3.851402974205838*^9, 3.851403093026737*^9}, {3.851403138080176*^9, 3.851403172991445*^9}, {3.851403240832218*^9, 3.851403242746932*^9}, { 3.85140337932438*^9, 3.851403410529518*^9}, {3.85140347082749*^9, 3.85140347792332*^9}, {3.851403692532213*^9, 3.85140373493817*^9}, { 3.851403795084531*^9, 3.851403811863141*^9}, {3.851403847434928*^9, 3.8514039179686537`*^9}, {3.851403953359006*^9, 3.851404046096203*^9}, { 3.8514040929851227`*^9, 3.851404104212208*^9}, {3.851404207642264*^9, 3.8514042103962193`*^9}, {3.851404251408242*^9, 3.8514043054509754`*^9}, { 3.852171342323964*^9, 3.852171362537833*^9}, {3.8521722168961735`*^9, 3.852172217231166*^9}, 3.882926769654783*^9}, CellLabel->"In[97]:=",ExpressionUUID->"4beba819-d21f-5a49-a824-3ae85a043eab"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 3.9b (plate bending)", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.787484770540332*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.787624902432246*^9}, 3.8195159245188584`*^9, {3.851404160604777*^9, 3.85140418663118*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.882926819367149*^9},ExpressionUUID->"46e418b0-56b5-0341-b202-\ c7447ade8de6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "one", " ", "may", " ", "use", " ", "the", " ", "triangle", " ", "plate", " ", "bending", " ", "element", " ", "with", " ", "structured", " ", "or", " ", "nonstructured", " ", "element", " ", "divisions", " ", "to", " ", "find", " ", "the", " ", "solution", " ", "by", " ", "FEM"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1."}], ",", RowBox[{"H", "\[Rule]", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", "100000"}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", RowBox[{"\[Rho]", "\[Rule]", "100"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "7", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "3", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "7", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"7", ",", "6", ",", "5"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "H", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"H", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "7", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "7", "]"}], ",", RowBox[{"\[Theta]Y", "[", "7", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2", " ", "Pi"}], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{"{", RowBox[{"DISP", ",", "5"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.68905855860296*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.75538404784039*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.755526249972618*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.755537562161814*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.756443404858537*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.787324642869234*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.787536808515904*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.787537005588599*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851404334099336*^9, 3.8514044427104735`*^9}, {3.85140448033487*^9, 3.851404528280829*^9}, {3.851404675799127*^9, 3.8514047382171335`*^9}, { 3.8514048639344797`*^9, 3.851405048797428*^9}, {3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.851407688703299*^9}, { 3.851407773017706*^9, 3.851407781195134*^9}, {3.851407884878668*^9, 3.851407886958976*^9}, {3.851407930628368*^9, 3.8514079496190023`*^9}, { 3.851408774043013*^9, 3.85140879767111*^9}, {3.851414393446686*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, { 3.851414604135325*^9, 3.8514146600460863`*^9}, {3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, { 3.851835458306039*^9, 3.851835462056913*^9}, {3.8518357385467224`*^9, 3.851835743411894*^9}, {3.852173361088862*^9, 3.852173361466459*^9}, { 3.852174390177535*^9, 3.852174390585162*^9}, {3.882924960308901*^9, 3.882925025061228*^9}, {3.8829250626334286`*^9, 3.882925072868449*^9}, { 3.882925271115169*^9, 3.882925278849551*^9}, {3.8829254194825335`*^9, 3.8829254221100664`*^9}, {3.882925467395959*^9, 3.882925470498024*^9}, { 3.882925512990931*^9, 3.882925529056815*^9}, {3.882925679726142*^9, 3.882925681729703*^9}, {3.8829266400699396`*^9, 3.882926640555963*^9}, { 3.8829266900308228`*^9, 3.882926690362383*^9}, {3.882926760767342*^9, 3.882926761097072*^9}, {3.914812868488554*^9, 3.914812879948671*^9}, { 3.914813011070423*^9, 3.9148130318837337`*^9}, {3.9148132160662537`*^9, 3.914813216865528*^9}, {3.914821027719108*^9, 3.9148210440900784`*^9}, { 3.9148210808318005`*^9, 3.9148210812668343`*^9}, {3.9148211656193466`*^9, 3.914821180821665*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"2e01c82a-0645-b04e-960d-9355b95e78d3"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.7238984640156884`*^9, 3.7238984642268667`*^9}, {3.78780376721542*^9, 3.787803773959956*^9}},ExpressionUUID->"26915c70-2d00-6440-bb62-\ 4467237c31a8"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"4", "0"}, { RowBox[{"-", "1"}], "1"} }], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "AA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"square", " ", "root", " ", "of", " ", "the", " ", "matrix"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SQRTA", "=", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"Sqrt", "[", "val", "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "SQRTA", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"original", " ", "matrix", " ", "again"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"SQRTA", ".", "SQRTA"}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.787989450252692*^9, 3.787989564120285*^9}, 3.787989599184903*^9, {3.8513953218783903`*^9, 3.851395338086149*^9}}, CellLabel-> "In[441]:=",ExpressionUUID->"88fa4130-1e9a-6743-ab99-43cb1579c9a2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (mass matrix)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770332958414*^9}, { 3.723898467783272*^9, 3.7238984690825796`*^9}, 3.788323982435176*^9},ExpressionUUID->"e612b495-3509-0744-af87-\ 0d854c77cb06"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"NN", "=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "h"]}], ")"}], "2"], " ", FractionBox["x", "h"]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", FractionBox["x", "h"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"]}], ",", " ", RowBox[{ RowBox[{"-", "h"}], SuperscriptBox[ RowBox[{"(", FractionBox["x", "h"], ")"}], "2"], " ", RowBox[{"(", " ", RowBox[{ FractionBox["x", "h"], "-", "1"}], ")"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"A", " ", "\[Rho]", " ", "h"}], "420"], RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"420", " ", "/", RowBox[{"(", RowBox[{"A", " ", "\[Rho]", " ", "h"}], ")"}]}], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"A", " ", "\[Rho]", " ", RowBox[{"Outer", "[", RowBox[{"Times", ",", "NN", ",", "NN"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "h"}], "}"}]}], "]"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9}, CellLabel-> "In[171]:=",ExpressionUUID->"228bc770-3ee7-2b4b-875f-6d82c2295776"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.558404692981371*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.692770778739039*^9}, { 3.7238984714976816`*^9, 3.723898472723172*^9}, 3.787803783214076*^9, { 3.8200299016182303`*^9, 3.820029908762121*^9}},ExpressionUUID->"fb523f83-240e-3b47-b1df-\ a09d25bfee9a"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.558404667864934*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.692770930049248*^9, 3.692770955389285*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.692771242659688*^9}, 3.692771357129848*^9, {3.694688152497208*^9, 3.694688172367236*^9}, { 3.694688206217283*^9, 3.69468822500731*^9}, {3.787990670100729*^9, 3.787990730568595*^9}, {3.788247494355724*^9, 3.78824751934991*^9}, { 3.788323884969909*^9, 3.788323899310143*^9}, {3.820029639027835*^9, 3.820029643030367*^9}, {3.8204711842343283`*^9, 3.82047118526092*^9}}, CellLabel-> "In[167]:=",ExpressionUUID->"be8d2a55-b262-b94f-ba7e-8e9875df6041"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.558404692981371*^9, 3.5584047005778046`*^9}, {3.692770773469031*^9, 3.692770778739039*^9}, 3.692771448509976*^9, {3.723898475265663*^9, 3.7238984765616097`*^9}, 3.7878037851088552`*^9},ExpressionUUID->"f69ce1e1-76af-0a45-8c55-\ 57721dd40abd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{"J", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Notice", " ", "that", " ", "the", " ", "outcome", " ", "is", " ", "a", " ", "DAE"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, {3.558404667864934*^9, 3.5584046710121136`*^9}, { 3.5584047189538555`*^9, 3.558404752896797*^9}, 3.692770788659052*^9, { 3.692770930049248*^9, 3.692770955389285*^9}, {3.692770994979341*^9, 3.692771057999429*^9}, {3.692771113499507*^9, 3.692771242659688*^9}, 3.692771357129848*^9, {3.692771480630021*^9, 3.692771506500057*^9}, { 3.692771639520243*^9, 3.692771640700245*^9}, {3.6927831457021666`*^9, 3.6927831608780346`*^9}, {3.692784340726518*^9, 3.692784341439559*^9}, { 3.692853611021569*^9, 3.692853615591575*^9}, {3.692853732211738*^9, 3.692853733971741*^9}, {3.692855043364188*^9, 3.692855061004216*^9}, { 3.7241471535011015`*^9, 3.72414718348577*^9}, {3.7561285637728353`*^9, 3.756128570544354*^9}, {3.7561286039354935`*^9, 3.7561286436098185`*^9}, { 3.788247754027643*^9, 3.7882477631278453`*^9}, 3.788323871033355*^9, { 3.8200296822958837`*^9, 3.8200296874979696`*^9}, {3.82047123032232*^9, 3.8204712313140793`*^9}}, CellLabel-> "In[173]:=",ExpressionUUID->"e7566f73-ef9b-fd4f-bc74-4e86e924010b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.692691217030125*^9, {3.724147332033448*^9, 3.724147341617281*^9}, 3.787803789591028*^9},ExpressionUUID->"1cdbcdd0-3daa-dc44-8642-\ b1d3d52458d5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"m", ",", RowBox[{ RowBox[{"1", "/", "5"}], " ", "m", " ", SuperscriptBox["L", "2"], " ", RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692691236800154*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, { 3.6928607128321285`*^9, 3.692860713632129*^9}, {3.692860762222198*^9, 3.692860774902216*^9}, {3.788247837339185*^9, 3.788247879734177*^9}, 3.788323863754079*^9, {3.82002974696036*^9, 3.820029763651271*^9}, { 3.820471421059429*^9, 3.8204714221072345`*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"c75ad663-edc6-4e46-8911-b8df0553fb6c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, {3.7238984792910604`*^9, 3.723898480878615*^9}, 3.724147396313452*^9, 3.787803791500831*^9, {3.8200298618306556`*^9, 3.820029864453811*^9}, {3.820029930033001*^9, 3.820029930658329*^9}},ExpressionUUID->"1258ac9c-3dca-014f-b010-\ 4ee4cb647d8a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.724643750333593*^9, 3.724643767124245*^9}, {3.7246438175496655`*^9, 3.724643833455995*^9}, {3.724756528265935*^9, 3.724756535705496*^9}, 3.78832385530049*^9, {3.820029801163093*^9, 3.820029855655175*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"d0606eec-6033-5148-bf67-638dfede513c"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147617138194*^9, 3.724147631820558*^9}, 3.7561657335722027`*^9, 3.787803793661124*^9},ExpressionUUID->"501f83c4-6c3d-d144-936f-\ 502806b26e9c"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "M", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Theta]Y2", " ", "=", " ", RowBox[{ RowBox[{"\[Theta]Y", "[", "2", "]"}], "/.", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, {3.788248230022855*^9, 3.7882482592696548`*^9}, { 3.78824833634833*^9, 3.788248343272706*^9}, {3.8200299414032726`*^9, 3.820029943336417*^9}, {3.820029996475786*^9, 3.820030000803342*^9}, 3.820471517540506*^9}, CellLabel-> "In[187]:=",ExpressionUUID->"5e679ead-cabf-bf41-b7b6-67469c902308"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "2"}], ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692860961962478*^9, 3.692861003972536*^9}, { 3.692861119532698*^9, 3.6928611624827585`*^9}, 3.692861212462828*^9, { 3.788248269799512*^9, 3.78824829352197*^9}, {3.78824834932462*^9, 3.788248352056753*^9}, {3.820029955212651*^9, 3.820030007977022*^9}, 3.820471542695532*^9}, CellLabel-> "In[191]:=",ExpressionUUID->"2d9e4b72-e1bb-9244-bcfb-1df3a49d3526"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.724552750965875*^9, 3.724552771340017*^9}, 3.7561657371136637`*^9, 3.787803796484321*^9, {3.820030036266352*^9, 3.820030041779605*^9}},ExpressionUUID->"ccc12006-bc64-3644-9813-\ 1d213e7a9315"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.6928600883112545`*^9, 3.692860095201264*^9}, {3.724510813340685*^9, 3.724510843923993*^9}, {3.724511089489906*^9, 3.724511136236665*^9}, { 3.7245111759684496`*^9, 3.724511180004063*^9}, {3.724511214282744*^9, 3.724511357099068*^9}, {3.72451139044884*^9, 3.724511390894336*^9}, { 3.724511435438853*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, {3.724511739941152*^9, 3.724511744483248*^9}, { 3.724511791958761*^9, 3.724511792442217*^9}, {3.724511945279776*^9, 3.7245119591135845`*^9}, {3.724512176870897*^9, 3.72451218423262*^9}, { 3.724512227324604*^9, 3.724512228468808*^9}, {3.724512261539966*^9, 3.724512272739452*^9}, {3.724512387480114*^9, 3.724512394482444*^9}, { 3.724512486447604*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.724512564259039*^9}, {3.724512686336095*^9, 3.724512686647025*^9}, { 3.724552398639561*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.724552490677614*^9}, {3.7245525335305943`*^9, 3.724552549337282*^9}, { 3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.724552701097404*^9}, {3.72455278275163*^9, 3.724552841959256*^9}, { 3.756129737744466*^9, 3.756129757650621*^9}, {3.756166282287259*^9, 3.756166283261844*^9}, {3.820030049104014*^9, 3.820030053912527*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"3092b1e0-f180-7348-ba49-cd418bba684a"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (bar truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, {3.692860264491501*^9, 3.6928602694915085`*^9}, { 3.723898500282627*^9, 3.723898503824809*^9}, 3.724147406515576*^9, { 3.724147638325242*^9, 3.724147639726355*^9}, 3.7561673435357966`*^9, 3.787803799028024*^9},ExpressionUUID->"1dee28cb-d72e-ed49-befc-\ 4ef0b19f38f1"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"STEP", " ", "1"}], ":", " ", RowBox[{"t", " ", "<", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sol", "=", " ", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"U", " ", "=", " ", RowBox[{ RowBox[{"uZ", "[", "2", "]"}], " ", "/.", " ", "sol"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448424`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.692855893315378*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.692860293101541*^9, 3.6928603882816744`*^9}, {3.6928604508717623`*^9, 3.692860476661798*^9}, {3.756167401988189*^9, 3.756167413743063*^9}, { 3.756167458288184*^9, 3.7561674667464952`*^9}, {3.756167612300265*^9, 3.756167626175462*^9}, {3.788248557810114*^9, 3.788248586015726*^9}, { 3.8200300876828213`*^9, 3.820030094371929*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"0fa559a2-ac31-654a-a1f7-a37c56c0c3cd"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"STEP2", ":", " ", RowBox[{"t", " ", ">", " ", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"uZ", "[", RowBox[{"_", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448424`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.692855893315378*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.692860293101541*^9, 3.692860442871751*^9}, {3.692860490661818*^9, 3.6928605008218317`*^9}, 3.724148526274141*^9, {3.7561674288237047`*^9, 3.756167432358683*^9}, {3.7561674878338723`*^9, 3.756167499857013*^9}, { 3.788248572061515*^9, 3.7882485780249004`*^9}, {3.820030106297032*^9, 3.820030112781686*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"1645e83f-9f76-8740-9fbe-6191d620689e"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, {3.724147644742329*^9, 3.724147660776068*^9}, { 3.724318554593711*^9, 3.724318567030655*^9}, {3.724318639035441*^9, 3.72431864778099*^9}, {3.756083392953127*^9, 3.756083398473401*^9}, 3.7561676827881355`*^9, {3.756168889253424*^9, 3.7561688903110223`*^9}, 3.7878038031871395`*^9},ExpressionUUID->"3640d72c-fef6-e944-a907-\ 4e011450ecbc"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "U", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "wm", ",", "\[Delta]wint", ",", "\[Delta]wine", ",", "\[CapitalOmega]", ",", "rule", ",", "\[Delta]W", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "[", "t", "]"}], " ", "x", " ", RowBox[{"y", "/", SuperscriptBox["L", "2"]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"Tr", "[", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["h", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wine", "=", RowBox[{ RowBox[{"-", RowBox[{"\[Delta]", "[", "w", "]"}]}], "h", " ", "\[Rho]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"t", ",", "t"}]], "w"}]}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rule", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "any_", "]"}], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[Delta]a", "[", "any_", "]"}], "[", "t", "]"}], "\[Rule]", RowBox[{"\[Delta]a", "[", RowBox[{"any", ",", "0"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"a", "[", "any_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "->", RowBox[{"a", "[", RowBox[{"any", ",", "2"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]W", " ", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wine"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{ StyleBox["Assumptions", "OperatorCharacter"], StyleBox["\[Rule]", "OperatorCharacter"], RowBox[{"{", StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"], StyleBox["}", "OperatorCharacter"]}]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[" ", "OperatorCharacter"], StyleBox["/.", "OperatorCharacter"], StyleBox["rule", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "U"}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "}"}]}], "}"}], ",", "\[Delta]W"}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, 3.72431862763145*^9, {3.724318668395855*^9, 3.724318825041748*^9}, {3.724318858739579*^9, 3.7243189338658123`*^9}, { 3.7243189720383396`*^9, 3.724319145407913*^9}, 3.724319208486961*^9, { 3.724319254042012*^9, 3.724319356123252*^9}, {3.724319391282081*^9, 3.72431954051195*^9}, {3.756167692670187*^9, 3.756167728563061*^9}, { 3.756167762169789*^9, 3.756167773023137*^9}, {3.75616841215146*^9, 3.7561684532242527`*^9}, 3.756168493394074*^9, {3.756168523659057*^9, 3.756168541518296*^9}, 3.756168708578459*^9, {3.756168892902129*^9, 3.756168895433659*^9}, {3.75616897494083*^9, 3.756169048281694*^9}, { 3.7561691813922987`*^9, 3.7561692339973936`*^9}, {3.7561693580796013`*^9, 3.75616936042686*^9}, {3.7561693934476376`*^9, 3.756169399702859*^9}, { 3.820471718532618*^9, 3.820471721437819*^9}, {3.820471897247976*^9, 3.820472076545085*^9}, {3.820472129390857*^9, 3.82047229648011*^9}, { 3.820472329751877*^9, 3.820472814886578*^9}, {3.82047285590029*^9, 3.820472858982582*^9}, {3.820472916718054*^9, 3.820472939308642*^9}, { 3.820472984885528*^9, 3.8204730343634863`*^9}, {3.8204730817979555`*^9, 3.820473114451143*^9}, {3.851395698951174*^9, 3.8513958353723865`*^9}, { 3.914814462417311*^9, 3.914814464095634*^9}, {3.914814551268999*^9, 3.914814570545519*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"18242dc3-f3b7-cc41-9a71-ada56c5224fc"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (decomposition)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242756`*^9}, {3.7561697245665956`*^9, 3.756169731003918*^9}, {3.881205999464633*^9, 3.881206001858594*^9}},ExpressionUUID->"01b3921b-c01d-e74f-90dd-\ 0678cc5299a7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"AA", "=", RowBox[{"(", GridBox[{ {"2", "1"}, {"1", "2"} }], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"val", ",", "vec"}], "}"}], "=", RowBox[{"Eigensystem", "[", "AA", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", "vec", "]"}], ".", RowBox[{"DiagonalMatrix", "[", "val", "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"Transpose", "[", "vec", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.4939782696174*^9, {3.4939783427346*^9, 3.4939784038866*^9}, { 3.557796517623009*^9, 3.5577966195847883`*^9}, {3.557796666556471*^9, 3.5577966698948765`*^9}, 3.692617920032902*^9, {3.6926180027030177`*^9, 3.692618343303494*^9}, {3.69261837586354*^9, 3.692618421083604*^9}, 3.692618470283672*^9, 3.692770250478299*^9, {3.6927703723784695`*^9, 3.692770588688772*^9}, {3.692770624548822*^9, 3.692770674378892*^9}, { 3.6927707053189354`*^9, 3.692770706798938*^9}, {3.692770840599125*^9, 3.6927708450491314`*^9}, {3.69285512772431*^9, 3.692855188474395*^9}, { 3.72448682200508*^9, 3.7244868651346254`*^9}, {3.724486900982155*^9, 3.724486949659159*^9}, {3.724486989272713*^9, 3.7244870143222284`*^9}, { 3.724490936279661*^9, 3.724491010626911*^9}, {3.724491047177368*^9, 3.724491106948316*^9}, {3.724495033934505*^9, 3.7244950625113554`*^9}, { 3.756169740366756*^9, 3.7561698534389057`*^9}, {3.756170216621559*^9, 3.756170222933326*^9}, {3.788153927974463*^9, 3.788153933243031*^9}, { 3.851396491623579*^9, 3.8513965092572613`*^9}, {3.883180256775795*^9, 3.883180283902807*^9}, {3.8831803326051817`*^9, 3.8831803648014402`*^9}, { 3.883181114227376*^9, 3.883181136456712*^9}, {3.883183131529642*^9, 3.883183131982475*^9}}, CellLabel-> "In[493]:=",ExpressionUUID->"6d8b8e50-bcbd-5146-8244-bbb8dd11ec64"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.557796433788461*^9, 3.6926013396721983`*^9, {3.692617928002914*^9, 3.6926179367329254`*^9}, {3.6926179987430124`*^9, 3.692618012853032*^9}, 3.6926777991781263`*^9, {3.692770332858414*^9, 3.692770359158451*^9}, { 3.692855097194267*^9, 3.6928551052242756`*^9}, {3.7561697245665956`*^9, 3.756169731003918*^9}, {3.7561699168665485`*^9, 3.756169926040078*^9}, { 3.851396588241513*^9, 3.851396588803507*^9}, {3.8812060041856337`*^9, 3.881206006272649*^9}},ExpressionUUID->"19b99d11-8b9c-864d-b063-\ 77de20199b54"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"VIBR", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"uX", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", "V"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.756170020583084*^9, 3.756170122811846*^9}, { 3.756170186032323*^9, 3.756170193896617*^9}, {3.7561702297956877`*^9, 3.7561702556648417`*^9}, 3.756170292887568*^9, {3.788151753693509*^9, 3.788151756661628*^9}, {3.788151796952374*^9, 3.7881519195047984`*^9}, { 3.78815195737908*^9, 3.788151961328389*^9}, {3.788152060927085*^9, 3.788152065563151*^9}, {3.788152223800831*^9, 3.788152287912534*^9}, { 3.788152359096402*^9, 3.7881523643461895`*^9}, {3.851390292117335*^9, 3.851390292755409*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"082ea546-7329-0b48-97dc-61b2b4c8a43c"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (torsion)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.692691217030125*^9, 3.7241476428310194`*^9, { 3.7561696233666773`*^9, 3.7561696272662334`*^9}, {3.881206010425768*^9, 3.881206014655202*^9}},ExpressionUUID->"abec5b11-0d0e-c54b-8e55-\ af2a53c9bda4"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"TORSION", ",", RowBox[{"{", RowBox[{ RowBox[{"{", " ", RowBox[{"G", ",", "0"}], "}"}], ",", RowBox[{"{", "J", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"J", " ", "\[Rho]", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}], RowBox[{"L", "/", "2"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"J", " ", "\[Rho]", " ", RowBox[{"IdentityMatrix", "[", "3", "]"}], RowBox[{"L", "/", "2"}]}]}], "}"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", " ", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\n", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, {3.692691236800154*^9, 3.692691265400193*^9}, 3.692691388690366*^9, {3.6928606784320807`*^9, 3.692860680972084*^9}, { 3.6928607128321285`*^9, 3.692860713632129*^9}, {3.692860762222198*^9, 3.692860774902216*^9}, {3.7244128700993214`*^9, 3.724412970122797*^9}, { 3.724413067099133*^9, 3.724413071778134*^9}, 3.724413162525893*^9, 3.724413211976151*^9, {3.756009769254346*^9, 3.7560097984891305`*^9}, { 3.756009857247945*^9, 3.756009862164278*^9}, {3.756009902579606*^9, 3.756009932708223*^9}, {3.78815401519639*^9, 3.7881540650661416`*^9}, { 3.788157472499207*^9, 3.788157475676734*^9}, {3.788157524305654*^9, 3.788157681083987*^9}, {3.788157722103042*^9, 3.788157724162849*^9}, { 3.788167388102944*^9, 3.788167431276744*^9}, {3.7881674649924374`*^9, 3.788167466142986*^9}, {3.788167519535819*^9, 3.788167566471314*^9}, { 3.788167604092924*^9, 3.788167608914926*^9}, {3.788167661942783*^9, 3.788167695393477*^9}, {3.788167773185461*^9, 3.78816778551669*^9}, { 3.7881678334032145`*^9, 3.788167858613688*^9}, {3.788167891417267*^9, 3.7881678967624564`*^9}, 3.788167932902671*^9, {3.788167983998193*^9, 3.788168018338616*^9}, {3.788168061655179*^9, 3.788168061955825*^9}, { 3.788168189290164*^9, 3.788168248400946*^9}, {3.788168299928436*^9, 3.788168333348833*^9}, {3.788168367778096*^9, 3.788168391510321*^9}, { 3.788168427513071*^9, 3.78816847687361*^9}, {3.788168526669993*^9, 3.788168542590762*^9}, {3.788248712205905*^9, 3.7882487460135994`*^9}, { 3.820991819550814*^9, 3.820991829836608*^9}, {3.820993961804452*^9, 3.820993979061395*^9}, {3.8209940160718555`*^9, 3.820994046208595*^9}, { 3.851395882047143*^9, 3.85139588849801*^9}, {3.851396260037772*^9, 3.851396299542898*^9}, {3.851826584458306*^9, 3.8518266442053823`*^9}, { 3.883183202013617*^9, 3.883183305732654*^9}, {3.883183455565381*^9, 3.883183469500197*^9}, 3.883444047076141*^9, {3.88344410294254*^9, 3.883444110673493*^9}}, CellLabel-> "In[809]:=",ExpressionUUID->"85a1eecd-6cef-c143-bdaf-ea67d7d90474"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.493872392894198*^9, 3.557721739014924*^9, {3.692605416175906*^9, 3.692605416405906*^9}, {3.69261644725084*^9, 3.6926164489508424`*^9}, { 3.6926165956910477`*^9, 3.69261660463106*^9}, {3.6926896111178775`*^9, 3.692689619257889*^9}, 3.724147644742329*^9, {3.756169630729544*^9, 3.756169634741873*^9}, {3.881206016790565*^9, 3.8812060221914024`*^9}, { 3.883444342707282*^9, 3.883444343620839*^9}},ExpressionUUID->"08000474-f4de-2944-9e9f-\ 8f527f905201"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.493870948270808*^9, 3.493870974695514*^9}, { 3.493871083763722*^9, 3.493871234574854*^9}, {3.5007185298036003`*^9, 3.5007185364804*^9}, 3.6924165503676853`*^9, {3.692605662406251*^9, 3.692605663806252*^9}, {3.692616334650682*^9, 3.692616335580683*^9}, { 3.6926166166210775`*^9, 3.692616866261427*^9}, 3.692616915531495*^9, 3.692617091411742*^9, 3.692617244301956*^9, {3.692623259860378*^9, 3.692623267340389*^9}, {3.6926896317579064`*^9, 3.692689711518018*^9}, { 3.692689820758171*^9, 3.6926898578282228`*^9}, {3.692689896468277*^9, 3.692689897088278*^9}, {3.692690014838443*^9, 3.6926900476684885`*^9}, { 3.692690093428552*^9, 3.692690117348586*^9}, {3.692690205528709*^9, 3.69269020587871*^9}, 3.692860961962478*^9, {3.692861016462554*^9, 3.6928610911626587`*^9}, {3.7244132320712056`*^9, 3.724413340132728*^9}, { 3.7244133787614603`*^9, 3.72441343334622*^9}, 3.7244134790769606`*^9, { 3.756083191326631*^9, 3.756083210075788*^9}, {3.788239176072998*^9, 3.7882391831676254`*^9}, {3.788239221854759*^9, 3.788239251871309*^9}, { 3.788239300862713*^9, 3.78823930409668*^9}, {3.788239355028654*^9, 3.788239391212795*^9}, {3.851396395663067*^9, 3.8513964045571775`*^9}, { 3.883444213995908*^9, 3.883444336353151*^9}, {3.883444371641893*^9, 3.8834444151311393`*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"279af624-200a-a646-9f3f-82e6c125d166"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.5577964555661*^9, 3.557796469528125*^9}, 3.6926057358063536`*^9, {3.692677804198133*^9, 3.692677804368133*^9}, { 3.692678755149464*^9, 3.692678770969487*^9}, 3.69267930176023*^9, 3.6927716593602715`*^9, 3.692773807173278*^9, {3.723898484965362*^9, 3.723898488502695*^9}, 3.724147399565941*^9, 3.724147635566226*^9, { 3.724552750965875*^9, 3.724552771340017*^9}, {3.756082802720545*^9, 3.756082814674419*^9}, {3.756169638505012*^9, 3.756169642626027*^9}, { 3.881206024041909*^9, 3.8812060285959883`*^9}},ExpressionUUID->"3d8ddbf2-ab85-fb47-adc3-\ 75c00a2544c6"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", "h", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "VIBR", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4939930717488003`*^9, 3.4939930974108*^9}, { 3.493993452372*^9, 3.4939934579568*^9}, {3.4940328656694*^9, 3.4940328661686*^9}, {3.4940336074547997`*^9, 3.494033663178*^9}, 3.4940340531*^9, {3.4940343243684*^9, 3.4940343274104*^9}, { 3.500718840384*^9, 3.5007188689944*^9}, {3.557797943855514*^9, 3.5577979639795494`*^9}, 3.692679293830219*^9, 3.692771703570333*^9, { 3.6927734376627607`*^9, 3.692773462532796*^9}, {3.692773493122838*^9, 3.692773588602972*^9}, 3.692773619943016*^9, {3.692773683713105*^9, 3.692773731253172*^9}, {3.69277377335323*^9, 3.692773773903231*^9}, { 3.6927738245433025`*^9, 3.692773876463375*^9}, {3.692773939413463*^9, 3.692773995603542*^9}, {3.6927740539236236`*^9, 3.692774086763669*^9}, { 3.6928600883112545`*^9, 3.692860095201264*^9}, {3.724510813340685*^9, 3.724510843923993*^9}, {3.724511089489906*^9, 3.724511136236665*^9}, { 3.7245111759684496`*^9, 3.724511180004063*^9}, {3.724511214282744*^9, 3.724511357099068*^9}, {3.72451139044884*^9, 3.724511390894336*^9}, { 3.724511435438853*^9, 3.724511619873787*^9}, {3.724511680905528*^9, 3.724511684090825*^9}, {3.724511739941152*^9, 3.724511744483248*^9}, { 3.724511791958761*^9, 3.724511792442217*^9}, {3.724511945279776*^9, 3.7245119591135845`*^9}, {3.724512176870897*^9, 3.72451218423262*^9}, { 3.724512227324604*^9, 3.724512228468808*^9}, {3.724512261539966*^9, 3.724512272739452*^9}, {3.724512387480114*^9, 3.724512394482444*^9}, { 3.724512486447604*^9, 3.724512492861*^9}, {3.724512563393937*^9, 3.724512564259039*^9}, {3.724512686336095*^9, 3.724512686647025*^9}, { 3.724552398639561*^9, 3.724552428037301*^9}, {3.7245524590510445`*^9, 3.724552490677614*^9}, {3.7245525335305943`*^9, 3.724552549337282*^9}, { 3.7245525915792074`*^9, 3.724552624903928*^9}, {3.724552700655877*^9, 3.724552701097404*^9}, {3.72455278275163*^9, 3.724552841959256*^9}, 3.756082823673523*^9, {3.756082858149851*^9, 3.75608296491168*^9}, { 3.78823639018388*^9, 3.788236434946477*^9}, 3.788248792157753*^9, { 3.851396431326043*^9, 3.851396432629086*^9}, {3.8829277935664372`*^9, 3.8829278247524242`*^9}}, CellLabel-> "In[231]:=",ExpressionUUID->"b8c7bc7a-3025-e346-a391-07784fe3e8e3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["STABILITY ANALYSIS (week 5)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.474260234908738*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.4932790718214*^9, 3.4932790791534*^9}, 3.4933062444776*^9, { 3.4950884313529997`*^9, 3.49508843741*^9}, {3.556624077057487*^9, 3.556624081066694*^9}, 3.55662411296815*^9, 3.619407923793773*^9, { 3.6929652502711906`*^9, 3.692965262811208*^9}, 3.753071245965652*^9, 3.7866746442735834`*^9, {3.788503131545534*^9, 3.788503133806125*^9}, { 3.788595834713565*^9, 3.7885958369488535`*^9}},ExpressionUUID->"bcd58ee1-3714-d74a-ab17-\ cc73d3d21f5e"], Cell[CellGroupData[{ Cell["Lecture example 4.1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.693118843765126*^9, 3.693118845845129*^9}, {3.693218849401043*^9, 3.693218859311056*^9}, {3.7887479930494013`*^9, 3.788747995545307*^9}, 3.788748026336192*^9, 3.8209949267048826`*^9, 3.82161384593501*^9},ExpressionUUID->"4eb7b020-884c-e14f-99cb-\ c7fe95accba7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.693212952706787*^9, 3.6932129823968287`*^9}, 3.693213467247507*^9, { 3.693213537497606*^9, 3.693213550937625*^9}, {3.693381863369029*^9, 3.693381881739055*^9}, {3.693381912409099*^9, 3.6933820064392295`*^9}, { 3.6933820370092726`*^9, 3.6933820461892853`*^9}, {3.693382100929363*^9, 3.6933821288894014`*^9}, {3.6933824368598323`*^9, 3.693382462739868*^9}, { 3.693382545779985*^9, 3.693382576760028*^9}, {3.6933826141100807`*^9, 3.69338261425008*^9}, {3.693382657220141*^9, 3.6933826812701745`*^9}, { 3.693459467865974*^9, 3.693459506396028*^9}, {3.724756588022208*^9, 3.724756591619181*^9}, {3.756264691579814*^9, 3.756264745142851*^9}, { 3.756297352118715*^9, 3.756297363296737*^9}, {3.756354367377921*^9, 3.756354402022817*^9}, {3.756354503721473*^9, 3.756354518145298*^9}, { 3.756354577259649*^9, 3.75635458078909*^9}, 3.788518279999304*^9, { 3.788574025729101*^9, 3.788574029610507*^9}, {3.788574327177696*^9, 3.788574337315638*^9}, {3.788574370184829*^9, 3.7885743901774483`*^9}, { 3.788574558310573*^9, 3.788574561866705*^9}, {3.7885749091230097`*^9, 3.788574909469074*^9}, {3.78883280122558*^9, 3.788832801475511*^9}, { 3.850964677630747*^9, 3.850964681411261*^9}, {3.8519921582317715`*^9, 3.851992170966121*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"80d772f5-6d98-3d4a-a8f7-8a373b715856"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.2 (truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, {3.788748002129151*^9, 3.788748030379919*^9}, 3.820994928778037*^9, 3.8216138491335354`*^9},ExpressionUUID->"b625cb6b-13cd-3f42-be2e-\ 88dcd28f837f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["8"], "A"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "2", "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448443`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153796`*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.693219141801452*^9}, { 3.693219256141612*^9, 3.693219262091621*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.693222086439575*^9, 3.6932220972695894`*^9}, {3.6933108503929453`*^9, 3.693310866912968*^9}, { 3.7247570961974807`*^9, 3.724757114347347*^9}, {3.724757453331685*^9, 3.724757454325657*^9}, {3.756265531029621*^9, 3.756265550206148*^9}, { 3.756265772588833*^9, 3.7562658449593987`*^9}, {3.7562661007343545`*^9, 3.756266105210259*^9}, {3.756267778188237*^9, 3.756267782135869*^9}, { 3.756297557622207*^9, 3.7562975640313606`*^9}, {3.788575454272171*^9, 3.788575455203708*^9}, 3.788834268666679*^9, {3.788834320638523*^9, 3.788834348828912*^9}, {3.850965304883685*^9, 3.850965317023302*^9}, { 3.850965467547227*^9, 3.850965521691221*^9}, {3.850965677474887*^9, 3.850965680130317*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"1b1eaefd-766c-c041-88ac-45b6cfde1141"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3a (plate )", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.443086606701381*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, 3.756360691654639*^9, {3.788748005621221*^9, 3.788748032773177*^9}, 3.820994931205215*^9, 3.8216138511743236`*^9, 3.852338051047749*^9},ExpressionUUID->"ac336a14-96c6-7b47-8c77-\ 33da31a5d04a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"start", " ", "with", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "1000"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", "*", RowBox[{"10", "^", "6"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ",", "\[CapitalOmega]", ",", "\[Delta]W", ",", "\[Delta]wint", ",", "\[Delta]wsta"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{ StyleBox["Print", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ StyleBox["sol", "OperatorCharacter"], StyleBox["=", "OperatorCharacter"], RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "//.", "val"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717377`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.631429673258267*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146646`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625737`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.7249868212275786`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.756356116074851*^9, 3.756356120183282*^9}, {3.756356648982922*^9, 3.756356657840175*^9}, {3.788834572625896*^9, 3.788834618899085*^9}, 3.788936990423038*^9, {3.8209956217654243`*^9, 3.8209956870168357`*^9}, { 3.820995730092198*^9, 3.820995747209697*^9}, 3.820995793359754*^9, { 3.850965869737995*^9, 3.850965953030941*^9}, {3.850966036515455*^9, 3.850966037463144*^9}, {3.8523386081362963`*^9, 3.8523386861808577`*^9}, { 3.8523387379162607`*^9, 3.852338855522773*^9}, {3.8523388859408307`*^9, 3.852338902296262*^9}, {3.85233998421307*^9, 3.852339992832653*^9}, { 3.852340409713179*^9, 3.852340458988041*^9}, {3.8523420674574647`*^9, 3.852342118525632*^9}, {3.852345892964356*^9, 3.852345908082739*^9}, { 3.852358319661192*^9, 3.852358338990722*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"39ba5275-b334-ee4d-80eb-c867acb3e267"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.3b (plate )", "Subsubsection", CellChangeTimes->{{3.446727248379401*^9, 3.446727266257*^9}, { 3.4467288934652*^9, 3.446728896788*^9}, 3.4467805306712*^9, { 3.4801237484706*^9, 3.4801237489386*^9}, {3.574470841719498*^9, 3.5744708449019036`*^9}, {3.6042991711100636`*^9, 3.604299196992544*^9}, 3.60430729253247*^9, {3.604310202140381*^9, 3.6043102048235855`*^9}, { 3.688993342497443*^9, 3.688993352477456*^9}, 3.688998858522344*^9, { 3.689480870769858*^9, 3.689480889829884*^9}, {3.7518654678504887`*^9, 3.751865474661203*^9}, {3.751938626538195*^9, 3.7519386622978053`*^9}, { 3.75376294503279*^9, 3.753762948797768*^9}, 3.7554357667498393`*^9, 3.755523363145975*^9, 3.7866920350953083`*^9, 3.7874847705403304`*^9, { 3.787583534492174*^9, 3.787583543755392*^9}, {3.787624886997221*^9, 3.7876249024322457`*^9}, 3.8195159245188594`*^9, {3.851404160604777*^9, 3.85140418663118*^9}, {3.8514144420507417`*^9, 3.8514144462454934`*^9}, 3.8518339806890965`*^9, {3.852338060272331*^9, 3.8523380646606827`*^9}},ExpressionUUID->"e1319798-d09f-3246-883e-\ 41eac6ff67ee"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "1000"}]}], ",", RowBox[{"\[CapitalEpsilon]", "\[Rule]", RowBox[{"210", "*", RowBox[{"10", "^", "6"}]}]}], ",", RowBox[{"\[Nu]", "\[Rule]", "0.33"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"3", ",", "1", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLATE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"4", ",", "3", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", RowBox[{"-", "p"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "1", "]"}], ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", RowBox[{"\[Theta]Z", "[", "1", "]"}]}], "}"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "2", "]"}], ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", RowBox[{"\[Theta]Z", "[", "2", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "3", "]"}], ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", RowBox[{"\[Theta]Z", "[", "3", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", RowBox[{"uY", "[", "4", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "4", "]"}], ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", RowBox[{"\[Theta]Z", "[", "4", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", RowBox[{"L", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", RowBox[{"uY", "[", "5", "]"}], ",", RowBox[{"uZ", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]X", "[", "5", "]"}], ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", RowBox[{"\[Theta]Z", "[", "5", "]"}]}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "=", RowBox[{"REFINE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MESH", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "//.", " ", "val"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SHOW3D", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "//.", "val"}], " ", "/.", RowBox[{ RowBox[{"Last", "[", "sol", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.688868961124533*^9, 3.688869144174789*^9}, { 3.688869175904834*^9, 3.68886919498486*^9}, {3.688869303295012*^9, 3.688869425185182*^9}, {3.688869534825336*^9, 3.68886953736534*^9}, { 3.688869590965415*^9, 3.688869620615456*^9}, {3.688869669505524*^9, 3.688869671645528*^9}, {3.688869703665572*^9, 3.688869771185667*^9}, { 3.688869813145725*^9, 3.688869843195768*^9}, 3.688869999545987*^9, 3.6888701516862*^9, {3.688870779087078*^9, 3.688870860037192*^9}, { 3.6888713003778076`*^9, 3.688871303197812*^9}, {3.688871341697866*^9, 3.688871422407979*^9}, {3.6888714741080513`*^9, 3.688871476638055*^9}, 3.688875107343738*^9, {3.688875249338948*^9, 3.688875256918959*^9}, { 3.688875289049003*^9, 3.688875320839048*^9}, {3.688875429949199*^9, 3.688875430949202*^9}, {3.6888786937177925`*^9, 3.688878750267872*^9}, { 3.688878790317929*^9, 3.688878820617971*^9}, {3.6888790860283422`*^9, 3.68887909127835*^9}, {3.689058539442931*^9, 3.6890585586029596`*^9}, { 3.689058611933032*^9, 3.689058636633067*^9}, 3.68905867538312*^9, 3.689058721813185*^9, {3.6890588371733475`*^9, 3.689058847933363*^9}, 3.689059314358031*^9, {3.68939651006566*^9, 3.689396570005744*^9}, 3.7519567199003897`*^9, {3.7519567531116476`*^9, 3.751956850088761*^9}, { 3.7519568810345116`*^9, 3.7519569775584803`*^9}, {3.751957015846347*^9, 3.751957097999194*^9}, {3.751957130663088*^9, 3.7519571335374126`*^9}, 3.753763435083539*^9, {3.753763617603459*^9, 3.753763788907042*^9}, { 3.753763831693569*^9, 3.753763872840155*^9}, {3.75376391019105*^9, 3.7537639597106857`*^9}, {3.753764014026031*^9, 3.7537640276633615`*^9}, { 3.753764070700218*^9, 3.753764156008158*^9}, {3.753764195092631*^9, 3.7537643084881086`*^9}, 3.753764389828247*^9, {3.753764533778655*^9, 3.753764547869378*^9}, {3.755352750517651*^9, 3.7553528603017626`*^9}, { 3.75538351472929*^9, 3.755383569354991*^9}, {3.755383607438428*^9, 3.7553838360146847`*^9}, {3.755383876626367*^9, 3.755383951476962*^9}, { 3.755383992736063*^9, 3.7553840478403893`*^9}, {3.755384124898378*^9, 3.755384264640642*^9}, {3.755389313373938*^9, 3.7553893195755854`*^9}, { 3.755389381201706*^9, 3.755389466894439*^9}, {3.755389519910827*^9, 3.755389537914214*^9}, {3.755389582951442*^9, 3.755389708990402*^9}, 3.755433939881701*^9, 3.755434068869628*^9, {3.75543412978486*^9, 3.755434216890894*^9}, {3.755434352841701*^9, 3.755434370405687*^9}, { 3.755434459874297*^9, 3.755434538395585*^9}, 3.755434569759145*^9, { 3.7554346233872647`*^9, 3.7554347263294*^9}, {3.7554347853286095`*^9, 3.755434809358045*^9}, {3.755434907172281*^9, 3.755434918847997*^9}, { 3.755434960050021*^9, 3.75543499834666*^9}, {3.755435110803147*^9, 3.755435142628463*^9}, {3.755435324398292*^9, 3.755435330289207*^9}, { 3.755435441524338*^9, 3.755435445101488*^9}, 3.7554355170109453`*^9, { 3.7554358134766097`*^9, 3.755435918833391*^9}, {3.7554359598830943`*^9, 3.75543598832941*^9}, {3.755436164699664*^9, 3.7554361666501207`*^9}, { 3.755436277778627*^9, 3.755436282441655*^9}, {3.755436433004975*^9, 3.755436581090038*^9}, {3.755436713592167*^9, 3.755436715026392*^9}, { 3.755436752569789*^9, 3.755436782945344*^9}, {3.75543855564263*^9, 3.755438573014342*^9}, {3.755438603080853*^9, 3.75543862876925*^9}, { 3.755438665543474*^9, 3.755438666460845*^9}, {3.755438707655904*^9, 3.755438711594548*^9}, {3.755438758507522*^9, 3.755438850091778*^9}, { 3.755523374186784*^9, 3.755523407200748*^9}, {3.755523628104781*^9, 3.755523629369397*^9}, {3.755523692162763*^9, 3.755523702854873*^9}, 3.755523766761544*^9, 3.755523847238298*^9, 3.755524158655211*^9, 3.755524213729106*^9, 3.755524399719488*^9, 3.75552571772406*^9, { 3.755525807542608*^9, 3.755525820259694*^9}, 3.755526094753117*^9, 3.7555261757546644`*^9, {3.7555262318295097`*^9, 3.7555262499726167`*^9}, { 3.7555370249561615`*^9, 3.755537051432358*^9}, 3.755537285330726*^9, { 3.755537468732602*^9, 3.755537521108555*^9}, 3.7555375621618123`*^9, { 3.75553793911256*^9, 3.755537970148187*^9}, {3.75556745255452*^9, 3.755567456059157*^9}, {3.7555675848877916`*^9, 3.7555675985147886`*^9}, { 3.7555676718904886`*^9, 3.7555677115434046`*^9}, {3.755567758583485*^9, 3.755567779790109*^9}, {3.755567822059022*^9, 3.755567822195668*^9}, { 3.755567859744478*^9, 3.755567860436568*^9}, 3.755607175747889*^9, { 3.7556072159647107`*^9, 3.755607332812396*^9}, {3.7556074217009745`*^9, 3.755607426579308*^9}, 3.755607632666421*^9, {3.755607684025096*^9, 3.755607693062358*^9}, {3.7556077296748147`*^9, 3.755607849742259*^9}, { 3.755608033616538*^9, 3.7556080922325497`*^9}, 3.755608142419341*^9, { 3.755608958207328*^9, 3.755608980843011*^9}, {3.755961559354375*^9, 3.755961579672066*^9}, {3.755961636991267*^9, 3.755961639837885*^9}, { 3.755961688066485*^9, 3.755961705040667*^9}, {3.75596184181551*^9, 3.755961843331066*^9}, {3.756003378094851*^9, 3.756003424416658*^9}, { 3.756003637744131*^9, 3.7560039024762926`*^9}, {3.7560039413994226`*^9, 3.756004010187872*^9}, {3.75600408826851*^9, 3.756004113243814*^9}, { 3.7560042095185223`*^9, 3.756004261292776*^9}, {3.7560043015589314`*^9, 3.7560044114376893`*^9}, {3.756004587870312*^9, 3.756004610316883*^9}, { 3.756090875492567*^9, 3.756090970250229*^9}, {3.756091015325793*^9, 3.756091253656394*^9}, {3.756091306539487*^9, 3.756091307348945*^9}, { 3.756091349766138*^9, 3.756091382957289*^9}, {3.7560914229250793`*^9, 3.756091477168485*^9}, {3.756091512338003*^9, 3.7560916181734085`*^9}, { 3.756091734456238*^9, 3.7560917345758953`*^9}, 3.7560919538299203`*^9, { 3.756092472598545*^9, 3.7560924728155417`*^9}, {3.756092529494649*^9, 3.756092529588612*^9}, {3.756442837140203*^9, 3.756442882754801*^9}, { 3.756443118409811*^9, 3.7564432825122414`*^9}, {3.756443313957742*^9, 3.7564434048585396`*^9}, {3.75644377756419*^9, 3.756443799699541*^9}, { 3.756444020280332*^9, 3.756444052335291*^9}, 3.756444152609261*^9, 3.7866921123667355`*^9, {3.786692169420147*^9, 3.786692647713867*^9}, { 3.7866926921591225`*^9, 3.78669273302064*^9}, {3.786692862316063*^9, 3.7866928658349466`*^9}, {3.786693111991143*^9, 3.786693309398429*^9}, { 3.7866933409841013`*^9, 3.786693461042344*^9}, {3.786693498963604*^9, 3.786693674528589*^9}, {3.786693788149571*^9, 3.7866937950939436`*^9}, 3.7873246428692317`*^9, {3.787485049135359*^9, 3.787485051961443*^9}, { 3.787485091258519*^9, 3.787485424116222*^9}, {3.787485454384991*^9, 3.787485502716935*^9}, {3.787485635816463*^9, 3.7874856505267844`*^9}, 3.787494663934597*^9, {3.787494757932977*^9, 3.787494767364309*^9}, 3.787494920667267*^9, {3.787495065519672*^9, 3.7874951753595195`*^9}, { 3.787495215708169*^9, 3.787495232191481*^9}, {3.787495309959595*^9, 3.787495343471667*^9}, {3.787495377632231*^9, 3.7874953779837875`*^9}, { 3.787536342117909*^9, 3.787536342508462*^9}, {3.7875368085159016`*^9, 3.787536878302806*^9}, {3.787536959952917*^9, 3.7875370055885983`*^9}, { 3.787583506058299*^9, 3.787583520821555*^9}, {3.787583689937277*^9, 3.787583802553567*^9}, 3.7876259263443413`*^9, {3.7876552122737617`*^9, 3.787655270155204*^9}, {3.787707627324065*^9, 3.787707633066317*^9}, { 3.8493387287106876`*^9, 3.8493387484197454`*^9}, {3.849338869050523*^9, 3.849338960752524*^9}, {3.8506381987001867`*^9, 3.850638199323704*^9}, { 3.8506382518387237`*^9, 3.8506382521507797`*^9}, 3.850790936126473*^9, { 3.850790968622494*^9, 3.850790981481354*^9}, {3.8507910227542276`*^9, 3.850791053573805*^9}, {3.850791116545538*^9, 3.8507911402245955`*^9}, { 3.851404334099336*^9, 3.8514044427104735`*^9}, {3.85140448033487*^9, 3.851404528280829*^9}, {3.851404675799127*^9, 3.8514047382171335`*^9}, { 3.8514048639344797`*^9, 3.851405048797428*^9}, {3.8514073608057184`*^9, 3.851407372693451*^9}, {3.8514076870255766`*^9, 3.851407688703299*^9}, { 3.851407773017706*^9, 3.851407781195134*^9}, {3.851407884878668*^9, 3.851407886958976*^9}, {3.851407930628368*^9, 3.8514079496190023`*^9}, { 3.851408774043013*^9, 3.85140879767111*^9}, {3.851414393446686*^9, 3.851414425703439*^9}, {3.851414497406939*^9, 3.851414571302442*^9}, { 3.851414604135325*^9, 3.8514146600460863`*^9}, {3.8514147004976883`*^9, 3.851414702555371*^9}, {3.851826345022826*^9, 3.851826362735227*^9}, { 3.851833990202461*^9, 3.851834032488775*^9}, {3.851834067359583*^9, 3.851834088777607*^9}, {3.85183413027966*^9, 3.85183413636305*^9}, { 3.8518342009484644`*^9, 3.851834369129287*^9}, {3.8518344143060737`*^9, 3.851834414983051*^9}, {3.851834455386955*^9, 3.851834543885075*^9}, { 3.8518347971351566`*^9, 3.851834801759319*^9}, {3.851835132695306*^9, 3.851835247924095*^9}, {3.851835295849347*^9, 3.851835329468197*^9}, 3.851835409451404*^9, {3.851835498320532*^9, 3.8518355048099184`*^9}, { 3.852338074803082*^9, 3.852338264306811*^9}, {3.8523383137720175`*^9, 3.852338478052122*^9}, {3.852338528637382*^9, 3.8523385640260878`*^9}, { 3.852338917588834*^9, 3.852338932826299*^9}, {3.852338962951957*^9, 3.852338975351894*^9}, {3.852339008354312*^9, 3.852339059295692*^9}, { 3.85233909941183*^9, 3.852339099778098*^9}, {3.8523392626639595`*^9, 3.8523392811947136`*^9}, {3.8523393634846168`*^9, 3.8523394295923953`*^9}, {3.8523394782379665`*^9, 3.852339478823139*^9}, { 3.852339593926757*^9, 3.852339671084174*^9}, {3.852339711931484*^9, 3.852339784041746*^9}, {3.852339827771785*^9, 3.8523398280877805`*^9}, { 3.852339885054994*^9, 3.852339906414003*^9}, {3.852340395971958*^9, 3.8523403966426587`*^9}, {3.8523404751881385`*^9, 3.852340475781088*^9}, { 3.852340520073232*^9, 3.852340532179105*^9}, {3.852340612157866*^9, 3.852340785094775*^9}, {3.852340819276718*^9, 3.85234085816973*^9}, { 3.852340942090009*^9, 3.852340966879814*^9}, {3.852341026617176*^9, 3.852341139673197*^9}, {3.8523412660930223`*^9, 3.852341295802722*^9}, { 3.852341443502568*^9, 3.852341499929787*^9}, {3.8523415713395557`*^9, 3.8523415826878004`*^9}, {3.852341616970917*^9, 3.85234161803918*^9}, { 3.852341731621508*^9, 3.8523418610746107`*^9}, {3.852341941277248*^9, 3.852341973008494*^9}, {3.852342006990124*^9, 3.852342007408225*^9}, 3.852345951600083*^9, {3.852358553283052*^9, 3.852358553659275*^9}, { 3.852358591760822*^9, 3.8523586243402634`*^9}, {3.883879387933689*^9, 3.883879393597911*^9}, {3.883879696584765*^9, 3.88387970392874*^9}, { 3.883879762993813*^9, 3.883879763957988*^9}, {3.9153283499467144`*^9, 3.9153283502980556`*^9}, {3.9153284227324257`*^9, 3.91532842306686*^9}, { 3.9153285165075493`*^9, 3.915328624031639*^9}, {3.915328661107851*^9, 3.915328661419256*^9}, {3.915328768972639*^9, 3.9153287995134945`*^9}},ExpressionUUID->"c7b8c2e7-7561-d744-bfaa-\ aa21e26c881a"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 4.4 (truss)", "Subsubsection", CellChangeTimes->{{3.493872436493403*^9, 3.493872440377554*^9}, 3.55772174224413*^9, {3.5577222701826596`*^9, 3.557722281898278*^9}, { 3.692536404065328*^9, 3.692536414765343*^9}, {3.692605133904508*^9, 3.692605137804516*^9}, 3.692616505550922*^9, {3.692616556040993*^9, 3.692616575321019*^9}, 3.693218780550946*^9, {3.693222197869731*^9, 3.6932222001297336`*^9}, 3.693306283079224*^9, {3.725021164213514*^9, 3.725021164371165*^9}, {3.7887480090753746`*^9, 3.788748035234958*^9}, 3.820994933226786*^9, 3.821613854016477*^9, {3.915328573388504*^9, 3.915328576231159*^9}},ExpressionUUID->"ff46c0dd-ca0b-be4d-a7fe-\ 93080c581799"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4938808707521195`*^9, 3.493880886414419*^9}, { 3.4938809823296185`*^9, 3.493881074397658*^9}, {3.493881115862191*^9, 3.49388112389614*^9}, {3.5007185681328*^9, 3.5007185858544*^9}, 3.557721807701845*^9, 3.557722301679113*^9, {3.557722338229977*^9, 3.557722345218789*^9}, {3.5577223956380777`*^9, 3.557722557550762*^9}, { 3.557722744435094*^9, 3.557722770175138*^9}, {3.557722914366191*^9, 3.557723132189374*^9}, {3.557723476232378*^9, 3.557723673042323*^9}, { 3.557723707440384*^9, 3.557723724257213*^9}, {3.557723808200961*^9, 3.5577238249085903`*^9}, {3.557724032045754*^9, 3.557724038145365*^9}, { 3.5577240859750485`*^9, 3.557724153382767*^9}, {3.5577255542808275`*^9, 3.557725556340031*^9}, {3.692416572627716*^9, 3.692416634337803*^9}, { 3.692416696297889*^9, 3.69241669701789*^9}, {3.692416728407934*^9, 3.692416742377954*^9}, 3.692416785478014*^9, {3.692416815828057*^9, 3.692416854678111*^9}, {3.692417216950619*^9, 3.692417529801057*^9}, { 3.692418050131785*^9, 3.692418107561865*^9}, {3.6924216949310565`*^9, 3.6924216977710605`*^9}, {3.6925022762935333`*^9, 3.692502279114694*^9}, { 3.6926050714634233`*^9, 3.6926053101657577`*^9}, {3.692605350685814*^9, 3.6926053528358173`*^9}, {3.692605582596139*^9, 3.692605583946141*^9}, 3.692623496410709*^9, {3.692623535710764*^9, 3.692623557910795*^9}, { 3.692695283795819*^9, 3.692695289005826*^9}, {3.6928555108448443`*^9, 3.692855525144866*^9}, {3.692855580194943*^9, 3.692855672545072*^9}, { 3.692855705515118*^9, 3.6928557885252347`*^9}, {3.692855881295365*^9, 3.6928558933153796`*^9}, {3.692855952785465*^9, 3.6928559781655*^9}, { 3.6928560758856373`*^9, 3.692856170005769*^9}, {3.692856223865844*^9, 3.692856258045893*^9}, {3.692856296185945*^9, 3.69285631358597*^9}, { 3.692856357426031*^9, 3.6928563681360464`*^9}, {3.69285639990609*^9, 3.692856400116091*^9}, {3.692857702937915*^9, 3.692857750277982*^9}, { 3.6932187731509356`*^9, 3.693218803870979*^9}, {3.6932188341410213`*^9, 3.6932190222012844`*^9}, {3.693219079141364*^9, 3.693219141801452*^9}, { 3.693219256141612*^9, 3.693219262091621*^9}, 3.6932196368521447`*^9, { 3.693220450485284*^9, 3.6932204509352846`*^9}, {3.693222086439575*^9, 3.6932220972695894`*^9}, {3.693306292479238*^9, 3.693306418469414*^9}, 3.693306456369467*^9, {3.693306595829663*^9, 3.6933066138196874`*^9}, { 3.693306650569739*^9, 3.693306653189742*^9}, {3.693309085270472*^9, 3.693309087550475*^9}, {3.693310327132211*^9, 3.6933103356922226`*^9}, 3.693310369872271*^9, {3.693310470252411*^9, 3.693310489332438*^9}, 3.6933808415756006`*^9, {3.7247583889821615`*^9, 3.724758390348864*^9}, { 3.725021816037766*^9, 3.725021819733665*^9}, {3.7250219746947784`*^9, 3.72502200025261*^9}, {3.725022093649005*^9, 3.725022237603272*^9}, { 3.7250224542170396`*^9, 3.725022522035033*^9}, {3.725022679332588*^9, 3.725022704699949*^9}, {3.725022740940689*^9, 3.725022817280752*^9}, 3.725022850568372*^9, {3.756359751407002*^9, 3.7563598068261595`*^9}, { 3.7563598644359274`*^9, 3.756359867482433*^9}, {3.756451754376941*^9, 3.7564517906965075`*^9}, {3.788835297331105*^9, 3.788835324873559*^9}, { 3.788835362168055*^9, 3.788835402651895*^9}, 3.788836723146744*^9, 3.788836921564518*^9, {3.788837233063264*^9, 3.788837239768136*^9}, { 3.788837442853516*^9, 3.788837474666474*^9}, {3.788837525277843*^9, 3.788837553081115*^9}, {3.788937058688222*^9, 3.788937067270863*^9}, { 3.8210034460614004`*^9, 3.821003455194581*^9}, 3.821153077125378*^9, { 3.851992493464256*^9, 3.851992500294387*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"6293af7d-2efe-ec4b-a229-a1138aff5d6b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764537`*^9, 3.725024106360828*^9}, { 3.7250241751824207`*^9, 3.725024175334324*^9}, {3.788748048003364*^9, 3.788748054932249*^9}},ExpressionUUID->"43374ea3-33f8-1e4d-89f9-\ 0b77dcf3c428"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216736`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.6931907075822606`*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858537`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.850967109212525*^9, 3.850967111163235*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"65159d48-9c4c-f244-b7c6-90fc52665289"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, 3.788748063127517*^9},ExpressionUUID->"217fa1a8-df01-5f41-88a7-\ ae588b1c11f2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.7250242375071936`*^9}, {3.756794146965371*^9, 3.75679418142634*^9}, {3.850967135594717*^9, 3.850967137461238*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"77390819-d4d0-d940-96e6-dcf5dd71bcd7"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, 3.725024360634966*^9, 3.788748067180313*^9},ExpressionUUID->"c48cf678-2123-b44f-bbe4-\ 496beaeb6600"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.7250242375071936`*^9}, {3.725024378941745*^9, 3.725024406343743*^9}, {3.756794241693478*^9, 3.756794243255564*^9}, { 3.821003668368051*^9, 3.821003675582391*^9}, {3.850967165278871*^9, 3.850967167210659*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"f1139d75-7431-ef4a-928b-8e73402d9310"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.725024466017606*^9, 3.788748070204897*^9},ExpressionUUID->"a7089bbe-a331-344d-8ade-\ 58424a418e30"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.69338113518601*^9, 3.69338114969603*^9}, {3.725024496244114*^9, 3.725024503014704*^9}, {3.756794516238365*^9, 3.7567945170664883`*^9}, { 3.756800697920469*^9, 3.7568007144705143`*^9}, {3.7568007575697813`*^9, 3.756800758085305*^9}, {3.8509671904069457`*^9, 3.85096719249596*^9}, { 3.883882973109865*^9, 3.8838831040455194`*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"99aac13c-10aa-ec47-9fde-bda293af2496"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.7250245231315*^9, 3.72502455622487*^9, 3.7567964396238413`*^9, 3.788748075435411*^9},ExpressionUUID->"4f27408d-7b17-ae47-a15c-\ 643fdd5b24ea"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"p", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.693381184076079*^9, 3.693381186676082*^9}, {3.72502465423594*^9, 3.725024658292693*^9}, {3.756796446919061*^9, 3.756796472772376*^9}, { 3.8509672172375956`*^9, 3.850967223320303*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"0bb4a514-fa61-9940-a26f-3cf6789e3c0b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.6932973174666743`*^9, {3.7250246897196236`*^9, 3.725024690280113*^9}, {3.7567965014531136`*^9, 3.756796501671861*^9}, 3.788748083302801*^9},ExpressionUUID->"f410d387-2502-f54e-8f76-\ b28c7378d453"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"\[Theta]Y", "[", "1", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.69329733021669*^9, 3.693297434086836*^9}, {3.693381220626129*^9, 3.6933812440971637`*^9}, 3.7250247134269953`*^9, {3.756796704436857*^9, 3.7567967060458655`*^9}, {3.850967268464264*^9, 3.850967274798299*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"c45f932d-80da-fa48-8e5c-d536db21a808"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.693142094747249*^9, 3.693298925868924*^9, { 3.7250253226298213`*^9, 3.725025323475069*^9}, 3.756796766937865*^9, 3.788748086145274*^9},ExpressionUUID->"189d16de-d115-3f4c-9a62-\ 2a120eb87a03"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931421018572598`*^9, 3.693142185437377*^9}, {3.693381313068259*^9, 3.693381318928268*^9}, { 3.756796779122508*^9, 3.756796780606487*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"6d4677bc-3913-9448-8131-6c027706d0f2"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, 3.693370799325358*^9, 3.72502550453412*^9, 3.756796830657314*^9, 3.7887480892105436`*^9},ExpressionUUID->"ff422dc2-47a0-0848-adfb-\ aea541a733d5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"7", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"RIGID", ",", RowBox[{"{", "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "L"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "4", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501774`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693381352298314*^9, 3.693381360658326*^9}, {3.69346018351458*^9, 3.69346018454458*^9}, { 3.693460277494711*^9, 3.6934602906747293`*^9}, {3.693460328224782*^9, 3.693460473154985*^9}, {3.6934605861451435`*^9, 3.693460590465149*^9}, { 3.693460627595201*^9, 3.6934608558655205`*^9}, {3.6934609279556217`*^9, 3.69346093378563*^9}, {3.693461071075822*^9, 3.6934610732858253`*^9}, { 3.6934617808668156`*^9, 3.693461781226816*^9}, {3.693461815406864*^9, 3.693461824246877*^9}, {3.69346185489692*^9, 3.6934618984369802`*^9}, { 3.6934619751070876`*^9, 3.693461978447092*^9}, {3.6934621984574003`*^9, 3.69346223375745*^9}, {3.693462346117607*^9, 3.6934624185677085`*^9}, { 3.72502542640604*^9, 3.725025427855894*^9}, {3.756796952722471*^9, 3.756796954268941*^9}, {3.821066361356242*^9, 3.821066365768322*^9}, { 3.82106642496561*^9, 3.821066437123183*^9}, {3.8210667024813805`*^9, 3.821066774667529*^9}, {3.8210668836756763`*^9, 3.8210668862200065`*^9}, { 3.821152628904124*^9, 3.821152633672795*^9}, {3.821152687932913*^9, 3.821152705567244*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"54555315-53f1-7140-aab5-dcfef0a0e4c1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (truss)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.725025573634933*^9, 3.725025582913336*^9}, 3.756797263336627*^9, 3.788748091540877*^9},ExpressionUUID->"ac6cefac-a9fb-684f-a457-\ de06eca14c41"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"NOTICE", ":", " ", RowBox[{ "the", " ", "outcome", " ", "of", " ", "the", " ", "hand", " ", "calculation", " ", RowBox[{"(", RowBox[{"analytical", " ", "solution"}], ")"}], " ", "and", " ", "the", " ", "one", " ", "by", " ", "the", " ", "code", " ", RowBox[{"(", RowBox[{"numerical", " ", "solution"}], ")"}], " ", "differ", " ", "due", " ", "to", " ", "discretization", " ", RowBox[{"error", ".", "\[IndentingNewLine]", "The"}], " ", "solution", " ", "by", " ", "FEM", " ", "converges", " ", "to", " ", "the", " ", "analytical", " ", "solution", " ", "when", " ", "the", " ", "mesh", " ", "is", " ", "refined"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], " ", "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SqrtBox["8"], "A"}], ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "F"}]}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "5", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "3", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "5", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "5", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "6", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501774`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.756797338506524*^9, 3.756797339818715*^9}, {3.7568008125108557`*^9, 3.756800814869681*^9}, {3.821004013888099*^9, 3.821004031969683*^9}, { 3.8210040880487194`*^9, 3.821004095892504*^9}, {3.8519936603511744`*^9, 3.8519936750219097`*^9}, {3.8519937307384048`*^9, 3.851993734346714*^9}, { 3.851993768822936*^9, 3.8519937697449074`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"c94c2807-e449-6044-a65c-3a69cd73fafa"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.756361573013221*^9, 3.756361580747472*^9}, 3.756797545973561*^9, {3.7567975787939982`*^9, 3.756797579621932*^9}, 3.788748094743372*^9},ExpressionUUID->"6422446c-c3b5-d84a-bdb1-\ 1e6a494687c0"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"L", ">", "0"}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", "\[Delta]W", "]"}], ";", "\[IndentingNewLine]", RowBox[{ StyleBox["Grid", "OperatorCharacter"], StyleBox["[", "OperatorCharacter"], RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501774`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.7567975871357956`*^9, 3.756797612661065*^9}, {3.756797653667085*^9, 3.756797672662643*^9}, {3.756797924163059*^9, 3.756797942533155*^9}, { 3.756798013969554*^9, 3.756798015453564*^9}, {3.7567983041359205`*^9, 3.756798330801605*^9}, {3.788937859790479*^9, 3.788937864770252*^9}, { 3.821004214806291*^9, 3.8210042284122076`*^9}, {3.8509674829508924`*^9, 3.8509675434163094`*^9}, {3.850967579439263*^9, 3.8509675852019043`*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"19f124dd-db7d-904a-a219-28a7a21c9889"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764523`*^9, 3.725024106360828*^9}, { 3.7250241751824203`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.75679974081704*^9}, {3.881206064362952*^9, 3.881206066933009*^9}},ExpressionUUID->"3d719406-817e-3445-a433-\ 1f801bc99e92"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "F"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216736`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.6931907075822606`*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858537`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.756799750939721*^9, 3.756799769107328*^9}, { 3.788849300089596*^9, 3.7888493641716824`*^9}, {3.7888494139346*^9, 3.7888494286062584`*^9}, {3.8509679745270205`*^9, 3.850967976044734*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"4882539a-880c-6446-bc57-ec234edaad5b"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.693190210631563*^9, {3.7250240785764523`*^9, 3.725024106360828*^9}, { 3.7250241751824203`*^9, 3.725024175334324*^9}, {3.7567997363805785`*^9, 3.75679974081704*^9}, 3.756799812706525*^9, {3.8812060688923984`*^9, 3.881206071438624*^9}},ExpressionUUID->"f6ce8356-a2cc-264a-9d84-\ 7846a06ada80"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "p"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693190222241579*^9, 3.693190243191609*^9}, { 3.6931902881216736`*^9, 3.693190295981683*^9}, 3.693190659322191*^9, { 3.693190705042256*^9, 3.6931907075822606`*^9}, {3.693190781282362*^9, 3.69319078689237*^9}, {3.693191377313196*^9, 3.693191381893203*^9}, { 3.693191416663252*^9, 3.693191421643258*^9}, {3.693191600493509*^9, 3.693191606243517*^9}, {3.693192098886207*^9, 3.6931921222862396`*^9}, { 3.6933810050758276`*^9, 3.6933810224858537`*^9}, {3.6953566059258137`*^9, 3.6953566365958567`*^9}, 3.6953567310559893`*^9, {3.725024159454912*^9, 3.725024160931501*^9}, {3.756799750939721*^9, 3.756799769107328*^9}, { 3.756799861288275*^9, 3.756799866162119*^9}, {3.756799899607374*^9, 3.756799904293829*^9}, {3.7567999450186663`*^9, 3.756799956968975*^9}, 3.756800144331313*^9, {3.756800239090415*^9, 3.7568002683648157`*^9}, { 3.756800429170906*^9, 3.756800642636543*^9}, {3.85096799619191*^9, 3.85096800193428*^9}, 3.883882813483242*^9}, CellLabel-> "In[125]:=",ExpressionUUID->"52842a9d-854b-e045-823d-3541c3385333"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, 3.693136363748409*^9, 3.725024083228655*^9, {3.7567988696810017`*^9, 3.756798876476287*^9}, { 3.8812060746627274`*^9, 3.881206079624403*^9}},ExpressionUUID->"85bd1fc4-3cc0-e242-9fc8-\ c9151b33abf7"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "p"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "1", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "4", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, 3.693136371008418*^9, {3.693381102925966*^9, 3.69338111405598*^9}, { 3.7250242362488475`*^9, 3.7250242375071936`*^9}, {3.756794146965371*^9, 3.75679418142634*^9}, {3.756799517431947*^9, 3.756799522727543*^9}, { 3.788843854837902*^9, 3.788843875913063*^9}, {3.788843907038912*^9, 3.7888439554722376`*^9}, {3.788843993884048*^9, 3.788844021087784*^9}, { 3.788844053360984*^9, 3.788844071769227*^9}, {3.8509675986277914`*^9, 3.850967600568553*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"28f1ed31-219d-9641-bfaf-0bbde5a4ad7e"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (beam)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, 3.7250245231315*^9, {3.756799565561209*^9, 3.756799571966011*^9}, {3.788840101401081*^9, 3.788840103479334*^9}, { 3.881206083621595*^9, 3.88120608769934*^9}},ExpressionUUID->"a90ee209-6ad2-c54b-b45a-\ f113ac97fac4"], Cell[BoxData[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BEAM", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "G"}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "\[CapitalIota]", ",", "\[CapitalIota]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Theta]Y", "[", "2", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006256`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6932961835350847`*^9, 3.69329624391517*^9}, {3.693296279055219*^9, 3.6932962897252336`*^9}, { 3.693381184076079*^9, 3.693381186676082*^9}, {3.725024574725236*^9, 3.725024588839964*^9}, {3.756795212116538*^9, 3.7567952132725544`*^9}, { 3.7888401120623245`*^9, 3.788840168934473*^9}}, CellLabel-> "In[397]:=",ExpressionUUID->"5309772d-45d5-a54b-89df-90fe9e4d4a89"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.7567983913186803`*^9, 3.756798392302821*^9}, { 3.756798873024024*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.789183186974915*^9, {3.881206091573702*^9, 3.881206095983837*^9}},ExpressionUUID->"1590b222-b178-744a-9c9e-\ 6073a4219546"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]wint", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}], "0"}, {"0", "0"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501774`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.756798398207693*^9, 3.7567984239828525`*^9}, {3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.7887484423859143`*^9}, { 3.7887485191144743`*^9, 3.788748649781055*^9}, {3.788748687254717*^9, 3.788748961457423*^9}, {3.788748991789321*^9, 3.78874899810791*^9}, { 3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, {3.788749332203596*^9, 3.788749333422468*^9}, { 3.788749518740166*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, {3.788749746115291*^9, 3.7887498407885494`*^9}, { 3.788749893111492*^9, 3.788750023856191*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, {3.788750264719532*^9, 3.788750294322283*^9}, { 3.788750325600979*^9, 3.788750332029645*^9}, {3.788750851647632*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.788750940486631*^9, 3.7887509949082747`*^9}, {3.788751123863784*^9, 3.788751128299989*^9}, 3.788751244897051*^9, {3.788752133868101*^9, 3.788752205827488*^9}, { 3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.788783437020838*^9}, {3.7887835317770395`*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, {3.7888305028927546`*^9, 3.788830652045955*^9}, { 3.78883071809201*^9, 3.788830782514884*^9}, {3.788830877589118*^9, 3.78883105094988*^9}, {3.788831085701442*^9, 3.788831095283891*^9}, { 3.788831424648365*^9, 3.7888314269780006`*^9}, {3.788831670881442*^9, 3.7888317083030486`*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.788831938690636*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.788832358859887*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.788832476064368*^9}, {3.788832538780415*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.788838618137361*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.789183359762609*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.821004593298056*^9, 3.8210045972144156`*^9}, { 3.821004634135273*^9, 3.8210046864976444`*^9}, {3.821004739070804*^9, 3.821004740017123*^9}, {3.850967673178307*^9, 3.850967750562674*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"c07a1b69-bcf6-3f4a-9706-eec4cd8cf02a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (plate)", "Subsubsection", CellChangeTimes->{ 3.495088447506*^9, {3.495153177701*^9, 3.4951531894166*^9}, 3.558946122925826*^9, {3.692965302131263*^9, 3.692965317401284*^9}, { 3.6931188811951785`*^9, 3.6931188813051786`*^9}, {3.693137932920605*^9, 3.693137933030605*^9}, {3.693138364413209*^9, 3.693138367713214*^9}, 3.693193489881513*^9, {3.6933707838353376`*^9, 3.6933707954953547`*^9}, { 3.69362388551801*^9, 3.693623887178013*^9}, {3.725025667029178*^9, 3.725025705882128*^9}, {3.7567983913186803`*^9, 3.756798392302821*^9}, { 3.756798873024024*^9, 3.7567988734926634`*^9}, {3.788748105249518*^9, 3.7887481164935627`*^9}, 3.789183186974915*^9, 3.8210045757349916`*^9, { 3.8812060981399984`*^9, 3.8812061029075594`*^9}},ExpressionUUID->"1d82851c-2d0f-7942-af4c-\ c03c699b5577"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"use", " ", "the", " ", "building", " ", "blocks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "=", RowBox[{ RowBox[{"a", "[", "1", "]"}], RowBox[{"(", RowBox[{"x", "/", "L"}], " ", ")"}]}]}], ",", " ", RowBox[{"v", "=", "0"}], ",", RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], SuperscriptBox[ RowBox[{"(", " ", RowBox[{"x", "/", "L"}], " ", ")"}], "2"]}]}], " ", ",", "Nxx", ",", "Nyy", ",", "Nxy", ",", "Mxx", ",", "Myy", ",", "Mxy", ",", "\[Delta]wint", ",", "\[Delta]wsta", ",", "\[Delta]wext", ",", "\[CapitalOmega]", ",", "\[CapitalGamma]", ",", "\[Delta]W"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"Nxx", ",", "Nyy", ",", "Nxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{"t", " ", "\[CapitalEpsilon]"}], RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Mxx", ",", "Myy", ",", "Mxy"}], "}"}], "=", RowBox[{"Flatten", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", ":=", RowBox[{ RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Mxx"}, {"Myy"}, {"Mxy"} }], "\[NoBreak]", ")"}]}], "]"}]}], "-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "u"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "v"}]}, { RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "v"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "u"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx"}, {"Nyy"}, {"Nxy"} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]wsta", ":=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"Nxx", "Nxy"}, {"Nxy", "Nyy"} }], "\[NoBreak]", ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", "x"], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", "y"], "w"}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"\[Delta]wext", ":=", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"(", "\[NoBreak]", GridBox[{ {"u"}, {"v"} }], "\[NoBreak]", ")"}], "]"}], "\[Transpose]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "p"}]}, {"0"} }], "\[NoBreak]", ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalGamma]", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wsta"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}], StyleBox["+", "OperatorCharacter"], StyleBox[ RowBox[{"Integrate", "[", RowBox[{"\[Delta]wext", " ", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalGamma]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"H", ">", "0"}]}]}], "]"}], "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "STAB", "}"}], ",", "\[Delta]W"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"STAB", ",", "p"}], "}"}], ",", "\[Delta]W"}], "]"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495088465875*^9, 3.495088486899*^9}, { 3.4950995009309998`*^9, 3.495099501688*^9}, {3.495099819053*^9, 3.4950998310769997`*^9}, {3.495100477261*^9, 3.495100482592*^9}, 3.4951534205774*^9, {3.4951664440478*^9, 3.4951664463722*^9}, { 3.6930154709945107`*^9, 3.693015620124719*^9}, {3.693015821575001*^9, 3.693015826975009*^9}, {3.6930158923661003`*^9, 3.693015945397175*^9}, { 3.693016038087304*^9, 3.693016081017365*^9}, {3.693016118977418*^9, 3.6930161267674284`*^9}, {3.693016443497873*^9, 3.6930164831779275`*^9}, { 3.6930168959426355`*^9, 3.693016943842702*^9}, {3.693017021172811*^9, 3.693017022172812*^9}, {3.693017649325691*^9, 3.693017670245719*^9}, { 3.693017801865904*^9, 3.693017826455939*^9}, {3.693018008816193*^9, 3.6930180566662602`*^9}, {3.693018115636343*^9, 3.693018129476362*^9}, { 3.69301832058663*^9, 3.693018424926776*^9}, {3.693018546686946*^9, 3.693018553656956*^9}, {3.693018592627011*^9, 3.6930186247670555`*^9}, { 3.693018850077371*^9, 3.693018865057392*^9}, {3.6930189745895443`*^9, 3.6930189769895487`*^9}, {3.693019257479942*^9, 3.693019257909942*^9}, { 3.693019392680131*^9, 3.693019394440133*^9}, {3.6930578337843657`*^9, 3.693057906174467*^9}, {3.6930579909745865`*^9, 3.6930579918445873`*^9}, { 3.6930580481846666`*^9, 3.693058052384672*^9}, {3.693058089464724*^9, 3.693058092554728*^9}, {3.693058215804901*^9, 3.6930582164549017`*^9}, { 3.6931379460006247`*^9, 3.693138013541718*^9}, 3.693138069661796*^9, { 3.693138284313097*^9, 3.69313831553314*^9}, {3.6931384072632685`*^9, 3.693138464483349*^9}, 3.69313855045347*^9, {3.693139539130171*^9, 3.6931395422501774`*^9}, {3.6931407590133796`*^9, 3.693140790073424*^9}, { 3.69314082374347*^9, 3.6931408243334713`*^9}, {3.693141231804042*^9, 3.693141239914053*^9}, 3.693141804905844*^9, {3.693370814495379*^9, 3.6933710347856874`*^9}, {3.693371091275767*^9, 3.693371219645947*^9}, { 3.693371517086363*^9, 3.693371522636372*^9}, {3.6933746737607822`*^9, 3.693374840391015*^9}, {3.693375074861344*^9, 3.693375094561371*^9}, { 3.6933751349114275`*^9, 3.6933751375414314`*^9}, {3.693375277291627*^9, 3.6933752833316355`*^9}, {3.693381641408719*^9, 3.693381657478741*^9}, { 3.693623898148028*^9, 3.6936240857282906`*^9}, {3.693624175538417*^9, 3.693624186658432*^9}, {3.693624223688484*^9, 3.693624245598515*^9}, { 3.693624308838603*^9, 3.6936243276586294`*^9}, {3.693624360138675*^9, 3.693624369098687*^9}, {3.693624407648741*^9, 3.693624455108807*^9}, { 3.693624537678923*^9, 3.693624560028955*^9}, 3.6936246237090435`*^9, { 3.693624823159323*^9, 3.69362484900936*^9}, {3.693624981399545*^9, 3.693624991179559*^9}, {3.693625250289921*^9, 3.693625251009922*^9}, 3.72502799519422*^9, {3.725028481041307*^9, 3.725028490580618*^9}, { 3.756798398207693*^9, 3.7567984239828525`*^9}, {3.7887481273800044`*^9, 3.788748215523306*^9}, {3.788748413175475*^9, 3.7887484423859143`*^9}, { 3.7887485191144743`*^9, 3.788748649781055*^9}, {3.788748687254717*^9, 3.788748961457423*^9}, {3.788748991789321*^9, 3.78874899810791*^9}, { 3.7887490376198225`*^9, 3.7887491341764884`*^9}, {3.78874917431256*^9, 3.7887491787653856`*^9}, {3.788749332203596*^9, 3.788749333422468*^9}, { 3.788749518740166*^9, 3.788749518947988*^9}, {3.7887496202302227`*^9, 3.788749714698633*^9}, {3.788749746115291*^9, 3.7887498407885494`*^9}, { 3.788749893111492*^9, 3.788750023856191*^9}, {3.788750111184518*^9, 3.7887502130101995`*^9}, {3.788750264719532*^9, 3.788750294322283*^9}, { 3.788750325600979*^9, 3.788750332029645*^9}, {3.788750851647632*^9, 3.788750859206896*^9}, 3.7887509041484995`*^9, {3.788750940486631*^9, 3.7887509949082747`*^9}, {3.788751123863784*^9, 3.788751128299989*^9}, 3.788751244897051*^9, {3.788752133868101*^9, 3.788752205827488*^9}, { 3.788752250488551*^9, 3.788752263391296*^9}, {3.788783436306548*^9, 3.788783437020838*^9}, {3.7887835317770395`*^9, 3.788783536185897*^9}, 3.7888304361161485`*^9, {3.7888305028927546`*^9, 3.788830652045955*^9}, { 3.78883071809201*^9, 3.788830782514884*^9}, {3.788830877589118*^9, 3.78883105094988*^9}, {3.788831085701442*^9, 3.788831095283891*^9}, { 3.788831424648365*^9, 3.7888314269780006`*^9}, {3.788831670881442*^9, 3.7888317083030486`*^9}, {3.788831746673021*^9, 3.788831782064163*^9}, 3.788831938690636*^9, {3.788831982079364*^9, 3.7888320273484716`*^9}, { 3.788832096707038*^9, 3.788832115036332*^9}, {3.7888321459251814`*^9, 3.788832223572315*^9}, {3.788832358859887*^9, 3.788832383013463*^9}, { 3.788832456010735*^9, 3.788832476064368*^9}, {3.788832538780415*^9, 3.7888325873274*^9}, {3.788838267786459*^9, 3.788838268161379*^9}, { 3.788838459288808*^9, 3.78883856690706*^9}, {3.788838618137361*^9, 3.788838618418537*^9}, {3.789183340270694*^9, 3.789183359762609*^9}, { 3.78918339686213*^9, 3.789183397965809*^9}, {3.789292599980801*^9, 3.789292603534729*^9}, {3.8210048275148125`*^9, 3.821004828986367*^9}, { 3.821004880937112*^9, 3.821004916999135*^9}, {3.821004956835596*^9, 3.821004958617885*^9}, {3.821005018894418*^9, 3.821005022253108*^9}, { 3.8210050574197173`*^9, 3.821005155404633*^9}, {3.821005192513445*^9, 3.821005212994562*^9}, {3.821005250295355*^9, 3.821005276846246*^9}, { 3.821005307393458*^9, 3.821005494052012*^9}, {3.8210055542551365`*^9, 3.821005578232196*^9}, {3.821005628809768*^9, 3.821005687149138*^9}, { 3.821005752261304*^9, 3.8210057747204976`*^9}, {3.821005808015217*^9, 3.8210058204076123`*^9}, 3.8210058571785417`*^9, {3.821005934714407*^9, 3.8210060005564404`*^9}, {3.8210061543710423`*^9, 3.821006264566473*^9}, { 3.821006298742633*^9, 3.821006329464186*^9}, {3.850967798925559*^9, 3.850967922006175*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"6fb7a548-48bd-9442-a762-43503c932c28"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["NONLINEAR ANALYSIS (week 6)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.474260234908738*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.475846189336139*^9, 3.475846200661739*^9}, {3.4932790852218*^9, 3.493279095939*^9}, 3.4933062471764*^9, {3.495765883575599*^9, 3.4957658864927998`*^9}, {3.5566241871999807`*^9, 3.556624190959587*^9}, { 3.622806150174709*^9, 3.622806154790973*^9}, 3.693717161087909*^9, 3.753071247963187*^9, 3.786674646491544*^9, {3.789440471859059*^9, 3.789440476512408*^9}, {3.8530301289001417`*^9, 3.853030131242997*^9}},ExpressionUUID->"7143de54-1e47-404f-9f2d-\ b39ae07c9555"], Cell[CellGroupData[{ Cell["Lecture example 5.1 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879823`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.694084104105713*^9, 3.694084119395734*^9}, 3.725367865956423*^9, 3.725416995739205*^9, 3.725619293450783*^9, 3.7894404895193176`*^9, 3.789440520087886*^9, { 3.821613788368214*^9, 3.821613819178653*^9}},ExpressionUUID->"1728c46c-6065-b046-8256-\ fe1c9fdee97f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", "0.2"}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "3"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", " ", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, 3.725367939183186*^9, {3.725416801610667*^9, 3.725416803739372*^9}, {3.725417020175501*^9, 3.725417208382349*^9}, { 3.7254172395621457`*^9, 3.725417331171501*^9}, {3.72541736659235*^9, 3.7254174053459697`*^9}, {3.725417533992443*^9, 3.725417563861587*^9}, { 3.7254176054682207`*^9, 3.7254177051164956`*^9}, {3.725417754682612*^9, 3.72541776095835*^9}, {3.7254178550580482`*^9, 3.725417924563362*^9}, { 3.725417994971918*^9, 3.725418003642275*^9}, {3.725419046991951*^9, 3.7254190552133617`*^9}, {3.725419417230313*^9, 3.72541944937505*^9}, { 3.725419481847333*^9, 3.725419485387669*^9}, {3.7254195657537193`*^9, 3.725419650915449*^9}, {3.725419711549879*^9, 3.7254197315678887`*^9}, { 3.7254197742112017`*^9, 3.7254197805431004`*^9}, {3.725419829789277*^9, 3.725419874631874*^9}, 3.725419908765535*^9, {3.7255375940526776`*^9, 3.7255377029827495`*^9}, 3.7256193854673696`*^9, 3.725702820357547*^9, { 3.725702854576565*^9, 3.725702865028237*^9}, {3.756832416999443*^9, 3.756832462271259*^9}, {3.789440802913806*^9, 3.789440809277025*^9}, 3.7894411773565855`*^9, {3.821615147466235*^9, 3.821615153888829*^9}, { 3.821620611340539*^9, 3.821620645941663*^9}, {3.852693575912036*^9, 3.852693580202025*^9}, {3.852693867597412*^9, 3.852693881304184*^9}, { 3.8530309367110014`*^9, 3.8530310058199186`*^9}, 3.853031080312402*^9, { 3.853031119109433*^9, 3.853031143011203*^9}, {3.853031199178816*^9, 3.85303120695147*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"d7582473-99e6-e94b-b307-dfa4a88f1c5e"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.2 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879823`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.693722041065507*^9, 3.693896864902024*^9, 3.694084124905741*^9, 3.725368143386225*^9, 3.725422724931479*^9, { 3.725619397031089*^9, 3.725619400828313*^9}, 3.78944049266901*^9, 3.789440522746374*^9, {3.821613791241439*^9, 3.82161379143657*^9}, 3.8216138269048543`*^9},ExpressionUUID->"46f4ef3e-4c23-684c-8680-\ d6a193bdd1b9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"DISP", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}], " ", "/.", "sol"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693722084405568*^9, 3.693722276057837*^9}, 3.693722322227901*^9, 3.693722372317971*^9, {3.693722442468069*^9, 3.693722451698082*^9}, { 3.693723787907967*^9, 3.6937237904979734`*^9}, {3.693724137228457*^9, 3.693724139258459*^9}, {3.693724172548506*^9, 3.6937241752985096`*^9}, { 3.693724292058673*^9, 3.693724295128678*^9}, 3.69373755113851*^9, { 3.693896878692043*^9, 3.693896901652075*^9}, {3.7253681563091784`*^9, 3.725368157559586*^9}, {3.72542273277819*^9, 3.725422854026498*^9}, { 3.725422885282486*^9, 3.7254228865161843`*^9}, {3.725422942650051*^9, 3.725423062788546*^9}, 3.725423150321371*^9, {3.7254316686112447`*^9, 3.725431674781223*^9}, {3.725538838588361*^9, 3.725538851246591*^9}, 3.72561943608208*^9, {3.7257026059808226`*^9, 3.72570261040317*^9}, { 3.725702644912425*^9, 3.725702648725309*^9}, {3.725702796521108*^9, 3.725702797865259*^9}, {3.72575626980612*^9, 3.725756351318025*^9}, { 3.725756456625953*^9, 3.725756477189308*^9}, {3.725756544097674*^9, 3.725756583186432*^9}, {3.7257566457338176`*^9, 3.725756743136969*^9}, { 3.725756778112492*^9, 3.725756778494486*^9}, {3.725761648915716*^9, 3.725761713922561*^9}, {3.725765194189823*^9, 3.725765206503494*^9}, { 3.7257652623736453`*^9, 3.7257652896111813`*^9}, {3.725765341710131*^9, 3.725765462395775*^9}, {3.725769869462216*^9, 3.7257699169022665`*^9}, { 3.7894412582865953`*^9, 3.7894412708273387`*^9}, {3.7894413278185287`*^9, 3.789441329143035*^9}, 3.789441601886338*^9, {3.789441642006256*^9, 3.789441643130957*^9}, {3.789441907932015*^9, 3.789441908494623*^9}, { 3.789442049256173*^9, 3.789442072736273*^9}, {3.821621298176068*^9, 3.821621308481735*^9}, {3.8526939057531376`*^9, 3.852693916313658*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"88de7761-7acf-9e43-b653-2211d6d1e36f"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.686233646074559*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.694086478127248*^9, 3.694086479657249*^9}, 3.7256194498022785`*^9, 3.789440495427185*^9, 3.789440526797804*^9, {3.821613793957991*^9, 3.8216137941890326`*^9}, 3.821613829297106*^9},ExpressionUUID->"c941cf08-1c2f-6241-9e13-\ 8ca3f4e5b381"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g"}]}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.685342989518985*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.692695317325865*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.694086539407334*^9}, {3.694086588927404*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.6940867569976406`*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.7894421264127007`*^9, 3.78944213687227*^9}, {3.789443395559586*^9, 3.7894434045015726`*^9}, {3.7894434621551476`*^9, 3.789443464833054*^9}, { 3.853031271219007*^9, 3.853031299008956*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"36fdb2ed-0e8d-ff4f-b2fe-9de076b40f55"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.4 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, {3.725621905609552*^9, 3.725621910203785*^9}, 3.789440497743353*^9, 3.789440529440142*^9, {3.789616129613903*^9, 3.7896161325182133`*^9}, {3.821613801831195*^9, 3.821613831936789*^9}},ExpressionUUID->"47171539-77b9-3042-9d43-\ 356c34647f52"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725716`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694064706369087*^9, 3.694064712349095*^9}, 3.694064814159237*^9, { 3.7256219225800886`*^9, 3.7256219748824816`*^9}, {3.821772649461963*^9, 3.8217726509231224`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"59c4c575-4aec-a448-99e6-035899161704"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.5 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879837`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.693901495502507*^9, 3.6939015033425198`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.789440502156151*^9, 3.7894405325936704`*^9, 3.8217726748188057`*^9},ExpressionUUID->"ed8dd1ae-fe0c-f44d-8b77-\ e6b7f269bf39"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, {3.693901542752574*^9, 3.6939015577525964`*^9}, { 3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, { 3.693901827053971*^9, 3.693901833313979*^9}, {3.693902871886434*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.693903230356936*^9, {3.725622627200715*^9, 3.725622636357994*^9}, { 3.725622670908451*^9, 3.725622676455966*^9}, {3.725622713881729*^9, 3.7256227145067945`*^9}, {3.725622814767364*^9, 3.7256228380354414`*^9}, { 3.789444895683393*^9, 3.789444900781643*^9}, {3.821772681889474*^9, 3.821772691294238*^9}, {3.82177290591377*^9, 3.8217729142460537`*^9}, { 3.852696295749216*^9, 3.852696315470949*^9}, {3.853031378522255*^9, 3.853031397591965*^9}, 3.8530314366225433`*^9}, CellLabel->"In[26]:=",ExpressionUUID->"ba55124a-b22f-4449-8ccc-a201d3200b52"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture problem 5.6 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.6937172119879823`*^9, 3.69371721789799*^9}, {3.693721138354244*^9, 3.69372114262425*^9}, 3.693721197964327*^9, 3.6938966537217274`*^9, {3.693901495502507*^9, 3.6939015033425193`*^9}, 3.694084133545754*^9, 3.725622374631402*^9, 3.725622469610036*^9, 3.789440504983571*^9, 3.789440536851226*^9, { 3.821613806131517*^9, 3.821613806325562*^9}},ExpressionUUID->"c3465451-4280-044c-b1a5-\ 14254816a6c2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "->", "0.05"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", " ", RowBox[{"A", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "F"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "L"}], " ", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693717240668021*^9, 3.693717252648037*^9}, {3.6937173212881336`*^9, 3.6937174206482725`*^9}, {3.693717572178485*^9, 3.693717581028499*^9}, { 3.693717857040884*^9, 3.693717891700932*^9}, {3.693718137641277*^9, 3.693718153091298*^9}, {3.693721075124155*^9, 3.6937210792641606`*^9}, { 3.693721145474253*^9, 3.693721304004475*^9}, {3.693721744775092*^9, 3.69372176445512*^9}, {3.693721796275165*^9, 3.693721800965171*^9}, 3.69372187755528*^9, {3.6937219143353295`*^9, 3.693721933395356*^9}, { 3.693896663161741*^9, 3.6938966894117775`*^9}, 3.693896730061835*^9, { 3.693896766931886*^9, 3.693896793821924*^9}, {3.693896839311988*^9, 3.693896850372003*^9}, {3.693901542752574*^9, 3.6939015577525964`*^9}, { 3.693901595302646*^9, 3.693901710112807*^9}, 3.693901779572904*^9, { 3.693901827053971*^9, 3.693901833313979*^9}, {3.693902871886434*^9, 3.6939028933264637`*^9}, {3.6939031776668615`*^9, 3.6939031787968636`*^9}, 3.693903230356936*^9, {3.7256231338316407`*^9, 3.725623166444374*^9}, { 3.725623223340996*^9, 3.725623223731613*^9}, {3.78944492033692*^9, 3.7894449444018607`*^9}, {3.821772950085473*^9, 3.821772963956665*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"ba29b1a0-190b-8b46-b4f6-5e32625950bc"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 1 (spring)", "Subsubsection", CellChangeTimes->{{3.623115527697212*^9, 3.623115537121752*^9}, { 3.693839654576663*^9, 3.693839677996696*^9}, 3.725511558702956*^9, { 3.725621898421294*^9, 3.725621899858948*^9}, {3.789956416920804*^9, 3.789956421197747*^9}},ExpressionUUID->"321253bd-0bff-fd4f-9a8b-\ f23fc1dd92a5"], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"1", "/", "4"}], "-", RowBox[{"(", RowBox[{"a", "-", RowBox[{"a", "^", "2"}], "+", RowBox[{ RowBox[{"a", "^", "3"}], "/", "3"}]}], ")"}]}], "\[Equal]", "0"}], ",", "a", ",", "Reals"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.693839700606727*^9, 3.693839706596736*^9}, { 3.7258583766945887`*^9, 3.725858514740307*^9}, {3.725858989058057*^9, 3.725859005231624*^9}, {3.7894450781230726`*^9, 3.789445086798571*^9}, { 3.789445123852199*^9, 3.7894451303609877`*^9}, {3.789445227887929*^9, 3.789445286978237*^9}, {3.853031487036024*^9, 3.853031516290058*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"4505345a-fe5d-4746-8782-d50be53eb664"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.7574772683958*^9, 3.757477270754499*^9}, 3.7894405584275*^9},ExpressionUUID->"f6b9b64a-549c-4e48-a066-0165cc57ae50"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"uY", "[", "2", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757477295865029*^9, 3.7574773017672787`*^9}, {3.757477333536891*^9, 3.757477336868082*^9}, { 3.7894453325389366`*^9, 3.789445358114713*^9}, {3.8217731177026515`*^9, 3.821773135240704*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"abee08b8-4c08-a54b-a329-a5e54ea3a92b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.725511564062546*^9, 3.725625311162457*^9, 3.7894405617112646`*^9},ExpressionUUID->"8ccee22d-eeb1-9a43-829f-\ 6f2e54b7da72"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", RowBox[{ RowBox[{"a", "[", "2", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.69407958990419*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.725604769771058*^9}, { 3.725605100772751*^9, 3.725605136125828*^9}, {3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.757477540477742*^9}, 3.757477907422058*^9, {3.789445391534886*^9, 3.789445395253693*^9}, { 3.821773174203444*^9, 3.821773183146188*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"409ebae7-673c-6f44-8024-1aca4dff673f"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, 3.725625314225254*^9, 3.7894405642067876`*^9},ExpressionUUID->"6d8e3de3-6772-3248-b394-\ 6efbd31f68b1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "h", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725605220875243*^9, 3.725605256707104*^9}, {3.7574779149067807`*^9, 3.757477933470075*^9}, { 3.789445420263571*^9, 3.789445453371543*^9}, {3.8217732116204844`*^9, 3.821773228375927*^9}, {3.853031583718212*^9, 3.853031642120866*^9}, { 3.916185887764015*^9, 3.9161858964937496`*^9}, {3.9161860973742867`*^9, 3.9161861019801483`*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"53ce567b-2581-6644-9cb1-94f08500c029"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.694067326282754*^9, 3.725511573876234*^9, 3.725625318506969*^9, 3.789440568716662*^9},ExpressionUUID->"8d4b296c-bc79-5c4b-b09d-\ 29c02c3c69f0"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"g", "\[Rule]", "10."}], ",", RowBox[{"\[Rho]", "->", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.6940673358027673`*^9, 3.694067439482912*^9}, 3.725605406295211*^9, {3.725605452096917*^9, 3.725605453284552*^9}, {3.757478082268685*^9, 3.75747813974619*^9}, { 3.7574782361050873`*^9, 3.7574782462962294`*^9}, 3.757478313116293*^9, 3.7574784080512347`*^9, {3.757478440370651*^9, 3.757478441201786*^9}, { 3.789445502413628*^9, 3.789445505678503*^9}, {3.8217732619969997`*^9, 3.821773264921981*^9}, {3.821773373722191*^9, 3.821773400868431*^9}, { 3.853031781624614*^9, 3.853031811473053*^9}, {3.8530318813596945`*^9, 3.853031945476489*^9}, 3.853031978817148*^9}, CellLabel->"In[69]:=",ExpressionUUID->"4a5ed4af-d136-cb4a-a0a1-1eae523b4467"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (truss)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, 3.7256055657495413`*^9, 3.7256253208821793`*^9, 3.789440571521383*^9},ExpressionUUID->"e21d838f-cfda-1043-b9eb-\ caec66c55c3f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "1", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725706`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, {3.694065539960253*^9, 3.694065548660265*^9}, 3.694067257222657*^9, {3.725605573234694*^9, 3.725605582626178*^9}, { 3.7256056129888973`*^9, 3.725605751800364*^9}, 3.725605788178935*^9, { 3.75747883408612*^9, 3.7574788831159344`*^9}, {3.7894455582931757`*^9, 3.789445561116359*^9}, {3.8217734334717875`*^9, 3.821773440018031*^9}, { 3.853032006421949*^9, 3.853032013225816*^9}, {3.853032099465707*^9, 3.8530321012045107`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"6610f0f3-f1ce-f14d-9b5b-8ad87c7453f1"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.7256061978333664`*^9, {3.7256068862806683`*^9, 3.725606887702759*^9}, 3.725625327336037*^9, 3.757429808988515*^9, { 3.75747944029515*^9, 3.757479442795718*^9}, 3.789440574620819*^9},ExpressionUUID->"830c250c-349d-3344-8213-\ 9d4b3f05cf4c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725706`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694064706369087*^9, 3.694064712349095*^9}, 3.694064814159237*^9, { 3.757479006718543*^9, 3.7574790329387393`*^9}, {3.757479092367199*^9, 3.7574791238375545`*^9}, {3.789445596603827*^9, 3.789445599893951*^9}, { 3.8217734770561576`*^9, 3.821773478385603*^9}, {3.853032132143128*^9, 3.8530321395013227`*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"3d1d11c3-2d35-8943-ae67-86e391d4f87b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 8 (bar-slab structure)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, {3.560232633043067*^9, 3.560232646071812*^9}, { 3.623115545347222*^9, 3.623115557510919*^9}, {3.6939914338993196`*^9, 3.693991446269338*^9}, 3.694000913010317*^9, 3.7256065797642317`*^9, { 3.725606890687307*^9, 3.7256068999228387`*^9}, {3.7256070257017245`*^9, 3.725607038640582*^9}, 3.757429551201259*^9, 3.789440578103948*^9},ExpressionUUID->"2cb92ff9-87fc-b64c-a731-\ 5e1ba2c3ce8c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", "A", "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "F"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725706`*^9, 3.560221059508201*^9}, {3.560232658016495*^9, 3.560232736925009*^9}, { 3.69399146250936*^9, 3.693991563729502*^9}, {3.693991594919545*^9, 3.69399161264957*^9}, {3.693991672259653*^9, 3.6939916977196894`*^9}, { 3.693991732689739*^9, 3.693991751999766*^9}, {3.693992257570474*^9, 3.693992280240505*^9}, {3.693992547910879*^9, 3.693992553180887*^9}, { 3.6939928093312454`*^9, 3.693992934961421*^9}, {3.693992986601494*^9, 3.693992999141511*^9}, {3.694000761540105*^9, 3.6940008877102814`*^9}, { 3.694000920380327*^9, 3.694000948260366*^9}, {3.694001010960454*^9, 3.6940011008205795`*^9}, {3.694064269308474*^9, 3.694064314118537*^9}, 3.6940644008986583`*^9, {3.694064645619001*^9, 3.694064674919041*^9}, { 3.7256066079390864`*^9, 3.725606648115192*^9}, {3.75747929130151*^9, 3.757479338941169*^9}, {3.789445623243403*^9, 3.789445626465139*^9}, { 3.821773508757564*^9, 3.8217735199487343`*^9}, {3.853032185344742*^9, 3.853032196438659*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"f376ea77-31c1-1f4f-9583-5119c631023a"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 9 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.725607064440168*^9, 3.725607133619341*^9}, 3.725625333930484*^9, {3.757428024654767*^9, 3.757428030688318*^9}, { 3.757479448872733*^9, 3.757479450987108*^9}, 3.789440582295444*^9},ExpressionUUID->"015e2e8e-c781-d84e-a0cf-\ 209fe2adcd87"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100."}], ",", " ", RowBox[{"\[Nu]", "\[Rule]", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"g", "\[Rule]", "10"}], ",", RowBox[{"\[Rho]", " ", "\[Rule]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "t"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], "/", "2"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725716`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, 3.72560709045855*^9, 3.725607178967879*^9, { 3.7256072733243494`*^9, 3.7256072756058626`*^9}, {3.725608309756126*^9, 3.725608311647198*^9}, {3.725771734466016*^9, 3.7257721969195395`*^9}, { 3.725772232838031*^9, 3.7257722332153444`*^9}, {3.725772288027615*^9, 3.725772479650519*^9}, {3.725772530529035*^9, 3.72577257412286*^9}, { 3.725791415940133*^9, 3.725791520523611*^9}, 3.725791696980189*^9, { 3.725791734069311*^9, 3.7257917344076343`*^9}, {3.7257923081234202`*^9, 3.7257923707246*^9}, {3.725859595496999*^9, 3.725859664785538*^9}, { 3.725891504696448*^9, 3.725891709651156*^9}, {3.725892062990927*^9, 3.725892063347079*^9}, {3.725892218379181*^9, 3.725892220354437*^9}, { 3.725892259206426*^9, 3.725892259334041*^9}, 3.725892329129791*^9, { 3.725892416753545*^9, 3.7258924714289207`*^9}, {3.7258925212512045`*^9, 3.725892591360572*^9}, {3.725941541310729*^9, 3.7259415780623493`*^9}, { 3.757428049418125*^9, 3.757428054913843*^9}, {3.757428087909403*^9, 3.7574280934841433`*^9}, {3.7574284280978804`*^9, 3.7574284568388243`*^9}, {3.757479457969281*^9, 3.757479477327525*^9}, { 3.789445656969535*^9, 3.789445664100904*^9}, {3.789527751387431*^9, 3.789527797080281*^9}, {3.8217735920327053`*^9, 3.8217736608186865`*^9}, { 3.853032230222368*^9, 3.85303223679877*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"688e3ff4-81ab-e146-a8a0-437a13c54b91"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.694080983509343*^9, 3.6940809892393517`*^9}, { 3.694083731665191*^9, 3.694083732515193*^9}, {3.725591075758112*^9, 3.7255910824931192`*^9}, 3.757417720496823*^9, {3.7574795432836018`*^9, 3.757479545931784*^9}, 3.789440584620143*^9},ExpressionUUID->"b8368715-d19f-b842-98ca-\ 85c4e46f383b"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"t", "\[Rule]", RowBox[{"1", "/", "10"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "2."}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "0"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "4", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "L"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725706`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.694081082649483*^9}, { 3.694081113009525*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.6940828325929346`*^9, 3.6940828345429354`*^9}, {3.725591085384094*^9, 3.7255911544538746`*^9}, {3.725591817757676*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.757416801791027*^9, 3.757416821306521*^9}, 3.7574795541241035`*^9, {3.757479595088483*^9, 3.757479596023892*^9}, {3.757479635696697*^9, 3.757479653341745*^9}, { 3.789445694157391*^9, 3.789445701224625*^9}, {3.8217736706623697`*^9, 3.821773694070822*^9}, {3.821773731752405*^9, 3.821773734571*^9}, { 3.821780323407436*^9, 3.8217803662117853`*^9}, {3.853032278923683*^9, 3.853032287932805*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"041c3092-66ca-bc48-9503-0c694780fe42"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.821775715744479*^9, 3.821775719024729*^9}, {3.881206136600945*^9, 3.881206139142698*^9}},ExpressionUUID->"8701f2ed-6c66-6e4d-a02a-\ e182bbb67fdd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757479831786548*^9, 3.757479924484078*^9}, {3.757479975770355*^9, 3.7574799982811112`*^9}, { 3.757480089314517*^9, 3.757480102569118*^9}, {3.757480606602792*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, { 3.7894568754764276`*^9, 3.789456972569411*^9}, {3.789527942374906*^9, 3.789527942729209*^9}, {3.789536132513161*^9, 3.7895361346615615`*^9}, { 3.789536399082477*^9, 3.789536421795721*^9}, {3.789536454915404*^9, 3.789536455571832*^9}, {3.8217758025127687`*^9, 3.8217758072277403`*^9}, 3.821775926515878*^9}, CellLabel-> "In[106]:=",ExpressionUUID->"705601c5-514e-d343-95e5-53f262f62080"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.725511564062546*^9, 3.725625311162457*^9, { 3.757484623695022*^9, 3.757484629267005*^9}, {3.881206140976477*^9, 3.8812061432675786`*^9}},ExpressionUUID->"f2eabe50-ad65-9e4b-b53f-\ 3cb244dfe730"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "h", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, {3.69407958990419*^9, 3.694079609914219*^9}, {3.725604753175531*^9, 3.725604769771058*^9}, { 3.725605100772751*^9, 3.725605136125828*^9}, {3.7574774861000786`*^9, 3.757477494918944*^9}, {3.757477531238297*^9, 3.757477540477742*^9}, 3.757477907422058*^9, {3.757484640636358*^9, 3.757484666183015*^9}, 3.757484700716534*^9, {3.757484732772525*^9, 3.757484789221012*^9}, 3.75748483146574*^9, {3.789537267060418*^9, 3.789537278515034*^9}, { 3.853033225058108*^9, 3.8530332270173206`*^9}, 3.884648932725034*^9}, CellLabel-> "In[110]:=",ExpressionUUID->"11ae0a1c-8861-8643-83c8-63efd67436c3"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.693841170428785*^9, 3.725511566328563*^9, { 3.725592082848161*^9, 3.7255920894741154`*^9}, {3.881206145544849*^9, 3.8812061500156794`*^9}},ExpressionUUID->"67bb7ad4-3b8e-4347-a404-\ 4cf3664bc2c4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "A"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.693840902088409*^9, 3.693840936258457*^9}, { 3.69384100242855*^9, 3.693841007928558*^9}, 3.694069910702713*^9, { 3.694079748974413*^9, 3.694079837934538*^9}, {3.725593395599037*^9, 3.725593482889551*^9}, 3.725593520033848*^9, {3.757479831786548*^9, 3.757479924484078*^9}, {3.757479975770355*^9, 3.7574799982811112`*^9}, { 3.757480089314517*^9, 3.757480102569118*^9}, {3.757480606602792*^9, 3.757480607392909*^9}, {3.7574808967018805`*^9, 3.757480897227325*^9}, { 3.7894568754764276`*^9, 3.789456972569411*^9}, {3.789527942374906*^9, 3.789527942729209*^9}, {3.821774005946034*^9, 3.821774007482941*^9}, { 3.8217740392795753`*^9, 3.8217740417489786`*^9}, {3.821774080885614*^9, 3.821774082008611*^9}, {3.8217743771908073`*^9, 3.82177441796832*^9}, { 3.821775449472017*^9, 3.821775450119286*^9}, 3.8530323229130535`*^9, { 3.853032459025534*^9, 3.853032460771165*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"408afc96-5a4c-e546-bafc-dd30b06ea21d"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar structure)", "Subsubsection", CellChangeTimes->{ 3.560218382980301*^9, 3.62311554059295*^9, {3.693819973244685*^9, 3.693819983898294*^9}, 3.6938398962370014`*^9, 3.7255115616720276`*^9, 3.725625308724648*^9, 3.757477396494967*^9, {3.757481085296235*^9, 3.757481094257138*^9}, {3.8812061522403245`*^9, 3.8812061563225017`*^9}},ExpressionUUID->"a50927d0-926e-9b44-a358-\ 0c7679a12770"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"val", "=", RowBox[{"{", RowBox[{ RowBox[{"L", " ", "->", "1"}], ",", " ", RowBox[{"A", "\[Rule]", RowBox[{"1", "/", "100"}]}], ",", " ", RowBox[{"\[CapitalEpsilon]", "->", "100"}], ",", " ", RowBox[{"F", "\[Rule]", RowBox[{"1", "/", "100."}]}], ",", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ele", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "\[CapitalEpsilon]", "}"}], ",", RowBox[{"{", RowBox[{"A", ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "2", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "L"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"L", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], " ", "/.", "val"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4957897010062*^9, 3.4957898096446*^9}, { 3.495789841687001*^9, 3.4957898986426*^9}, {3.4957899396882*^9, 3.495789941841*^9}, {3.4957901948417997`*^9, 3.4957902000054*^9}, { 3.4957902785358*^9, 3.4957903351542*^9}, {3.4957903960098*^9, 3.4957904880708*^9}, {3.4957905206904*^9, 3.4957906521984*^9}, { 3.495791040888*^9, 3.4957911068136*^9}, {3.5007281090162*^9, 3.500728132467*^9}, {3.500728173828*^9, 3.5007282325972*^9}, { 3.56021839402512*^9, 3.560218396209124*^9}, {3.5602185052533154`*^9, 3.560218554268601*^9}, {3.5602185915994678`*^9, 3.560218594922273*^9}, { 3.560218692750045*^9, 3.560218714527684*^9}, {3.560218750641747*^9, 3.5602187818886013`*^9}, {3.56021886069994*^9, 3.560218873320362*^9}, { 3.693819990129651*^9, 3.693820006104565*^9}, {3.693820067068052*^9, 3.6938201641626053`*^9}, {3.693820198061544*^9, 3.693820199125604*^9}, 3.693820230839419*^9, {3.693820383431128*^9, 3.693820416095997*^9}, { 3.693820485276953*^9, 3.6938204875870857`*^9}, {3.693820704066468*^9, 3.693820736507323*^9}, {3.693821098334018*^9, 3.693821155875309*^9}, 3.693821299836543*^9, {3.6938399692971034`*^9, 3.6938400282071857`*^9}, { 3.6938400695572433`*^9, 3.693840082837262*^9}, {3.693840140197343*^9, 3.6938401716273866`*^9}, {3.693840240457484*^9, 3.693840254527503*^9}, { 3.6940795213440943`*^9, 3.6940795257441*^9}, {3.7256045368402443`*^9, 3.725604579344708*^9}, {3.757481102253356*^9, 3.757481164282356*^9}, { 3.757481194330432*^9, 3.75748129838559*^9}, {3.757481353914442*^9, 3.757481419932939*^9}, {3.757481946737595*^9, 3.757481990731213*^9}, 3.7574820869091225`*^9, {3.757482122166311*^9, 3.757482122302759*^9}, { 3.821774589054889*^9, 3.821774665005913*^9}, {3.821775402089509*^9, 3.821775422114235*^9}, {3.853033107381581*^9, 3.853033141062274*^9}, { 3.916060075342417*^9, 3.916060106359705*^9}}, CellLabel-> "In[395]:=",ExpressionUUID->"9f430803-9966-f54e-a940-01f062657bd9"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (thin slab)", "Subsubsection", CellChangeTimes->{ 3.560218881853577*^9, 3.560232633043067*^9, 3.623115542820077*^9, { 3.693826261353222*^9, 3.693826273792934*^9}, {3.694064937449409*^9, 3.694064971379457*^9}, {3.694080983509343*^9, 3.6940809892393517`*^9}, { 3.694083731665191*^9, 3.694083732515193*^9}, {3.725591075758112*^9, 3.7255910824931192`*^9}, 3.725595925542554*^9, {3.757482185630768*^9, 3.7574821879362445`*^9}, {3.881206158691961*^9, 3.8812061627877555`*^9}},ExpressionUUID->"4fe979b4-8541-ed40-846f-\ 3095e3afac8f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Nu]"}], "}"}], ",", RowBox[{"{", "t", "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "F"}], ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "3", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", " ", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "L"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "NONL", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "DISP", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5602189175776396`*^9, 3.5602191908121195`*^9}, { 3.560220898687519*^9, 3.560220996499691*^9}, {3.5602210407725716`*^9, 3.560221059508201*^9}, {3.623115276991873*^9, 3.623115290541648*^9}, { 3.693826310417028*^9, 3.693826544345408*^9}, {3.693826600766635*^9, 3.693826603632799*^9}, {3.693826784929142*^9, 3.6938267876833*^9}, { 3.693826822756306*^9, 3.693826823995377*^9}, {3.69406484546928*^9, 3.694064862499305*^9}, 3.6940649754294624`*^9, {3.69406535952*^9, 3.69406541710008*^9}, {3.694065467160151*^9, 3.6940654682101526`*^9}, { 3.694066944192219*^9, 3.69406694514222*^9}, {3.694066982352272*^9, 3.6940669912222843`*^9}, 3.694067045632361*^9, {3.6940672305226192`*^9, 3.69406723070262*^9}, {3.6940810147793875`*^9, 3.694081082649483*^9}, { 3.694081113009525*^9, 3.694081168489603*^9}, 3.6940827811428604`*^9, { 3.694082832592935*^9, 3.6940828345429354`*^9}, {3.725591085384094*^9, 3.7255911544538746`*^9}, {3.725591817757676*^9, 3.725591901469971*^9}, { 3.725591981775208*^9, 3.725592015903798*^9}, {3.725595945794539*^9, 3.725596052648704*^9}, 3.725596310097999*^9, 3.725597765225474*^9, { 3.7256002235096517`*^9, 3.725600225384837*^9}, 3.725601577369067*^9, { 3.7256024833399587`*^9, 3.725602485246642*^9}, {3.72560256753648*^9, 3.7256025692711873`*^9}, {3.7259408859758453`*^9, 3.725940887709132*^9}, { 3.725948705880571*^9, 3.7259487077258434`*^9}, {3.725949106810832*^9, 3.725949108652855*^9}, {3.75748219356618*^9, 3.75748221683813*^9}, { 3.757482288987244*^9, 3.757482355027481*^9}, 3.7574823860843687`*^9, { 3.7574829602375355`*^9, 3.757482961024153*^9}, 3.7574830010830545`*^9, { 3.789528195024557*^9, 3.789528198196429*^9}, {3.821775513385226*^9, 3.821775546830598*^9}, {3.821775613600021*^9, 3.821775685087927*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"cea14fc8-a5b8-654d-bcde-acd3506560a3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["THERMO-MECHANICAL ANALYSIS (week 7)", "Subsection", CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, { 3.473057532827*^9, 3.473057539222*^9}, {3.4734691424642*^9, 3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162*^9}, { 3.4742602258717394`*^9, 3.4742602349087386`*^9}, {3.4751533480335493`*^9, 3.475153383980949*^9}, {3.47515343117095*^9, 3.47515343786335*^9}, { 3.475846189336139*^9, 3.475846200661739*^9}, {3.478256973369199*^9, 3.4782570107312*^9}, {3.480123551083801*^9, 3.480123567495*^9}, { 3.480123621705*^9, 3.480123624903*^9}, {3.4806711082098*^9, 3.4806711221874*^9}, 3.4932793244166*^9, {3.4932794430078*^9, 3.4932794467362003`*^9}, 3.4933062560684*^9, 3.4933063832108*^9, { 3.4993508417324*^9, 3.4993508506556*^9}, {3.556624315771208*^9, 3.556624319733615*^9}, {3.6258072267653337`*^9, 3.625807232594666*^9}, { 3.694170937062989*^9, 3.694170967183031*^9}, 3.7530712518136296`*^9, 3.7866746488145556`*^9},ExpressionUUID->"9f8dfc34-3106-524b-b520-\ 4e134afa1dab"], Cell[CellGroupData[{ Cell["Lecture example 6.1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, 3.726228603741245*^9, 3.790133203599983*^9, 3.790133334060174*^9, 3.8222827885111046`*^9},ExpressionUUID->"2c99021a-ea2b-1c4a-808d-\ 95a5e4008063"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"s", " ", "A"}], ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "3"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"L", "/", "3"}]}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, 3.694321161157248*^9, {3.726228620805838*^9, 3.726228757804364*^9}, {3.7262287989808445`*^9, 3.726228805372174*^9}, { 3.726307977457318*^9, 3.726308020131757*^9}, {3.7264017436165347`*^9, 3.72640178352305*^9}, {3.7264019537489176`*^9, 3.726401957040406*^9}, { 3.726402214267608*^9, 3.726402218486952*^9}, 3.7264023700160475`*^9, 3.726402480673145*^9, 3.726402544409398*^9, {3.7576854743135223`*^9, 3.757685482154978*^9}, 3.757685551287126*^9, {3.8223700571434655`*^9, 3.822370084352723*^9}, 3.822370427162765*^9, {3.822370686877767*^9, 3.822370688321907*^9}, {3.853210161799122*^9, 3.8532101666054835`*^9}, { 3.8532101973125954`*^9, 3.8532102139581337`*^9}, {3.8532102444456997`*^9, 3.853210267026037*^9}, {3.8532103315393543`*^9, 3.85321047360437*^9}, { 3.8539220670092926`*^9, 3.853922093943622*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"f9af26cf-8424-8349-9f85-a5e6d6a6af0d"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.726228956887848*^9, 3.7262289611229367`*^9}, 3.790133209281815*^9, 3.79013333701427*^9, 3.822282790665161*^9},ExpressionUUID->"d086d663-e6e8-bb4f-af49-\ 9879fa87c580"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, 3.694321161157248*^9, {3.757685613033372*^9, 3.7576856239578505`*^9}, {3.8223707404873257`*^9, 3.822370745052121*^9}, { 3.8532105085811586`*^9, 3.853210517669177*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"a1e8010c-3a7c-1b40-8b72-f270ad82df76"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.3 (solid)", "Subsubsection", CellChangeTimes->{ 3.4734695002814*^9, {3.599225569652184*^9, 3.599225577904598*^9}, 3.599225847899473*^9, 3.6862336460745587`*^9, 3.6862909162387624`*^9, { 3.686375541516269*^9, 3.686375541876269*^9}, {3.686463504573411*^9, 3.686463506573414*^9}, {3.6920258070089493`*^9, 3.692025809498953*^9}, { 3.692025870269038*^9, 3.692025872639041*^9}, 3.692502004255974*^9, 3.6926165081909256`*^9, 3.692616578351024*^9, {3.694086478127248*^9, 3.694086479657249*^9}, {3.694527958552099*^9, 3.694527959642101*^9}, 3.726229008596427*^9, 3.7901333397983*^9, 3.8222827963204393`*^9},ExpressionUUID->"6d1d70b6-040e-6e47-992a-\ 54ce73c96613"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"SOLID", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Tetrahedron", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "3", "]"}], ",", RowBox[{"uY", "[", "3", "]"}], ",", RowBox[{"uZ", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442646945073445*^9, 3.442646947397845*^9}, { 3.630367590488758*^9, 3.630367608881191*^9}, {3.630367651765666*^9, 3.630367669549697*^9}, 3.630368414310605*^9, {3.6307482430426474`*^9, 3.6307482456946526`*^9}, 3.685262022046692*^9, {3.6852621067368107`*^9, 3.6852621933569317`*^9}, {3.685262233936989*^9, 3.685262252827015*^9}, 3.685267210253956*^9, {3.685271541223294*^9, 3.685271546353301*^9}, { 3.6853429895189853`*^9, 3.685343023273917*^9}, 3.685876169213304*^9, { 3.68821224839828*^9, 3.688212317998378*^9}, {3.68821235531843*^9, 3.688212389948478*^9}, 3.692025803978945*^9, {3.692025876949047*^9, 3.692025881559054*^9}, {3.692025927709118*^9, 3.692025983939197*^9}, { 3.692026020869249*^9, 3.6920260636193085`*^9}, {3.6920264969699154`*^9, 3.692026498739918*^9}, 3.692502011618395*^9, {3.6925022474708843`*^9, 3.6925022520801487`*^9}, {3.692502302176014*^9, 3.692502373647101*^9}, { 3.6925025169803*^9, 3.692502565572079*^9}, {3.6925026661128297`*^9, 3.6925026706260877`*^9}, {3.6926054666559763`*^9, 3.692605488996008*^9}, { 3.6926055235860567`*^9, 3.6926055236960564`*^9}, 3.69262347584068*^9, { 3.6926953173258653`*^9, 3.6926953218058724`*^9}, {3.6927029458677883`*^9, 3.692702987017846*^9}, {3.692767974815113*^9, 3.692768013085166*^9}, { 3.692768126675325*^9, 3.69276813033533*^9}, {3.692768161725374*^9, 3.6927681639953775`*^9}, {3.6927685368559*^9, 3.692768539955904*^9}, { 3.6927698573477488`*^9, 3.6927699280078473`*^9}, 3.6927700238579817`*^9, { 3.692770056788028*^9, 3.692770104668094*^9}, {3.692857815498072*^9, 3.692857837888104*^9}, 3.692858122048502*^9, {3.694086496987274*^9, 3.694086539407334*^9}, {3.6940865889274035`*^9, 3.694086607197428*^9}, { 3.694086727667597*^9, 3.6940867569976387`*^9}, {3.6940869078278494`*^9, 3.6940869938779697`*^9}, {3.694087033478025*^9, 3.694087055018055*^9}, { 3.6945279734021196`*^9, 3.694528026032194*^9}, {3.6945785500664268`*^9, 3.6945785683464527`*^9}, {3.694578605956504*^9, 3.6945786374265485`*^9}, 3.694578861606862*^9, {3.726229172285854*^9, 3.726229172942167*^9}, { 3.726370894343026*^9, 3.7263709151890526`*^9}, 3.726370949425577*^9, { 3.757746365026296*^9, 3.757746365750707*^9}, {3.822370788479022*^9, 3.822370790971359*^9}, {3.853211959109535*^9, 3.853211976923761*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"185d62d9-2605-c44c-8743-28d5e9b63df5"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.4 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, 3.5625704065950556`*^9, 3.562572422219599*^9, {3.694171035043126*^9, 3.6941710410831356`*^9}, 3.69435160335544*^9, {3.6943533950379486`*^9, 3.694353399057955*^9}, 3.6945278571619587`*^9, 3.726229235417214*^9, 3.7901333429549055`*^9, 3.8222827981893544`*^9},ExpressionUUID->"3d8cc5a0-9623-4545-a784-\ bc6e87faeec2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", RowBox[{"uY", "[", "1", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.6943516119654536`*^9, 3.694351647105502*^9}, {3.694351682395551*^9, 3.69435172440561*^9}, {3.694351953315931*^9, 3.694351961645942*^9}, { 3.69435227463638*^9, 3.694352284516394*^9}, {3.694527885081996*^9, 3.6945278869719996`*^9}, {3.726367237897143*^9, 3.726367307373107*^9}, { 3.757746592466322*^9, 3.7577465938551464`*^9}, {3.822370824852784*^9, 3.8223708528069534`*^9}, {3.853212288934053*^9, 3.853212298143783*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"4b71d240-7d37-c043-a01e-7bb748cef802"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 6.5 (plate)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.4430866067013807`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, {3.726205883565295*^9, 3.726205885049831*^9}, 3.726229327442833*^9, {3.7577467035580034`*^9, 3.7577467044452553`*^9}, 3.790133345955064*^9, 3.822282801134905*^9},ExpressionUUID->"3959ace1-4dc1-404f-8d11-\ 52bdb9d48ce5"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[CapitalDelta]\[CurlyTheta]", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", FractionBox["x", "L"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox["x", "L"]}], ")"}], FractionBox["y", "L"], RowBox[{"(", RowBox[{"1", "-", FractionBox["y", "L"]}], ")"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], StyleBox["\[CapitalOmega]", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], StyleBox[ RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}], "OperatorCharacter"]}], StyleBox["]", "OperatorCharacter"]}]}], StyleBox[";", "OperatorCharacter"], StyleBox["\[IndentingNewLine]", "OperatorCharacter"], RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], StyleBox["\[IndentingNewLine]", "OperatorCharacter"]}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717386`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.6314296732582674`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146656`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625732`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.7249868212275777`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.726206333728132*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.726206519325805*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, 3.757746711561335*^9, { 3.757746928634151*^9, 3.757746956452608*^9}, {3.790562134068997*^9, 3.790562144580222*^9}, {3.790562842691299*^9, 3.790562853795657*^9}, { 3.8222904142238903`*^9, 3.8222904484586935`*^9}, {3.8222905396678267`*^9, 3.822290621977132*^9}, {3.8222908062333317`*^9, 3.8222909103840885`*^9}, { 3.82229104434663*^9, 3.822291057762763*^9}, 3.822291090107176*^9, 3.822291237551684*^9, {3.822291323763043*^9, 3.822291351423003*^9}, { 3.8222913877665834`*^9, 3.822291413365552*^9}, {3.85321265478815*^9, 3.8532127425832305`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"49d416c2-d45e-7f4c-9ec2-caee7e2dda9a"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.72622158520062*^9, 3.790133570993006*^9, {3.790133686084855*^9, 3.790133688198171*^9}},ExpressionUUID->"927842f6-d604-2b49-a747-\ 13b02f57eeb2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "1", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.6945792415273952`*^9, 3.694579314717497*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.7264646047356343`*^9, 3.726464609439276*^9}, {3.726464678493162*^9, 3.726464682868911*^9}, {3.758007980609372*^9, 3.7580080180068483`*^9}, 3.7580080766027403`*^9, 3.8223709049177957`*^9, {3.8532127808477497`*^9, 3.853212811144683*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"d25fb07d-a7a3-1743-b8cc-fc5db3817fbe"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 2 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075087`*^9, 3.790133574425227*^9, 3.790133710048728*^9},ExpressionUUID->"eae5aee9-1569-4243-bed2-\ e294067846fa"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "/", "2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.7264645323529997`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.758008181593988*^9, 3.7580081866865425`*^9}, {3.758008239533526*^9, 3.7580083000659113`*^9}, {3.822370934113742*^9, 3.822370938403273*^9}, { 3.853214062412082*^9, 3.8532140706327295`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"57f78569-4bf9-6245-a5f6-cb2a3de956fb"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 3 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.694324628676102*^9, 3.694324631986107*^9}, 3.6944060216654315`*^9, 3.7262215999677*^9, 3.726224687827624*^9, 3.758008381328991*^9, {3.758009251812319*^9, 3.7580092645611877`*^9}, 3.7901335767519717`*^9, 3.790133712716427*^9},ExpressionUUID->"374ac245-961d-184f-90c2-\ 40eb29c6f5cb"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{ SqrtBox["2"], "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"uZ", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", RowBox[{"uZ", "[", "2", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]0", "+", "\[CapitalDelta]\[CurlyTheta]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694324638476116*^9, 3.6943248045763493`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.6945795367478075`*^9, 3.694579566187848*^9}, {3.726402666829811*^9, 3.726402670383405*^9}, { 3.726465914917368*^9, 3.7264659162925*^9}, {3.758009211337441*^9, 3.7580092179296255`*^9}, {3.8223709655616674`*^9, 3.822370968398084*^9}, { 3.853214161748463*^9, 3.853214183919198*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"1b931019-795c-1a4e-99d0-a9271517b352"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 4 (truss)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, {3.694324628676102*^9, 3.694324631986107*^9}, 3.694327323881875*^9, 3.694406024055435*^9, 3.726221604764799*^9, 3.726224691734134*^9, 3.7580092950074606`*^9, 3.790133580363652*^9, 3.790133715603956*^9},ExpressionUUID->"e8b0ea84-a167-a947-938c-\ 465e80549bcc"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", " ", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694324638476116*^9, 3.6943248045763493`*^9}, {3.69432489844648*^9, 3.694324945836546*^9}, { 3.6943251833568783`*^9, 3.694325219286929*^9}, {3.69432737006194*^9, 3.6943274488520513`*^9}, 3.694419382534791*^9, {3.7580103793082*^9, 3.758010389133934*^9}, {3.82237099593052*^9, 3.822370998714036*^9}, { 3.853214217906112*^9, 3.853214224120651*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"456aad9b-7d18-474b-97e7-0c585a5f3be0"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 5 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.6944312298724184`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, 3.7901335828870115`*^9, 3.790133718434207*^9},ExpressionUUID->"fd954629-f105-734f-8ca2-\ 77935ead5d2e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.6944312664045076`*^9}, {3.6944314730323257`*^9, 3.694431491689392*^9}, {3.694431792456571*^9, 3.694431802442142*^9}, 3.694431834732989*^9, {3.758024452401914*^9, 3.7580244589711*^9}, { 3.822371024737362*^9, 3.822371040825352*^9}, 3.8532142715195665`*^9}, CellLabel->"In[48]:=",ExpressionUUID->"2231e4c1-8044-744e-9bb5-af4a4725a823"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 6 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.726224696312886*^9, 3.7262249172111826`*^9, {3.7580244975473237`*^9, 3.7580245477488456`*^9}, 3.790133585140024*^9, 3.7901337229271975`*^9},ExpressionUUID->"510a1898-5fb2-af46-b7e8-\ f0bda5cefe2f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262248580015097`*^9, 3.726224868877959*^9}, {3.758024561586712*^9, 3.7580245682001762`*^9}, {3.82237107153525*^9, 3.822371073954781*^9}, 3.853214306941168*^9}, CellLabel->"In[53]:=",ExpressionUUID->"6540995d-cd5b-ed46-a771-0ee51e17801e"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 7 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, 3.758024692368653*^9, 3.7901335915540752`*^9, 3.7901337251492295`*^9},ExpressionUUID->"baffd1bb-e303-204f-b9e4-\ f482db5db98f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.758024649839114*^9, 3.758024663579355*^9}, {3.822371096134485*^9, 3.822371115052908*^9}, {3.853214342204943*^9, 3.853214362206827*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"485fa27d-6044-ae4b-9f1f-8f970b352b62"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 8 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.726213788988196*^9, 3.726213794488776*^9}, {3.75802473191534*^9, 3.758024734229988*^9}, 3.790133593902794*^9, 3.790133727042786*^9},ExpressionUUID->"6b44cc93-6637-784a-b824-\ 087f13e809b9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "4", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.7262140346078444`*^9, 3.72621405415678*^9}, {3.7262141086781483`*^9, 3.726214166277943*^9}, {3.726214525816331*^9, 3.7262145263633146`*^9}, { 3.726214569727258*^9, 3.726214575524747*^9}, {3.726226638345352*^9, 3.726226638689148*^9}, {3.758024742273337*^9, 3.758024748620539*^9}, { 3.82237114956907*^9, 3.8223711637889395`*^9}, 3.8532143956016684`*^9}, CellLabel->"In[63]:=",ExpressionUUID->"3101bc25-c544-9940-9f36-0542b3448ea1"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 9 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.72622158520062*^9, { 3.726226718228784*^9, 3.726226721713334*^9}, {3.7580248169988203`*^9, 3.758024819056037*^9}, 3.790133596138479*^9, 3.790133729247693*^9},ExpressionUUID->"6ae05f07-888a-0849-9c8c-\ 30b987a8f60f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "A", " ", "g"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", " ", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.6945792415273952`*^9, 3.694579314717497*^9}, 3.694579360637561*^9, 3.6945797039280415`*^9, { 3.726226731058295*^9, 3.7262268937472987`*^9}, {3.758024835013898*^9, 3.758024846532082*^9}, {3.822371189664237*^9, 3.822371193232697*^9}, { 3.8532144304204135`*^9, 3.853214441853069*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"bdcc152f-caa3-2543-a473-7bec0ed7569f"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise problem 10 (plate)", "Subsubsection", CellChangeTimes->{{3.4430685047746*^9, 3.4430685067558*^9}, { 3.4430866035033803`*^9, 3.4430866067013807`*^9}, 3.4742603622347393`*^9, { 3.47426082029274*^9, 3.4742608300977397`*^9}, {3.4742616255317397`*^9, 3.474261663163739*^9}, 3.47426171431174*^9, {3.569295755520348*^9, 3.569295758265953*^9}, {3.599997535211436*^9, 3.599997536412638*^9}, { 3.686291615689741*^9, 3.6862916164197426`*^9}, 3.6862917141498795`*^9, 3.686291825440035*^9, 3.686463538583459*^9, 3.6920045036236353`*^9, { 3.692007141747794*^9, 3.692007142437795*^9}, {3.723801291509271*^9, 3.723801291633401*^9}, {3.7238014377077494`*^9, 3.723801461461709*^9}, { 3.7249853977242336`*^9, 3.724985409819259*^9}, {3.725025728192973*^9, 3.725025733226318*^9}, {3.726205883565295*^9, 3.726205885049831*^9}, { 3.7262067305356245`*^9, 3.726206738333324*^9}, {3.7577470295179358`*^9, 3.757747030066859*^9}, {3.7580248225537596`*^9, 3.75802482473052*^9}, 3.790133598222252*^9, 3.7901337315379944`*^9},ExpressionUUID->"c16ef9b1-b1c7-3447-9382-\ 984e03dd6c62"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "w", ",", "\[Delta]wint", ",", "\[Delta]wcpl", ",", "\[CapitalOmega]", ",", "\[Delta]W"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["x", "L"]}], " ", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", FractionBox["y", "L"]}], " ", "]"}]}]}], ";", " ", RowBox[{"\[CapitalDelta]\[CurlyTheta]", "=", RowBox[{ RowBox[{"-", FractionBox["z", "t"]}], "2", "\[CurlyTheta]0"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wint", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["t", "3"], " ", "\[CapitalEpsilon]"}], RowBox[{"12", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]", "2"]}], ")"}]}]], RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\[Nu]", "0"}, {"\[Nu]", "1", "0"}, {"0", "0", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]} }], "\[NoBreak]", ")"}]}], ")"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]}, { RowBox[{"2", " ", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "w"}]}]} }], "\[NoBreak]", ")"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[Delta]wcpl", "=", RowBox[{"-", RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "w"}]}, { RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "w"}]} }], "\[NoBreak]", ")"}], "\[Transpose]"}], "]"}], ".", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"1"} }], "\[NoBreak]", ")"}]}], FractionBox[ RowBox[{" ", RowBox[{"\[Alpha]", " ", "\[CapitalEpsilon]"}]}], RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{ RowBox[{"-", "t"}], "/", "2"}], RowBox[{"t", "/", "2"}]], RowBox[{"z", " ", "\[CapitalDelta]\[CurlyTheta]", RowBox[{"\[DifferentialD]", "z"}]}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"\[CapitalOmega]", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "L"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Delta]wint", "+", "\[Delta]wcpl"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Element]", "\[CapitalOmega]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"L", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.442646971905445*^9, {3.4430685207022*^9, 3.4430685918694*^9}, { 3.4430686602608*^9, 3.44306866271*^9}, {3.4430687542864*^9, 3.4430688359955997`*^9}, {3.44308663055378*^9, 3.44308673150138*^9}, { 3.4742604996717386`*^9, 3.47426061596974*^9}, 3.474260985467739*^9, 3.569295818310458*^9, 3.569295934780263*^9, {3.631161797385408*^9, 3.63116192958797*^9}, 3.631162128287335*^9, {3.6314096475812645`*^9, 3.6314096645540943`*^9}, 3.63140970193176*^9, {3.631429667283458*^9, 3.6314296732582674`*^9}, {3.6314297131943383`*^9, 3.631429723193956*^9}, { 3.6320283190146656`*^9, 3.632028333507092*^9}, {3.632028523936627*^9, 3.632028541689458*^9}, {3.663047583414275*^9, 3.6630475933982935`*^9}, { 3.685322391232018*^9, 3.685322396442025*^9}, {3.685322434252078*^9, 3.68532247101213*^9}, {3.6853440662625732`*^9, 3.685344095349236*^9}, { 3.685348976574748*^9, 3.685348980274753*^9}, {3.6862916241397533`*^9, 3.6862916684598155`*^9}, {3.686291740699917*^9, 3.686291791099987*^9}, { 3.686291838540054*^9, 3.68629185767008*^9}, 3.692007202297879*^9, { 3.724985419429654*^9, 3.7249854733258133`*^9}, {3.7249855047198954`*^9, 3.724985672643574*^9}, {3.724985823331335*^9, 3.72498583108245*^9}, { 3.724985925636374*^9, 3.724985954061252*^9}, {3.724986077371119*^9, 3.724986087356438*^9}, {3.72498667993143*^9, 3.724986721357722*^9}, { 3.724986817961895*^9, 3.7249868212275777`*^9}, {3.725021200723025*^9, 3.725021205166871*^9}, {3.725028344525595*^9, 3.725028396615054*^9}, { 3.7262059023641534`*^9, 3.726205930038945*^9}, {3.726205996702224*^9, 3.726206127347*^9}, {3.7262061677575116`*^9, 3.726206333728132*^9}, { 3.7262063654658585`*^9, 3.726206365997158*^9}, 3.7262064731803665`*^9, 3.726206519325805*^9, {3.7262065827700586`*^9, 3.726206588161188*^9}, { 3.726206639401017*^9, 3.726206685124585*^9}, {3.726206752741091*^9, 3.7262067959487677`*^9}, {3.7580248983260407`*^9, 3.7580249229575386`*^9}, {3.790563741361431*^9, 3.7905637452182736`*^9}, { 3.8222916789160852`*^9, 3.8222917385257483`*^9}, {3.8532160512328777`*^9, 3.853216125366497*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"c237e7b8-72ed-9c4b-a4b0-7f5a1f20ceef"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075087`*^9, 3.7579961343745155`*^9, {3.7580340701852493`*^9, 3.758034071905482*^9}, {3.881206283342308*^9, 3.881206285984279*^9}},ExpressionUUID->"d0ec4602-f327-a845-9486-\ 972409a32473"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.7264645323529997`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.758034080038931*^9, 3.758034162389186*^9}, {3.790135407955392*^9, 3.790135457759217*^9}, { 3.822371577744916*^9, 3.82237158008466*^9}, {3.8532166227812743`*^9, 3.853216632770188*^9}, {3.853921208762747*^9, 3.853921300214926*^9}, { 3.853921347174339*^9, 3.8539213777174573`*^9}, {3.8539215174836116`*^9, 3.853921536931364*^9}, {3.881206226061395*^9, 3.881206227311369*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"ebb4b82a-436f-ed4c-b872-a886cd60144f"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 2 (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, {3.6944312298724184`*^9, 3.694431233695636*^9}, {3.7262249061162586`*^9, 3.726224912569766*^9}, 3.7580244401018515`*^9, {3.758034254108346*^9, 3.758034259770264*^9}, { 3.881206287836726*^9, 3.881206289986452*^9}},ExpressionUUID->"738acb2c-00ff-1c4d-9cea-\ 55f73b2f31e8"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.6944312433631887`*^9, 3.6944312664045076`*^9}, {3.6944314730323257`*^9, 3.694431491689392*^9}, {3.694431792456571*^9, 3.694431802442142*^9}, 3.694431834732989*^9, {3.758024452401914*^9, 3.7580244589711*^9}, { 3.758034298112458*^9, 3.758034338813531*^9}, 3.758034384209874*^9, { 3.758034554681752*^9, 3.758034556090353*^9}, {3.7901358214025335`*^9, 3.7901358306030035`*^9}, {3.8223716085615296`*^9, 3.822371616180161*^9}, { 3.853216677493239*^9, 3.8532166827890825`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"832efe92-3e08-8845-9d31-67efba24d3dd"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 3 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694579378377586*^9, 3.7262215921075087`*^9, 3.7579961343745155`*^9, {3.881206292447297*^9, 3.881206297422981*^9}},ExpressionUUID->"339d0cf3-87cf-e641-bde7-\ 164109c06004"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"s", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "3", "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694579393497607*^9, 3.6945793962276106`*^9}, {3.6945794336976633`*^9, 3.694579462597704*^9}, 3.694579720658065*^9, {3.726224413533082*^9, 3.726224424549848*^9}, { 3.7264645323529997`*^9, 3.726464592984414*^9}, {3.726464693010617*^9, 3.726464717278513*^9}, {3.726464754564005*^9, 3.726464755204696*^9}, { 3.757996141779167*^9, 3.757996162899214*^9}, {3.7901290539312696`*^9, 3.790129079209365*^9}, 3.790129123742439*^9, 3.790134159993813*^9, { 3.822371348551828*^9, 3.8223713514371147`*^9}, {3.853216159628018*^9, 3.853216171686645*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"2c43812f-665d-414f-ac03-08acf5d127ae"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 4 (bar)", "Subsubsection", CellChangeTimes->{{3.694171020333105*^9, 3.6941710492031455`*^9}, { 3.694320635316511*^9, 3.694320645406525*^9}, 3.694406019025428*^9, { 3.694423989046864*^9, 3.6944239974668765`*^9}, {3.7262246384942493`*^9, 3.726224644510517*^9}, 3.7579982269300756`*^9, {3.8812063028666697`*^9, 3.881206308777199*^9}},ExpressionUUID->"1811003b-a72e-4044-b42e-\ 6c0a8f451373"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "A", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BAR", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", RowBox[{"4", "A"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "2", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"\[CurlyTheta]", "[", "2", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "L"}], " ", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.5009579937654*^9, 3.5009579961366*^9}, {3.562572124071875*^9, 3.5625721267862797`*^9}, {3.694260485600563*^9, 3.6942606645008135`*^9}, { 3.6942650080031333`*^9, 3.694265017853147*^9}, 3.694265087583245*^9, { 3.694265149373331*^9, 3.6942651519033346`*^9}, {3.694265222753434*^9, 3.694265249783472*^9}, 3.694265475343787*^9, {3.694265521843853*^9, 3.694265528693862*^9}, {3.694320658056543*^9, 3.694320666296555*^9}, 3.694321100397162*^9, {3.694321180867275*^9, 3.694321198067299*^9}, { 3.6943212603173866`*^9, 3.694321282127418*^9}, {3.694424008136892*^9, 3.69442402814692*^9}, 3.6945798778882847`*^9, 3.69534335139094*^9, { 3.726402609129484*^9, 3.726402618632744*^9}, {3.726465882296791*^9, 3.726465882687396*^9}, 3.757998251252205*^9, {3.7579982838698497`*^9, 3.7579982907273283`*^9}, {3.790051020706258*^9, 3.790051030075369*^9}, { 3.822371375469983*^9, 3.822371378140842*^9}, {3.853216197933406*^9, 3.853216206620552*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"e0f488a2-e4d5-574a-b217-d4cd66f0d07a"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5a (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, { 3.758004525770962*^9, 3.75800453036374*^9}, 3.790664201546558*^9, { 3.881206313582735*^9, 3.8812063183696957`*^9}},ExpressionUUID->"e46a1ea5-9023-8146-92b5-\ f0fb2913dfc4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"FORCE", ",", RowBox[{"{", RowBox[{"F", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.7580045551078467`*^9, 3.758004623903921*^9}, {3.7580073627335653`*^9, 3.758007365529795*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, { 3.758007652134451*^9, 3.7580076757538967`*^9}, {3.7580077486896334`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, { 3.7901345399911*^9, 3.790134540526645*^9}, {3.7901345933460946`*^9, 3.790134594099427*^9}, {3.790664206724592*^9, 3.7906642332850227`*^9}, { 3.822371406006948*^9, 3.8223714241545277`*^9}, {3.8532163314339643`*^9, 3.8532163356909313`*^9}, {3.9165335846196423`*^9, 3.9165336041810894`*^9}, {3.916533650201376*^9, 3.9165336505801163`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"7e09b71e-5648-fd4d-8f9e-4787048dbfab"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5b (thin slab)", "Subsubsection", CellChangeTimes->{{3.499487466582*^9, 3.4994874779544*^9}, { 3.4994910657246*^9, 3.4994910793122*^9}, {3.562569560449569*^9, 3.562569563663174*^9}, 3.562570402929049*^9, {3.6943375929467072`*^9, 3.694337600226717*^9}, 3.694406026805439*^9, 3.6944148753044806`*^9, 3.726224701922845*^9, {3.726224987046659*^9, 3.7262249914062004`*^9}, { 3.758004525770962*^9, 3.75800453036374*^9}, 3.822292107186874*^9, { 3.8812063211174097`*^9, 3.881206325533219*^9}},ExpressionUUID->"e3e1a6d4-4be3-dc4d-82ee-\ 00e387ef6c08"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ele", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"PLANE", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalEpsilon]", ",", "\[Nu]", ",", "\[Alpha]", ",", "k"}], "}"}], ",", RowBox[{"{", "t", "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "\[CurlyTheta]0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"JOINT", ",", RowBox[{"{", "}"}], ",", RowBox[{"Point", "[", RowBox[{"{", "1", "}"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fun", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"uX", "[", "1", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "L", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"2", "\[CurlyTheta]0"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FORMATTED", "[", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"STANDARDFORM", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"SOLVE", "[", RowBox[{ RowBox[{"{", "TMEC", "}"}], ",", RowBox[{"{", RowBox[{"ele", ",", "fun"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4994814977164*^9, 3.4994815003996*^9}, { 3.4994876433445997`*^9, 3.4994877082562*^9}, {3.4994877391286*^9, 3.4994877845558*^9}, {3.499488182645*^9, 3.4994881831441994`*^9}, { 3.4994883706562*^9, 3.4994884042586*^9}, {3.4994887442918*^9, 3.499488748301*^9}, {3.4994889348146*^9, 3.4994889623018*^9}, { 3.4994910895926*^9, 3.4994911605257998`*^9}, {3.4994912009766*^9, 3.4994912105081997`*^9}, {3.499492512803*^9, 3.4994925228494*^9}, 3.499492575359*^9, {3.5625696348461*^9, 3.562569639104907*^9}, { 3.694337608306728*^9, 3.694337705056864*^9}, {3.694337736226907*^9, 3.694337836567047*^9}, {3.69433799542727*^9, 3.69433799558727*^9}, { 3.694338239527612*^9, 3.694338253097631*^9}, {3.6943386652882075`*^9, 3.694338672808218*^9}, 3.694340097820214*^9, {3.694340128930257*^9, 3.694340134630264*^9}, {3.694352247876343*^9, 3.69435226019636*^9}, { 3.69441488183449*^9, 3.694414975584621*^9}, 3.6944150060146637`*^9, { 3.6944150741247587`*^9, 3.69441508906478*^9}, {3.694416061338141*^9, 3.694416092178184*^9}, {3.694416799229174*^9, 3.694416815579197*^9}, { 3.6944168620292625`*^9, 3.694416875959282*^9}, {3.6944183207233047`*^9, 3.6944183712233753`*^9}, 3.694579665157987*^9, {3.726214230347681*^9, 3.7262142305040207`*^9}, {3.726225027925677*^9, 3.726225041911526*^9}, { 3.7580045551078467`*^9, 3.758004623903921*^9}, {3.7580073627335653`*^9, 3.758007365529795*^9}, {3.758007441011799*^9, 3.758007523008495*^9}, { 3.758007652134451*^9, 3.7580076757538967`*^9}, {3.7580077486896334`*^9, 3.758007769997414*^9}, {3.7901344035944896`*^9, 3.790134445500792*^9}, { 3.7901345399911*^9, 3.790134540526645*^9}, {3.7901345933460946`*^9, 3.790134594099427*^9}, {3.8223714777672*^9, 3.822371481761523*^9}, { 3.822371523791158*^9, 3.822371525768871*^9}, {3.8532163712164097`*^9, 3.8532163744231153`*^9}, {3.853216444844831*^9, 3.853216446816645*^9}, { 3.853216554311017*^9, 3.853216575510727*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"a8424071-60fb-b846-a16c-81f3e6501fc5"] }, Closed]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{727.7142857142857, 424.2857142857143}, WindowMargins->{{Automatic, 26.14285714285711}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.25 Inherited, FrontEndVersion->"14.0 for Microsoft Windows (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"76641b04-0615-4ae6-91c5-3bb72ff35351" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1714, 26, 199, "Title",ExpressionUUID->"f9c2c148-a01a-4dcf-b5a2-59c8faa291c7", InitializationCell->True], Cell[CellGroupData[{ Cell[2306, 52, 898, 14, 83, "Section",ExpressionUUID->"ee613e85-1fdd-d54a-8608-c1e2a1258645"], Cell[CellGroupData[{ Cell[3229, 70, 156, 2, 54, "Subsection",ExpressionUUID->"96ccfa19-2206-454b-81d9-9118e0e16ff0"], Cell[3388, 74, 31574, 715, 1547, "Input",ExpressionUUID->"e9b956fd-b35b-c648-bce1-b2bf569885a8", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[34999, 794, 88, 0, 38, "Subsection",ExpressionUUID->"7c32a888-2420-884f-9253-418d6446d962"], Cell[35090, 796, 33123, 973, 1420, "Input",ExpressionUUID->"1c77f8f9-192a-2344-a0fe-11e5368d1394", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[68250, 1774, 87, 0, 38, "Subsection",ExpressionUUID->"45558959-9618-444f-b78e-5ca6dc6ae48a"], Cell[68340, 1776, 59984, 1599, 3334, "Input",ExpressionUUID->"8d52c272-952a-b345-8122-544b8f192b63", InitializationCell->True], Cell[CellGroupData[{ Cell[128349, 3379, 4481, 127, 314, "Input",ExpressionUUID->"25e269f0-9718-214b-889f-da1d3ac892ac"], Cell[132833, 3508, 549, 13, 32, "Output",ExpressionUUID->"55d6f2fa-69cf-d744-bfce-48dc2db5b516"], Cell[133385, 3523, 362, 7, 48, "Output",ExpressionUUID->"f0df3a1d-7688-b549-97a4-2e2a8fd20967"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[133796, 3536, 92, 0, 38, "Subsection",ExpressionUUID->"bf4cb436-ccac-9e4e-9703-1b79bb057462"], Cell[133891, 3538, 7120, 206, 514, "Input",ExpressionUUID->"489389f8-2bb1-e549-adf4-d7ce9d16f3e7", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[141060, 3750, 1114, 17, 65, "Section",ExpressionUUID->"c312d317-9bba-1046-a186-df3d13ff1a84"], Cell[CellGroupData[{ Cell[142199, 3771, 267, 4, 54, "Subsection",ExpressionUUID->"4863660d-3948-1344-94ac-b1d50f04f0c7"], Cell[142469, 3777, 839, 21, 87, "Input",ExpressionUUID->"78211ef6-047d-1644-9e04-42c59bfeb4c5"] }, Closed]], Cell[CellGroupData[{ Cell[143345, 3803, 371, 6, 38, "Subsection",ExpressionUUID->"19087b3c-9d7f-e345-85c7-bf81478a17c2"], Cell[143719, 3811, 18163, 446, 749, "Input",ExpressionUUID->"1249f1aa-e362-7c4e-8619-656a06a7ae24", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[161919, 4262, 273, 4, 38, "Subsection",ExpressionUUID->"bbd86f8c-f24b-ad46-849a-2b649266d6ce"], Cell[162195, 4268, 20835, 520, 936, "Input",ExpressionUUID->"a1039d8e-312c-204a-ba85-081e43fa7798", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[183067, 4793, 324, 5, 38, "Subsection",ExpressionUUID->"b6241cc7-1a0e-2a45-a536-fb042a094826"], Cell[183394, 4800, 10028, 221, 442, "Input",ExpressionUUID->"7da9b287-0be9-5c40-a558-0f82b00c0c8d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[193459, 5026, 373, 6, 38, "Subsection",ExpressionUUID->"e9c8bc8b-fe47-794e-856f-1a10702f92af"], Cell[193835, 5034, 11112, 241, 406, "Input",ExpressionUUID->"7be4658a-d988-bc44-93d2-34600125a60f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[204984, 5280, 423, 6, 38, "Subsection",ExpressionUUID->"fbcc9399-2e13-8f4c-80bf-a8b613becca3"], Cell[205410, 5288, 4895, 79, 96, "Input",ExpressionUUID->"3754bd94-d204-e04f-885e-ed04408f88b4", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[210354, 5373, 1118, 17, 65, "Section",ExpressionUUID->"69a4f04d-4cc1-0a4a-bfe9-a0a1339e5c87"], Cell[CellGroupData[{ Cell[211497, 5394, 553, 8, 54, "Subsection",ExpressionUUID->"22c9cb49-9e26-5447-af03-3fa85540fcb4"], Cell[212053, 5404, 15582, 357, 464, "Input",ExpressionUUID->"6cae3ffe-f77d-9d43-bb7a-38c02e9b6334", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[227672, 5766, 477, 7, 38, "Subsection",ExpressionUUID->"b9f52785-03cb-e742-bfc1-2ba4b2038dbb"], Cell[228152, 5775, 16016, 373, 702, "Input",ExpressionUUID->"7527f99c-c47b-ae41-97f1-5d0453f58dc3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[244205, 6153, 576, 8, 38, "Subsection",ExpressionUUID->"44321d8f-37d6-ad4f-bde5-0fa0af277cff"], Cell[244784, 6163, 6705, 115, 216, "Input",ExpressionUUID->"10b93a19-708a-464d-9145-ceaca289575b", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[251526, 6283, 630, 9, 38, "Subsection",ExpressionUUID->"062257e0-06d0-ea4d-8a25-6e0dc47be40d"], Cell[252159, 6294, 8409, 159, 292, "Input",ExpressionUUID->"81997f10-ee06-404e-b9ee-d7211d28bf51", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[260605, 6458, 680, 10, 38, "Subsection",ExpressionUUID->"2418a0fb-8777-184b-9747-34d9009acba3"], Cell[261288, 6470, 6807, 116, 216, "Input",ExpressionUUID->"f10b6081-1ff8-0240-8373-6a6a10ff1e6d", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[268144, 6592, 1113, 17, 65, "Section",ExpressionUUID->"42eea2d9-fdbc-f04c-895b-c15eff01cd7b"], Cell[CellGroupData[{ Cell[269282, 6613, 275, 5, 54, "Subsection",ExpressionUUID->"ba7aa06a-e775-0448-938f-7f6f246450e4", InitializationCell->True], Cell[269560, 6620, 27171, 530, 1225, "Input",ExpressionUUID->"436a8b0c-ff31-5247-a259-328e38045ea5", InitializationCell->True], Cell[296734, 7152, 33890, 621, 998, "Input",ExpressionUUID->"eb3f00ab-c6fb-ed4a-ad18-2e4178609447", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[330661, 7778, 272, 5, 38, "Subsection",ExpressionUUID->"e56afc26-c51a-b047-b376-1b2b1cffed8d", InitializationCell->True], Cell[330936, 7785, 19204, 361, 711, "Input",ExpressionUUID->"dbc14ff6-f775-f440-afdb-956dcd61c85c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[350177, 8151, 272, 5, 38, "Subsection",ExpressionUUID->"9b306994-2b5c-c046-b0dd-691ae49f3b4b", InitializationCell->True], Cell[350452, 8158, 13522, 221, 159, "Input",ExpressionUUID->"70d2902b-0c0b-1747-817c-8bd6d2930be4", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[364011, 8384, 296, 5, 38, "Subsection",ExpressionUUID->"bb5c15c1-744e-0449-92ac-83be78f5317f", InitializationCell->True], Cell[364310, 8391, 21100, 423, 635, "Input",ExpressionUUID->"87ce8ab2-b745-8c46-81c9-fa070cc0711b", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[385447, 8819, 397, 7, 54, "Subsection",ExpressionUUID->"9750a306-60cb-014a-8e85-e6a553f48e95", InitializationCell->True], Cell[385847, 8828, 20809, 406, 770, "Input",ExpressionUUID->"7f3f7bcb-d230-614d-93db-2a6165d5e796", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[406693, 9239, 324, 6, 38, "Subsection",ExpressionUUID->"64fde571-d0ea-c742-bafb-92503ce3236e", InitializationCell->True], Cell[407020, 9247, 5967, 155, 597, "Input",ExpressionUUID->"35ea1548-8a80-6946-849e-a905ab52fcd3", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[413024, 9407, 369, 6, 38, "Subsection",ExpressionUUID->"f4cff622-ae3d-2043-bb9e-1571213c7303", InitializationCell->True], Cell[413396, 9415, 21416, 392, 711, "Input",ExpressionUUID->"73e42aaf-3c7a-d84f-bb81-666ba5ffa37e", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[434849, 9812, 372, 6, 38, "Subsection",ExpressionUUID->"dc21220f-13fe-2d46-8bda-20707bd15407", InitializationCell->True], Cell[435224, 9820, 14174, 215, 102, "Input",ExpressionUUID->"3be85d3d-0697-0c43-83b6-b5162939aea5", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[449435, 10040, 422, 7, 38, "Subsection",ExpressionUUID->"c269c080-32c6-6e47-b253-d679cf5d7803", InitializationCell->True], Cell[449860, 10049, 13751, 201, 102, "Input",ExpressionUUID->"03b4c809-6186-5d43-9e50-71cbc7ace59f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[463648, 10255, 564, 8, 38, "Subsection",ExpressionUUID->"6496f06f-74f4-bd41-9fcf-79e49b69f38f"], Cell[464215, 10265, 50429, 762, 274, "Input",ExpressionUUID->"f354fac4-37af-1046-8074-84bd8d567dc1", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[514681, 11032, 616, 9, 38, "Subsection",ExpressionUUID->"657e3858-62e9-d341-95d9-708ec594d946"], Cell[515300, 11043, 47159, 711, 311, "Input",ExpressionUUID->"700330f7-b650-7748-bb87-19038e439bad", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[562496, 11759, 616, 9, 38, "Subsection",ExpressionUUID->"d6c4c2da-c7d8-8d41-88bb-eb8f09a68222"], Cell[563115, 11770, 46218, 648, 83, "Input",ExpressionUUID->"6f841942-46c9-5e49-b01d-a7b8e82cb6a4", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[609370, 12423, 563, 8, 38, "Subsection",ExpressionUUID->"78c020cf-3fba-534b-8baa-f1d67c6efcbe"], Cell[609936, 12433, 32826, 762, 1527, "Input",ExpressionUUID->"e2f54408-106d-8e4b-ac0f-fc4a08a5ca14", InitializationCell->True], Cell[642765, 13197, 98692, 1914, 2871, "Input",ExpressionUUID->"b1455a47-dec7-8348-98dc-380d22539ae8"], Cell[741460, 15113, 177944, 3574, 5089, "Input",ExpressionUUID->"903e3f55-8118-ac47-a05e-d79958268b0b", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[919441, 18692, 621, 9, 38, "Subsection",ExpressionUUID->"cc74f30b-c70b-b64b-a401-404cfffa0def"], Cell[920065, 18703, 423136, 8283, 14570, "Input",ExpressionUUID->"99631d85-2eb3-e545-aacd-16994fa1f2f2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1343238, 26991, 398, 6, 38, "Subsection",ExpressionUUID->"87e1b4aa-be36-0245-abe3-75139fa38351"], Cell[1343639, 26999, 25657, 637, 1634, "Input",ExpressionUUID->"9189dc0d-5fa1-6641-b9f5-99e02b86a0ed", InitializationCell->True], Cell[1369299, 27638, 17321, 435, 1227, "Input",ExpressionUUID->"ce70c29b-0e2a-474a-a89c-57a0f2adb52c"] }, Closed]], Cell[CellGroupData[{ Cell[1386657, 28078, 298, 5, 38, "Subsection",ExpressionUUID->"c2a7f0ad-a229-ac41-96f6-be886881c9a3"], Cell[1386958, 28085, 67679, 1196, 1098, "Input",ExpressionUUID->"8e78a438-02b6-2b43-b82c-cc671a5fb719", InitializationCell->True], Cell[1454640, 29283, 57283, 978, 1159, "Input",ExpressionUUID->"5d56e5da-790c-0243-9dc8-e0cfbf920172"] }, Closed]], Cell[CellGroupData[{ Cell[1511960, 30266, 716, 10, 38, "Subsection",ExpressionUUID->"b490c57c-7c47-fd41-8748-3ae415901676"], Cell[1512679, 30278, 55034, 882, 665, "Input",ExpressionUUID->"0986433e-1977-2546-9995-6d697b547e4d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1567750, 31165, 319, 5, 38, "Subsection",ExpressionUUID->"ddabc21f-8b61-e44a-9882-c89fab533474"], Cell[1568072, 31172, 419736, 9115, 20185, "Input",ExpressionUUID->"659ec420-cc6e-3d40-b2c0-98f02b051d99"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1987857, 40293, 1040, 16, 65, "Section",ExpressionUUID->"fb5a2349-5a86-bf45-932a-ec651b098866"], Cell[CellGroupData[{ Cell[1988922, 40313, 268, 4, 54, "Subsection",ExpressionUUID->"45a307c6-d609-bd47-bc56-793112d2a460"], Cell[1989193, 40319, 28251, 504, 808, "Input",ExpressionUUID->"524b9373-2e92-174d-adc5-1bd1eb9caf34", InitializationCell->True], Cell[2017447, 40825, 32724, 637, 903, "Input",ExpressionUUID->"eef96f88-f856-4e4a-a586-f00e7a139363", InitializationCell->True], Cell[2050174, 41464, 31240, 590, 921, "Input",ExpressionUUID->"32a92db6-2fd8-9d44-b2e9-18a3940fbd7b", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2081451, 42059, 322, 5, 38, "Subsection",ExpressionUUID->"4142be3b-7c42-9646-98f1-d41738de29a3"], Cell[2081776, 42066, 41026, 864, 1625, "Input",ExpressionUUID->"fe10cc2b-044f-3e4e-80c4-ce70d0976b88", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2122839, 42935, 223, 4, 38, "Subsection",ExpressionUUID->"354f06c0-d232-434d-9925-66f9d7119e16"], Cell[2123065, 42941, 31019, 629, 1224, "Input",ExpressionUUID->"93e0dec8-c354-e54f-a0df-f4ed0b6dbf6a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2154121, 43575, 267, 4, 38, "Subsection",ExpressionUUID->"238bbcff-ec89-d540-bb25-512587fcb37c"], Cell[2154391, 43581, 19491, 321, 349, "Input",ExpressionUUID->"d1bdbc16-ae4b-d14d-96ae-b34d2c6dec60", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2173919, 43907, 301, 5, 38, "Subsection",ExpressionUUID->"dbf906d1-fcd2-a64f-97a8-480711c06180"], Cell[2174223, 43914, 32676, 672, 1111, "Input",ExpressionUUID->"62fc4859-c117-e846-bf81-d5a237fc8693", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2206936, 44591, 222, 4, 38, "Subsection",ExpressionUUID->"4820cac9-4d09-2245-95b7-5058089d80e5"], Cell[2207161, 44597, 32169, 664, 1246, "Input",ExpressionUUID->"0dbb64ae-d0a0-1e43-a75b-906dc2e1a07c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2239367, 45266, 505, 7, 38, "Subsection",ExpressionUUID->"a960621f-fc1f-ee4e-8da5-18edd4243f52"], Cell[2239875, 45275, 86709, 1631, 2507, "Input",ExpressionUUID->"466c3840-0ea2-894b-b054-8fc88929af67", InitializationCell->True], Cell[2326587, 46908, 103604, 1837, 2042, "Input",ExpressionUUID->"ba7abfa6-79b9-7547-9719-736ddf1deba9"] }, Closed]], Cell[CellGroupData[{ Cell[2430228, 48750, 299, 5, 38, "Subsection",ExpressionUUID->"61d7ea2b-8703-a54a-9b71-c48d82d087d6"], Cell[2430530, 48757, 21783, 548, 1400, "Input",ExpressionUUID->"21718ce5-40e6-7c44-81b6-2cfa63d3b567", InitializationCell->True], Cell[2452316, 49307, 70495, 1214, 1459, "Input",ExpressionUUID->"5fd1ecd9-38bb-7441-bee3-69d587961cb4"] }, Closed]], Cell[CellGroupData[{ Cell[2522848, 50526, 552, 8, 38, "Subsection",ExpressionUUID->"c99b3acb-26cc-f54b-8062-c71f32081b16"], Cell[2523403, 50536, 69230, 1187, 1267, "Input",ExpressionUUID->"07209911-6558-054e-a0b1-a8c65956f65f", InitializationCell->True], Cell[2592636, 51725, 66227, 1132, 1194, "Input",ExpressionUUID->"acf2551e-64bd-4d47-8060-3ea993d2d948"] }, Closed]], Cell[CellGroupData[{ Cell[2658900, 52862, 495, 7, 38, "Subsection",ExpressionUUID->"c377ff00-9c36-7e4e-ac8b-455e80e5a0fb"], Cell[2659398, 52871, 89330, 1698, 2547, "Input",ExpressionUUID->"c713b8e7-41a3-004c-9f63-592b2f01322c", InitializationCell->True] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[2748777, 54575, 1090, 17, 65, "Section",ExpressionUUID->"58dbf096-4407-ac44-bfe2-434a7d43962d"], Cell[CellGroupData[{ Cell[2749892, 54596, 224, 4, 54, "Subsection",ExpressionUUID->"43ec597b-1ee6-0c49-b99b-f7203ee2206f", InitializationCell->True], Cell[2750119, 54602, 22799, 577, 1419, "Input",ExpressionUUID->"fb429d89-627f-8a4f-a1eb-35711ef5467f", InitializationCell->True], Cell[2772921, 55181, 126946, 2457, 3088, "Input",ExpressionUUID->"11d8c705-1a60-784b-bd70-a8f466341cf0"] }, Closed]], Cell[CellGroupData[{ Cell[2899904, 57643, 272, 5, 38, "Subsection",ExpressionUUID->"e36b09ff-6537-6149-a148-d04e78be5d95", InitializationCell->True], Cell[2900179, 57650, 25353, 635, 1532, "Input",ExpressionUUID->"947938ba-228f-ca48-ac00-fe6a7c7ef697", InitializationCell->True], Cell[2925535, 58287, 92182, 1603, 1838, "Input",ExpressionUUID->"9f4578f9-ad4d-fd44-becc-9e782e7d07f4"] }, Closed]], Cell[CellGroupData[{ Cell[3017754, 59895, 503, 8, 38, "Subsection",ExpressionUUID->"7394e6fb-b12c-2244-a513-0ddab383c5e2", InitializationCell->True], Cell[3018260, 59905, 71522, 1258, 1419, "Input",ExpressionUUID->"fbf850d8-baeb-314e-9c7a-5fb7aa2d146a", InitializationCell->True], Cell[3089785, 61165, 74624, 1332, 1496, "Input",ExpressionUUID->"4a82fd22-1d9e-8047-a28a-8dd27a42cea2"] }, Closed]], Cell[CellGroupData[{ Cell[3164446, 62502, 294, 4, 38, "Subsection",ExpressionUUID->"c05ec9a4-c229-9044-9cee-24370951c37e", InitializationCell->True], Cell[3164743, 62508, 24114, 611, 1439, "Input",ExpressionUUID->"d47048b1-4073-0543-a52d-f3037b87b9e8", InitializationCell->True], Cell[3188860, 63121, 120862, 2340, 3544, "Input",ExpressionUUID->"401f5f5c-f91c-a14e-a91c-43a7ed3758e0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[3309771, 65467, 1040, 16, 65, "Section",ExpressionUUID->"fc292ac1-d7ae-9047-8f66-07a8c50fc7c2"], Cell[CellGroupData[{ Cell[3310836, 65487, 275, 4, 54, "Subsection",ExpressionUUID->"b25bd48c-8635-f04b-b5f3-f1f7b1a08e97"], Cell[3311114, 65493, 41268, 859, 1834, "Input",ExpressionUUID->"fc272391-56b6-9e4a-8909-d4c9d268ea23", InitializationCell->True], Cell[3352385, 66354, 30543, 594, 977, "Input",ExpressionUUID->"b68ad921-d593-8d46-afeb-7812af88a8c2", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3382965, 66953, 253, 4, 38, "Subsection",ExpressionUUID->"2b3d5355-03d9-6047-8c25-e998ab791a4b"], Cell[3383221, 66959, 27881, 547, 978, "Input",ExpressionUUID->"64d6f3cf-b069-e54d-91e3-bd54a4c04e07", InitializationCell->True], Cell[3411105, 67508, 29497, 589, 1034, "Input",ExpressionUUID->"aafc5681-bbaa-0947-b2a9-9daedf0f49d6", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3440639, 68102, 273, 4, 38, "Subsection",ExpressionUUID->"2720f53d-d5ce-764f-85f4-c53fee53a6d1"], Cell[3440915, 68108, 27424, 539, 940, "Input",ExpressionUUID->"0cab60c2-34db-0749-8538-507bf09fa17f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3468376, 68652, 303, 5, 38, "Subsection",ExpressionUUID->"c2d4d9a4-b7d3-7546-b0e7-38a35fdf2206"], Cell[3468682, 68659, 29404, 590, 1113, "Input",ExpressionUUID->"1283f5c9-be09-be4b-aa2e-fe89caa82462", InitializationCell->True], Cell[3498089, 69251, 98387, 2319, 6600, "Input",ExpressionUUID->"932be6cf-37a6-f443-89f3-6fd601746dc7"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3596525, 71576, 1035, 16, 65, "Section",ExpressionUUID->"11f9cbb9-f443-6a4d-bff4-80025f5e7010"], Cell[CellGroupData[{ Cell[3597585, 71596, 237, 4, 54, "Subsection",ExpressionUUID->"17cc3dcf-1c93-6848-8ee4-43fb96c8bd05"], Cell[3597825, 71602, 41352, 886, 2541, "Input",ExpressionUUID->"e7c267dc-7f40-4c46-ac46-71819a9d520c", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[3639214, 72493, 233, 4, 54, "Subsection",ExpressionUUID->"4f9acf2b-de61-064e-8dde-abe5182f672d"], Cell[3639450, 72499, 26472, 524, 1285, "Input",ExpressionUUID->"a766c248-02d8-864b-a562-aa89b5f797fb", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3665959, 73028, 208, 4, 38, "Subsection",ExpressionUUID->"1a279bb0-278f-d747-9e4c-f39054833768"], Cell[3666170, 73034, 24990, 474, 994, "Input",ExpressionUUID->"cd7b1cba-cd20-6c46-a227-7beaa9718f8a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3691197, 73513, 306, 5, 38, "Subsection",ExpressionUUID->"7a968052-f899-f641-88be-9998c3ec0be9"], Cell[3691506, 73520, 29923, 621, 1301, "Input",ExpressionUUID->"17172a1f-505d-074d-b24c-dd57b010126f", InitializationCell->True], Cell[3721432, 74143, 3387, 93, 257, "Input",ExpressionUUID->"cf341ebd-dd01-b94e-897a-24566e857557"] }, Closed]], Cell[CellGroupData[{ Cell[3724856, 74241, 310, 5, 38, "Subsection",ExpressionUUID->"b4f024f7-8438-cc4d-9cec-3a7b26a2cb2b"], Cell[3725169, 74248, 13929, 217, 172, "Input",ExpressionUUID->"090f1327-ec0b-a842-a5b8-fbcf10b4b970", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[3739147, 74471, 993, 16, 65, "Section",ExpressionUUID->"4045c919-644a-4548-a8af-2087644c8c49"], Cell[CellGroupData[{ Cell[3740165, 74491, 431, 7, 54, "Subsection",ExpressionUUID->"5a2e0da3-704d-2143-adc2-c314b4c66f96"], Cell[3740599, 74500, 19488, 468, 1282, "Input",ExpressionUUID->"48d13f4a-165f-5141-88f1-5cc1541e4f8a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3760124, 74973, 86, 0, 38, "Subsection",ExpressionUUID->"29d673f4-b137-0c4c-bb7d-f1c91d6f6f00"], Cell[3760213, 74975, 15188, 404, 1110, "Input",ExpressionUUID->"0d629f9b-fb99-ce42-bae3-6ff259408d80", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3775438, 75384, 210, 4, 38, "Subsection",ExpressionUUID->"b9b4b83b-272a-3041-af1f-b7230c3f4f2f"], Cell[3775651, 75390, 129911, 3268, 6971, "Input",ExpressionUUID->"4fba25c4-8b39-7b4e-8baf-79b72eb7c04c", InitializationCell->True], Cell[3905565, 78660, 14198, 328, 863, "Input",ExpressionUUID->"c13b182a-51aa-5343-af41-c21bb99dc78d", InitializationCell->True], Cell[3919766, 78990, 49022, 1197, 2635, "Input",ExpressionUUID->"63bef965-f37c-f147-aae7-07429eb14538"], Cell[CellGroupData[{ Cell[3968813, 80191, 2493, 66, 162, "Input",ExpressionUUID->"6068585a-aebc-164a-9a0a-2503ff2051ce"], Cell[3971309, 80259, 1375, 42, 52, "Output",ExpressionUUID->"f558041a-2826-d649-9915-f501d07739ca"] }, Open ]], Cell[3972699, 80304, 13049, 307, 695, "Input",ExpressionUUID->"0d66b22a-2eb0-8048-a2ba-9029e2f6c9c1"], Cell[3985751, 80613, 27607, 510, 828, "Input",ExpressionUUID->"af4091b0-9801-1c4d-9e09-7676f646622e"] }, Closed]], Cell[CellGroupData[{ Cell[4013395, 81128, 212, 4, 38, "Subsection",ExpressionUUID->"fc17c669-3553-ec47-bc6c-3a77024b0b47"], Cell[4013610, 81134, 15309, 306, 616, "Input",ExpressionUUID->"7f37c2ff-be67-1548-a879-931a02d84d2c", InitializationCell->True], Cell[4028922, 81442, 12807, 246, 504, "Input",ExpressionUUID->"847c55e2-cbc7-1f42-90b6-9ab32be5321b"], Cell[CellGroupData[{ Cell[4041754, 81692, 6880, 105, 86, "Input",ExpressionUUID->"44d2d90d-4842-a147-9d94-453e3c8f96c6"], Cell[4048637, 81799, 784, 22, 32, "Output",ExpressionUUID->"c9199efe-13e9-ac4f-812d-35163d61f817"] }, Open ]], Cell[4049436, 81824, 16752, 343, 600, "Input",ExpressionUUID->"67402b82-a467-7340-9739-b0712635d5c8"] }, Closed]], Cell[CellGroupData[{ Cell[4066225, 82172, 310, 5, 38, "Subsection",ExpressionUUID->"d8566b27-3baa-b241-ae6a-5342814178cd"], Cell[4066538, 82179, 16205, 354, 901, "Input",ExpressionUUID->"12edd4d3-4793-0048-a110-acf8d6ba5955", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4082780, 82538, 354, 6, 38, "Subsection",ExpressionUUID->"933824f7-e545-aa49-802d-fbf8316327dd"], Cell[4083137, 82546, 11051, 243, 894784842, "Input",ExpressionUUID->"040ef699-6307-354a-ab04-8c3828a0a14a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4094225, 82794, 217, 4, 38, "Subsection",ExpressionUUID->"b3176457-f913-014b-a5c9-6c40eb801f9b"], Cell[4094445, 82800, 38589, 786, 2937, "Input",ExpressionUUID->"289dedfc-1676-c14c-baed-dbe4726fe495", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4133071, 83591, 315, 5, 38, "Subsection",ExpressionUUID->"0a370220-1f6c-ce4f-a85a-0e8420520b3c"], Cell[4133389, 83598, 62020, 1388, 4464, "Input",ExpressionUUID->"b5ea20ce-00ac-4841-b81e-5958ec46c8a1", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4195446, 84991, 210, 4, 38, "Subsection",ExpressionUUID->"9df7feda-30e7-834b-97e8-6698532a766d"], Cell[4195659, 84997, 23815, 509, 939, "Input",ExpressionUUID->"96d55f1b-119e-6a41-92f5-c4294d023cb7", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4219511, 85511, 86, 0, 38, "Subsection",ExpressionUUID->"6dfce38a-e7a9-6c4e-9e1d-b1029eeadde6"], Cell[4219600, 85513, 49116, 1259, 2902, "Input",ExpressionUUID->"c8487f2f-36ce-334d-bbc3-e57b502e0d07"] }, Closed]], Cell[CellGroupData[{ Cell[4268753, 86777, 430, 7, 38, "Subsection",ExpressionUUID->"8557dd29-65d5-1e40-bc39-5fb83244736f"], Cell[4269186, 86786, 73495, 1869, 4114, "Input",ExpressionUUID->"9d4582a2-740f-fc4e-ba91-2daaa6bc6204", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[4342718, 88660, 450, 7, 38, "Subsection",ExpressionUUID->"c7385d52-a799-b24e-bd43-c1083eff2130"], Cell[4343171, 88669, 14146, 240, 273, "Input",ExpressionUUID->"bcbd28e7-347d-8343-bb54-ad4d9984cdea", InitializationCell->True], Cell[4357320, 88911, 12241, 179, 83, "Input",ExpressionUUID->"0ef0dcc6-80cc-4442-a4e4-6ff2db01bb81", InitializationCell->True], Cell[4369564, 89092, 17698, 327, 330, "Input",ExpressionUUID->"97259b9f-40c5-ad44-9357-5ff41de46e9c", InitializationCell->True], Cell[4387265, 89421, 33157, 740, 1347, "Input",ExpressionUUID->"88e09335-5122-f14b-af9d-96fb49d384dc", InitializationCell->True], Cell[4420425, 90163, 35374, 795, 1549, "Input",ExpressionUUID->"1684d091-4739-364d-a47d-e3a4dce56bec", InitializationCell->True], Cell[4455802, 90960, 14266, 241, 273, "Input",ExpressionUUID->"25e36884-b447-2c4c-857b-496595f2f5c2", InitializationCell->True], Cell[4470071, 91203, 85656, 2140, 4399, "Input",ExpressionUUID->"84d13d00-d6e0-da4f-881a-c3647c01c1b7"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4555788, 93350, 967, 15, 88, "Title",ExpressionUUID->"6a385782-eb61-456f-9f91-380d4036a0d8"], Cell[CellGroupData[{ Cell[4556780, 93369, 1358, 19, 67, "Subsection",ExpressionUUID->"0d2913ef-0aef-4ae5-ae1f-42a83bd3e7cd"], Cell[CellGroupData[{ Cell[4558163, 93392, 586, 13, 56, "Subsubsection",ExpressionUUID->"162ac754-d74f-4ca6-80c8-d8d961edea19"], Cell[4558752, 93407, 2387, 72, 221, "Input",ExpressionUUID->"667512d3-b54f-4fe9-bb73-3019faaf7bea"] }, Closed]], Cell[CellGroupData[{ Cell[4561176, 93484, 509, 12, 44, "Subsubsection",ExpressionUUID->"8b303821-a3bc-4d02-b626-00ac8af3f93c"], Cell[4561688, 93498, 1243, 33, 77, "Input",ExpressionUUID->"5b39d0a4-4bf4-459f-b04a-9fa6a08b00f4"] }, Closed]], Cell[CellGroupData[{ Cell[4562968, 93536, 456, 11, 44, "Subsubsection",ExpressionUUID->"efb27dda-7a73-487d-b443-3bf17635a222"], Cell[4563427, 93549, 1332, 41, 101, "Input",ExpressionUUID->"ff1ebdca-191a-4f41-8713-99748a72fee9"], Cell[CellGroupData[{ Cell[4564784, 93594, 1988, 56, 201, "Input",ExpressionUUID->"5f613cb9-a9e2-4794-85a6-86c846186544"], Cell[4566775, 93652, 485, 14, 64, "Output",ExpressionUUID->"84d03451-e88f-406c-9148-b5d4913b09f7"], Cell[4567263, 93668, 321, 9, 64, "Output",ExpressionUUID->"d2fcd6f9-9b75-4a34-97bf-6cbadd9df4e4"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4567645, 93684, 1363, 19, 46, "Subsection",ExpressionUUID->"afb80a20-e5d9-4db8-bc99-2e402a0d6607"], Cell[CellGroupData[{ Cell[4569033, 93707, 310, 5, 56, "Subsubsection",ExpressionUUID->"b1de8e05-e4e5-4906-a827-733bd6c4e2d5"], Cell[4569346, 93714, 5961, 127, 416, "Input",ExpressionUUID->"61f5f099-228b-4fce-ba92-c0ab305b436c"], Cell[4575310, 93843, 3517, 66, 202, "Input",ExpressionUUID->"6f10e45f-13a2-4cd5-b8a1-1c9e3ac2ff00"], Cell[4578830, 93911, 2249, 63, 251, "Input",ExpressionUUID->"c1bf58ef-f98e-4e6a-9256-3c88e0b79a73"], Cell[4581082, 93976, 2295, 63, 251, "Input",ExpressionUUID->"f0631ef9-a9cf-4715-8dd7-c748b9f841b0"], Cell[CellGroupData[{ Cell[4583402, 94043, 2054, 58, 177, "Input",ExpressionUUID->"19bb77ba-380c-49d2-99b3-5d1a77644648"], Cell[4585459, 94103, 632, 18, 64, "Output",ExpressionUUID->"a07f3917-4445-4893-bac5-45a1114501cc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[4586140, 94127, 338, 5, 44, "Subsubsection",ExpressionUUID->"d7109425-1791-4931-ad0b-bad3a9ba7ad1"], Cell[4586481, 94134, 10326, 278, 652, "Input",ExpressionUUID->"5530c711-9694-4aec-86f0-257c15d0f1e4"], Cell[4596810, 94414, 8883, 229, 503, "Input",ExpressionUUID->"75e89c8c-d624-4c79-98fc-b38ed11332bf"], Cell[4605696, 94645, 6780, 168, 343, "Input",ExpressionUUID->"9b14d110-ca4c-4d7c-9f3f-55060cbac994"] }, Closed]], Cell[CellGroupData[{ Cell[4612513, 94818, 338, 5, 44, "Subsubsection",ExpressionUUID->"fb5115cb-5c46-462d-b545-09d24c3dbd84"], Cell[CellGroupData[{ Cell[4612876, 94827, 10251, 299, 512, "Input",ExpressionUUID->"b7110b20-43d4-4a4c-bc9d-f2e4dc4a8bf3"], Cell[4623130, 95128, 2588, 39, 64, "Message",ExpressionUUID->"c7a71a78-70a8-444d-a8cd-eed5443e5d16"], Cell[4625721, 95169, 1690, 27, 64, "Message",ExpressionUUID->"00d9d89d-2a8c-45ec-9d5d-f4cb2ec9f2a5"], Cell[4627414, 95198, 950, 17, 64, "Message",ExpressionUUID->"20b8ba8d-1bba-4407-9622-8d359f493c3e"] }, Open ]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4628437, 95223, 676, 11, 88, "Title",ExpressionUUID->"c094e867-eedb-49ea-81fe-4ac178148a9f"], Cell[CellGroupData[{ Cell[4629138, 95238, 1068, 15, 67, "Subsection",ExpressionUUID->"4b032a41-028b-4092-b65a-9e634ae03405"], Cell[CellGroupData[{ Cell[4630231, 95257, 482, 7, 56, "Subsubsection",ExpressionUUID->"9aac42a8-292f-4229-ba7a-ff683fbe5b47"], Cell[4630716, 95266, 5747, 129, 369, "Input",ExpressionUUID->"791e3657-2892-4e7f-b01c-e4d90582ccdc"] }, Closed]], Cell[CellGroupData[{ Cell[4636500, 95400, 487, 7, 45, "Subsubsection",ExpressionUUID->"61bce4a2-2758-460e-9011-10d261d3455b"], Cell[4636990, 95409, 4506, 96, 250, "Input",ExpressionUUID->"6584dfe0-7603-49d3-94da-5575af117569"] }, Closed]], Cell[CellGroupData[{ Cell[4641533, 95510, 556, 8, 45, "Subsubsection",ExpressionUUID->"5f18722c-d360-4af9-9f52-1aaae1c2afe0"], Cell[4642092, 95520, 5825, 127, 297, "Input",ExpressionUUID->"0e14e494-89ab-4ad0-b8c0-10a6284cae93"] }, Closed]], Cell[CellGroupData[{ Cell[4647954, 95652, 582, 8, 45, "Subsubsection",ExpressionUUID->"d5ab2f1f-fe7d-4b0c-b713-7e504f9c030c"], Cell[4648539, 95662, 5780, 121, 250, "Input",ExpressionUUID->"20359c31-e79a-44dc-9d11-ffe8fcaffa83"] }, Closed]], Cell[CellGroupData[{ Cell[4654356, 95788, 736, 10, 45, "Subsubsection",ExpressionUUID->"3e2f56e3-2eb0-44d4-bbb4-11727f8765cd"], Cell[4655095, 95800, 6418, 132, 297, "Input",ExpressionUUID->"8d781f7e-6bba-4547-a9f9-dfc08320210e"] }, Closed]], Cell[CellGroupData[{ Cell[4661550, 95937, 788, 11, 45, "Subsubsection",ExpressionUUID->"5de18652-2348-4485-9982-16fe2124dc17"], Cell[4662341, 95950, 6322, 128, 250, "Input",ExpressionUUID->"35452574-3b83-4220-8780-2ea80d30e195"] }, Closed]], Cell[CellGroupData[{ Cell[4668700, 96083, 1681, 23, 45, "Subsubsection",ExpressionUUID->"383cddbb-4de9-44d2-b165-db2ad34a0b83"], Cell[4670384, 96108, 4531, 75, 178, "Input",ExpressionUUID->"6618f3df-ec4c-4656-a5f6-57d989120d0b"] }, Closed]], Cell[CellGroupData[{ Cell[4674952, 96188, 1573, 22, 45, "Subsubsection",ExpressionUUID->"1d96790f-49fb-4e00-ab56-a3da92924588"], Cell[4676528, 96212, 4763, 88, 155, "Input",ExpressionUUID->"3a56a45f-1b1f-497b-ab28-e7afa331a80b"] }, Closed]], Cell[CellGroupData[{ Cell[4681328, 96305, 1601, 23, 45, "Subsubsection",ExpressionUUID->"7b5eb442-ec67-4f72-9a01-bde21270b68f"], Cell[4682932, 96330, 4069, 64, 107, "Input",ExpressionUUID->"287fffa5-19c6-4076-8be0-eb0069f4eda1"] }, Closed]], Cell[CellGroupData[{ Cell[4687038, 96399, 1651, 23, 45, "Subsubsection",ExpressionUUID->"dd1069d3-171e-41c1-b554-f1a75dbbbe54"], Cell[4688692, 96424, 5017, 90, 192, "Input",ExpressionUUID->"4f360d6e-d091-4856-9ab9-d907f2d730b2"] }, Closed]], Cell[CellGroupData[{ Cell[4693746, 96519, 1674, 23, 45, "Subsubsection",ExpressionUUID->"9c2e6990-d836-4ccd-b21b-052d4ee15ac5"], Cell[4695423, 96544, 11750, 264, 574, "Input",ExpressionUUID->"d6fcdadd-20ab-4f69-b0c9-d74096902c98"] }, Closed]], Cell[CellGroupData[{ Cell[4707210, 96813, 1549, 22, 45, "Subsubsection",ExpressionUUID->"9cc77e32-cdd0-4bee-9203-b12742da6a83"], Cell[4708762, 96837, 9076, 183, 419, "Input",ExpressionUUID->"73f8cfb8-97ea-49a7-acca-be10ec775006"] }, Closed]], Cell[CellGroupData[{ Cell[4717875, 97025, 1955, 27, 45, "Subsubsection",ExpressionUUID->"5ad1acca-50cc-4ca3-a866-da762d59a872"], Cell[4719833, 97054, 6410, 130, 321, "Input",ExpressionUUID->"8a1b5cc7-4abc-4c24-ae20-d0588623975a"], Cell[4726246, 97186, 7168, 135, 250, "Input",ExpressionUUID->"f432d014-8b06-4fcb-95f0-7456c47df0ef"], Cell[4733417, 97323, 5924, 96, 155, "Input",ExpressionUUID->"0bc09805-d817-4b40-898b-5ebbc9d77f1e"] }, Closed]], Cell[CellGroupData[{ Cell[4739378, 97424, 1901, 26, 45, "Subsubsection",ExpressionUUID->"303ece05-32ad-4e88-960a-6bb799cf3661"], Cell[4741282, 97452, 6212, 128, 321, "Input",ExpressionUUID->"e40d0474-ba96-40e0-b4dc-74990b6df7fa"], Cell[4747497, 97582, 7623, 147, 274, "Input",ExpressionUUID->"2fb73d1a-c795-4589-bf9e-50830b7d8bb6"], Cell[4755123, 97731, 6699, 118, 202, "Input",ExpressionUUID->"056ddfe2-f01b-44ca-880b-4a4721dd4725"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4761871, 97855, 970, 14, 46, "Subsection",ExpressionUUID->"ffa371b1-b6e0-6843-8302-8c4c38f6a718"], Cell[CellGroupData[{ Cell[4762866, 97873, 441, 7, 56, "Subsubsection",ExpressionUUID->"38909720-3933-714c-8d88-33e5b9a5967d"], Cell[4763310, 97882, 5011, 113, 340, "Input",ExpressionUUID->"72324f59-4cff-1d46-9904-da1504774bd1"] }, Closed]], Cell[CellGroupData[{ Cell[4768358, 98000, 477, 8, 45, "Subsubsection",ExpressionUUID->"486c1ac8-1c9b-0d45-ace0-0e041bbe4a1e"], Cell[4768838, 98010, 6560, 146, 416, "Input",ExpressionUUID->"e8d7eecb-9b71-e540-af82-5d76cd8adcb5"] }, Closed]], Cell[CellGroupData[{ Cell[4775435, 98161, 520, 8, 45, "Subsubsection",ExpressionUUID->"dd4acb81-beb4-1946-b2be-6572359f7529"], Cell[4775958, 98171, 3622, 90, 314, "Input",ExpressionUUID->"ab0e2e84-3b5a-2d42-a4d7-42787183ee94"] }, Closed]], Cell[CellGroupData[{ Cell[4779617, 98266, 469, 8, 45, "Subsubsection",ExpressionUUID->"e2bd0353-9b80-2c44-b9cb-0125853e1423"], Cell[4780089, 98276, 5311, 108, 276, "Input",ExpressionUUID->"8bd255ca-af29-8340-839c-135b9b9c9c27"] }, Closed]], Cell[CellGroupData[{ Cell[4785437, 98389, 546, 9, 45, "Subsubsection",ExpressionUUID->"cfa9c1fd-46fb-ed41-aa50-4d96d79b1051"], Cell[4785986, 98400, 3670, 87, 295, "Input",ExpressionUUID->"dd3bc962-19f2-0a47-a731-79e438dcc751"] }, Closed]], Cell[CellGroupData[{ Cell[4789693, 98492, 843, 12, 45, "Subsubsection",ExpressionUUID->"74850f1a-3997-8042-ad60-077a78411e28"], Cell[4790539, 98506, 8407, 186, 414, "Input",ExpressionUUID->"ea714ff2-6bb7-1641-9aea-3ac3298cf160"] }, Closed]], Cell[CellGroupData[{ Cell[4798983, 98697, 969, 14, 45, "Subsubsection",ExpressionUUID->"a8c8a29f-35b9-2b4b-bf53-f18e24a5398c"], Cell[4799955, 98713, 16667, 352, 821, "Input",ExpressionUUID->"9bc781d3-7c6a-3044-b668-6e95fbe8ea5b"] }, Closed]], Cell[CellGroupData[{ Cell[4816659, 99070, 1011, 14, 45, "Subsubsection",ExpressionUUID->"03569d76-8463-7e41-b498-dc8c543ea4b7"], Cell[4817673, 99086, 12410, 211, 238, "Input",ExpressionUUID->"06493582-5486-6647-8214-8f28c0e2cb6c"], Cell[4830086, 99299, 13150, 240, 390, "Input",ExpressionUUID->"1d18d613-be20-ea44-8dcd-3c6a93ec2787"] }, Closed]], Cell[CellGroupData[{ Cell[4843273, 99544, 507, 7, 45, "Subsubsection",ExpressionUUID->"774a9f3e-bf4b-1945-8fe2-b9a4562ee9eb"], Cell[4843783, 99553, 5782, 152, 530, "Input",ExpressionUUID->"4652bec0-c735-1c46-a7d0-afd263405abc"] }, Closed]], Cell[CellGroupData[{ Cell[4849602, 99710, 512, 7, 45, "Subsubsection",ExpressionUUID->"083a3150-1dbf-b442-9764-ef13d79ecff1"], Cell[4850117, 99719, 4252, 106, 238, "Input",ExpressionUUID->"b6f79569-3567-8e48-a69f-739b9a717d5e"] }, Closed]], Cell[CellGroupData[{ Cell[4854406, 99830, 628, 9, 45, "Subsubsection",ExpressionUUID->"2c0c10d4-3a3e-8f47-a3e9-4f4b2e00ba91"], Cell[4855037, 99841, 4374, 102, 219, "Input",ExpressionUUID->"1c8001ee-ecf2-ce49-b6ad-1d4ad2e15a0d"] }, Closed]], Cell[CellGroupData[{ Cell[4859448, 99948, 698, 10, 45, "Subsubsection",ExpressionUUID->"ddad0d8b-a119-454e-8f92-6eac9f83500d"], Cell[4860149, 99960, 4073, 100, 238, "Input",ExpressionUUID->"e5b6fa0e-29e3-3941-9418-cb2b00c60dc9"] }, Closed]], Cell[CellGroupData[{ Cell[4864259, 100065, 614, 9, 45, "Subsubsection",ExpressionUUID->"1db0c3dd-f7a5-764b-8206-db414215420b"], Cell[4864876, 100076, 2979, 68, 143, "Input",ExpressionUUID->"94f926cc-6ab4-664d-9c35-341e269f4d02"] }, Closed]], Cell[CellGroupData[{ Cell[4867892, 100149, 622, 9, 45, "Subsubsection",ExpressionUUID->"a8a50d00-bfa6-e540-bc4d-e5edd1180133"], Cell[4868517, 100160, 3987, 97, 274, "Input",ExpressionUUID->"76cc8759-4e33-bd4e-aec6-8841e2bd8988"] }, Closed]], Cell[CellGroupData[{ Cell[4872541, 100262, 716, 10, 45, "Subsubsection",ExpressionUUID->"b1b1aaf4-aeff-6845-98a6-92f910f333b7"], Cell[4873260, 100274, 4198, 97, 238, "Input",ExpressionUUID->"ac9e5b7c-38f7-7b4f-ac66-50ee2838c10f"] }, Closed]], Cell[CellGroupData[{ Cell[4877495, 100376, 644, 9, 45, "Subsubsection",ExpressionUUID->"d503fa5f-680d-1846-bcff-bd4d6955aec5"], Cell[4878142, 100387, 3161, 81, 219, "Input",ExpressionUUID->"c4722159-037d-b544-823e-d974832b830b"] }, Closed]], Cell[CellGroupData[{ Cell[4881340, 100473, 717, 10, 45, "Subsubsection",ExpressionUUID->"f44b747f-ee4f-8046-8090-6ceb87fa79b0"], Cell[4882060, 100485, 4216, 104, 238, "Input",ExpressionUUID->"3f37e6c7-6a8d-ef4c-8f15-c922f2f2aa94"] }, Closed]], Cell[CellGroupData[{ Cell[4886313, 100594, 995, 14, 45, "Subsubsection",ExpressionUUID->"25f32072-ab58-4246-bb90-8030f206f706"], Cell[4887311, 100610, 5581, 135, 261, "Input",ExpressionUUID->"252774d7-b0e1-6843-a03b-a93eff5e4031"] }, Closed]], Cell[CellGroupData[{ Cell[4892929, 100750, 743, 11, 45, "Subsubsection",ExpressionUUID->"9a200cb6-cac1-9344-ab21-6a370b4ca6c9"], Cell[4893675, 100763, 3587, 82, 181, "Input",ExpressionUUID->"9fb96039-25de-6145-bef4-9c877abdc30c"] }, Closed]], Cell[CellGroupData[{ Cell[4897299, 100850, 691, 10, 45, "Subsubsection",ExpressionUUID->"b50f00bc-6199-be4d-9e37-1eb33264f0de"], Cell[4897993, 100862, 3134, 71, 200, "Input",ExpressionUUID->"7c143f00-54dc-7c44-a54d-c2587f28d883"] }, Closed]], Cell[CellGroupData[{ Cell[4901164, 100938, 752, 11, 45, "Subsubsection",ExpressionUUID->"5a7a4e07-9ae0-284e-bee1-e2f52d277bad"], Cell[4901919, 100951, 4827, 112, 329, "Input",ExpressionUUID->"14c63415-97f9-9e4d-b310-f2100e748ca4"] }, Closed]], Cell[CellGroupData[{ Cell[4906783, 101068, 722, 10, 45, "Subsubsection",ExpressionUUID->"3bd41426-648d-c143-b55e-d7b04e18cde3"], Cell[4907508, 101080, 3742, 93, 274, "Input",ExpressionUUID->"b91236a7-74aa-f64e-8ca0-30ce14b516ad"] }, Closed]], Cell[CellGroupData[{ Cell[4911287, 101178, 768, 11, 45, "Subsubsection",ExpressionUUID->"314619be-38a6-e14f-ad15-6d92555fce9a"], Cell[4912058, 101191, 5717, 139, 357, "Input",ExpressionUUID->"a1ea2cf6-30e7-4f4f-beae-e5557f29322b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4917824, 101336, 593, 9, 46, "Subsection",ExpressionUUID->"12852f09-908d-e64e-8732-7053a3806c64"], Cell[CellGroupData[{ Cell[4918442, 101349, 487, 8, 56, "Subsubsection",ExpressionUUID->"5bd93c7a-9e96-c544-80df-334de98c97e7"], Cell[4918932, 101359, 1598, 33, 121, "Input",ExpressionUUID->"1566edb1-a159-aa43-9c49-2d7636619736"] }, Closed]], Cell[CellGroupData[{ Cell[4920567, 101397, 500, 8, 45, "Subsubsection",ExpressionUUID->"f8cde5ee-55d7-4d4b-94b6-6052a6d27135"], Cell[4921070, 101407, 1815, 45, 159, "Input",ExpressionUUID->"3da6a0fe-4c3e-bf40-be77-ab935b3d7f64"] }, Closed]], Cell[CellGroupData[{ Cell[4922922, 101457, 476, 7, 45, "Subsubsection",ExpressionUUID->"45f0dc69-03d6-3a48-a442-3b6e869750fc"], Cell[4923401, 101466, 6322, 146, 333, "Input",ExpressionUUID->"9454b572-9f90-5042-b899-046edb576131"] }, Closed]], Cell[CellGroupData[{ Cell[4929760, 101617, 528, 8, 45, "Subsubsection",ExpressionUUID->"5e161ea3-b982-d843-9cac-e76975df6aba"], Cell[4930291, 101627, 6401, 148, 342, "Input",ExpressionUUID->"fe060951-3f1f-0b4a-a864-b8d42bf73ece"] }, Closed]], Cell[CellGroupData[{ Cell[4936729, 101780, 677, 15, 45, "Subsubsection",ExpressionUUID->"ceb78b8e-fcbd-664b-bb96-f242bc902f6e"], Cell[4937409, 101797, 5298, 113, 238, "Input",ExpressionUUID->"90c923cf-8f51-7a47-8080-202940d0edf2"] }, Closed]], Cell[CellGroupData[{ Cell[4942744, 101915, 517, 8, 45, "Subsubsection",ExpressionUUID->"7763c5c1-13a1-d94c-8253-623196e9f6c6"], Cell[4943264, 101925, 4929, 96, 219, "Input",ExpressionUUID->"2c39636b-d7e9-b04e-ae15-639912f41cc2"] }, Closed]], Cell[CellGroupData[{ Cell[4948230, 102026, 569, 8, 45, "Subsubsection",ExpressionUUID->"6d923f20-1ba8-7049-8335-ea06da29deb3"], Cell[4948802, 102036, 3054, 73, 200, "Input",ExpressionUUID->"d29ae52e-f374-7148-9222-1ea1edc5e61a"] }, Closed]], Cell[CellGroupData[{ Cell[4951893, 102114, 414, 7, 45, "Subsubsection",ExpressionUUID->"42182e4a-6420-024c-88fb-b693048efc89"], Cell[4952310, 102123, 3930, 98, 345, "Input",ExpressionUUID->"52da886f-6b46-3d45-9c6f-272b8ed09b0a"] }, Closed]], Cell[CellGroupData[{ Cell[4956277, 102226, 804, 12, 45, "Subsubsection",ExpressionUUID->"8ed2014c-c93e-a04b-a7d9-571a0f463508"], Cell[4957084, 102240, 8374, 190, 357, "Input",ExpressionUUID->"4beba819-d21f-5a49-a824-3ae85a043eab"] }, Closed]], Cell[CellGroupData[{ Cell[4965495, 102435, 1081, 15, 45, "Subsubsection",ExpressionUUID->"46e418b0-56b5-0341-b202-c7447ade8de6"], Cell[4966579, 102452, 17671, 360, 600, "Input",ExpressionUUID->"2e01c82a-0645-b04e-960d-9355b95e78d3"] }, Closed]], Cell[CellGroupData[{ Cell[4984287, 102817, 461, 7, 45, "Subsubsection",ExpressionUUID->"26915c70-2d00-6440-bb62-4467237c31a8"], Cell[4984751, 102826, 2426, 56, 382, "Input",ExpressionUUID->"88fa4130-1e9a-6743-ab99-43cb1579c9a2"] }, Closed]], Cell[CellGroupData[{ Cell[4987214, 102887, 435, 7, 45, "Subsubsection",ExpressionUUID->"e612b495-3509-0744-af87-0d854c77cb06"], Cell[4987652, 102896, 2177, 63, 120, "Input",ExpressionUUID->"228bc770-3ee7-2b4b-875f-6d82c2295776"] }, Closed]], Cell[CellGroupData[{ Cell[4989866, 102964, 401, 7, 45, "Subsubsection",ExpressionUUID->"fb523f83-240e-3b47-b1df-a09d25bfee9a"], Cell[4990270, 102973, 3904, 98, 276, "Input",ExpressionUUID->"be8d2a55-b262-b94f-ba7e-8e9875df6041"] }, Closed]], Cell[CellGroupData[{ Cell[4994211, 103076, 373, 6, 45, "Subsubsection",ExpressionUUID->"f69ce1e1-76af-0a45-8c55-57721dd40abd"], Cell[4994587, 103084, 4605, 118, 333, "Input",ExpressionUUID->"e7566f73-ef9b-fd4f-bc74-4e86e924010b"] }, Closed]], Cell[CellGroupData[{ Cell[4999229, 103207, 471, 8, 45, "Subsubsection",ExpressionUUID->"1cdbcdd0-3daa-dc44-8642-b1d3d52458d5"], Cell[4999703, 103217, 3719, 88, 281, "Input",ExpressionUUID->"c75ad663-edc6-4e46-8911-b8df0553fb6c"] }, Closed]], Cell[CellGroupData[{ Cell[5003459, 103310, 546, 8, 45, "Subsubsection",ExpressionUUID->"1258ac9c-3dca-014f-b010-4ee4cb647d8a"], Cell[5004008, 103320, 3227, 82, 257, "Input",ExpressionUUID->"d0606eec-6033-5148-bf67-638dfede513c"] }, Closed]], Cell[CellGroupData[{ Cell[5007272, 103407, 473, 8, 45, "Subsubsection",ExpressionUUID->"501f83c4-6c3d-d144-936f-502806b26e9c"], Cell[5007748, 103417, 3512, 85, 276, "Input",ExpressionUUID->"5e679ead-cabf-bf41-b7b6-67469c902308"], Cell[5011263, 103504, 3083, 73, 257, "Input",ExpressionUUID->"2d9e4b72-e1bb-9244-bcfb-1df3a49d3526"] }, Closed]], Cell[CellGroupData[{ Cell[5014383, 103582, 614, 9, 45, "Subsubsection",ExpressionUUID->"ccc12006-bc64-3644-9813-1d213e7a9315"], Cell[5015000, 103593, 5585, 130, 333, "Input",ExpressionUUID->"3092b1e0-f180-7348-ba49-cd418bba684a"] }, Closed]], Cell[CellGroupData[{ Cell[5020622, 103728, 642, 9, 45, "Subsubsection",ExpressionUUID->"1dee28cb-d72e-ed49-befc-4ef0b19f38f1"], Cell[5021267, 103739, 6286, 145, 409, "Input",ExpressionUUID->"0fa559a2-ac31-654a-a1f7-a37c56c0c3cd"], Cell[5027556, 103886, 6171, 144, 352, "Input",ExpressionUUID->"1645e83f-9f76-8740-9fbe-6191d620689e"] }, Closed]], Cell[CellGroupData[{ Cell[5033764, 104035, 670, 10, 45, "Subsubsection",ExpressionUUID->"3640d72c-fef6-e944-a907-4e011450ecbc"], Cell[5034437, 104047, 7795, 180, 420, "Input",ExpressionUUID->"18242dc3-f3b7-cc41-9a71-ada56c5224fc"] }, Closed]], Cell[CellGroupData[{ Cell[5042269, 104232, 507, 8, 45, "Subsubsection",ExpressionUUID->"01b3921b-c01d-e74f-90dd-0678cc5299a7"], Cell[5042779, 104242, 1982, 38, 140, "Input",ExpressionUUID->"6d8b8e50-bcbd-5146-8244-bbb8dd11ec64"] }, Closed]], Cell[CellGroupData[{ Cell[5044798, 104285, 597, 9, 45, "Subsubsection",ExpressionUUID->"19b99d11-8b9c-864d-b063-77de20199b54"], Cell[5045398, 104296, 2796, 75, 257, "Input",ExpressionUUID->"082ea546-7329-0b48-97dc-61b2b4c8a43c"] }, Closed]], Cell[CellGroupData[{ Cell[5048231, 104376, 521, 8, 45, "Subsubsection",ExpressionUUID->"abec5b11-0d0e-c54b-8e55-af2a53c9bda4"], Cell[5048755, 104386, 5621, 118, 393, "Input",ExpressionUUID->"85a1eecd-6cef-c143-bdaf-ea67d7d90474"] }, Closed]], Cell[CellGroupData[{ Cell[5054413, 104509, 541, 9, 45, "Subsubsection",ExpressionUUID->"08000474-f4de-2944-9e9f-8f527f905201"], Cell[5054957, 104520, 3375, 77, 276, "Input",ExpressionUUID->"279af624-200a-a646-9f3f-82e6c125d166"] }, Closed]], Cell[CellGroupData[{ Cell[5058369, 104602, 661, 10, 45, "Subsubsection",ExpressionUUID->"3d8ddbf2-ab85-fb47-adc3-75c00a2544c6"], Cell[5059033, 104614, 4539, 98, 295, "Input",ExpressionUUID->"b8c7bc7a-3025-e346-a391-07784fe3e8e3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5063621, 104718, 862, 13, 46, "Subsection",ExpressionUUID->"bcd58ee1-3714-d74a-ab17-cc73d3d21f5e"], Cell[CellGroupData[{ Cell[5064508, 104735, 487, 8, 56, "Subsubsection",ExpressionUUID->"4eb7b020-884c-e14f-99cb-c7fe95accba7"], Cell[5064998, 104745, 5246, 112, 257, "Input",ExpressionUUID->"80d772f5-6d98-3d4a-a8f7-8a373b715856"] }, Closed]], Cell[CellGroupData[{ Cell[5070281, 104862, 595, 9, 45, "Subsubsection",ExpressionUUID->"b625cb6b-13cd-3f42-be2e-88dcd28f837f"], Cell[5070879, 104873, 6944, 159, 387, "Input",ExpressionUUID->"1b1eaefd-766c-c041-88ac-45b6cfde1141"] }, Closed]], Cell[CellGroupData[{ Cell[5077860, 105037, 1012, 14, 45, "Subsubsection",ExpressionUUID->"ac336a14-96c6-7b47-8c77-33da31a5d04a"], Cell[5078875, 105053, 8245, 192, 405, "Input",ExpressionUUID->"39ba5275-b334-ee4d-80eb-c867acb3e267"] }, Closed]], Cell[CellGroupData[{ Cell[5087157, 105250, 1133, 16, 45, "Subsubsection",ExpressionUUID->"e1319798-d09f-3246-883e-41eac6ff67ee"], Cell[5088293, 105268, 17648, 337, 504, "Input",ExpressionUUID->"c7b8c2e7-7561-d744-bfaa-aa21e26c881a"] }, Closed]], Cell[CellGroupData[{ Cell[5105978, 105610, 713, 10, 45, "Subsubsection",ExpressionUUID->"ff46c0dd-ca0b-be4d-a7fe-93080c581799"], Cell[5106694, 105622, 7533, 163, 359, "Input",ExpressionUUID->"6293af7d-2efe-ec4b-a229-a1138aff5d6b"] }, Closed]], Cell[CellGroupData[{ Cell[5114264, 105790, 513, 8, 45, "Subsubsection",ExpressionUUID->"43374ea3-33f8-1e4d-89f9-0b77dcf3c428"], Cell[5114780, 105800, 4571, 102, 257, "Input",ExpressionUUID->"65159d48-9c4c-f244-b7c6-90fc52665289"] }, Closed]], Cell[CellGroupData[{ Cell[5119388, 105907, 389, 7, 45, "Subsubsection",ExpressionUUID->"217fa1a8-df01-5f41-88a7-ae588b1c11f2"], Cell[5119780, 105916, 4132, 96, 257, "Input",ExpressionUUID->"77390819-d4d0-d940-96e6-dcf5dd71bcd7"] }, Closed]], Cell[CellGroupData[{ Cell[5123949, 106017, 411, 7, 45, "Subsubsection",ExpressionUUID->"c48cf678-2123-b44f-bbe4-496beaeb6600"], Cell[5124363, 106026, 4312, 100, 257, "Input",ExpressionUUID->"f1139d75-7431-ef4a-928b-8e73402d9310"] }, Closed]], Cell[CellGroupData[{ Cell[5128712, 106131, 363, 6, 45, "Subsubsection",ExpressionUUID->"a7089bbe-a331-344d-8ade-58424a418e30"], Cell[5129078, 106139, 4948, 118, 295, "Input",ExpressionUUID->"99aac13c-10aa-ec47-9fde-bda293af2496"] }, Closed]], Cell[CellGroupData[{ Cell[5134063, 106262, 460, 8, 45, "Subsubsection",ExpressionUUID->"4f27408d-7b17-ae47-a15c-643fdd5b24ea"], Cell[5134526, 106272, 5444, 130, 314, "Input",ExpressionUUID->"0bb4a514-fa61-9940-a26f-3cf6789e3c0b"] }, Closed]], Cell[CellGroupData[{ Cell[5140007, 106407, 515, 8, 45, "Subsubsection",ExpressionUUID->"f410d387-2502-f54e-8f76-b28c7378d453"], Cell[5140525, 106417, 5305, 127, 295, "Input",ExpressionUUID->"c45f932d-80da-fa48-8e5c-d536db21a808"] }, Closed]], Cell[CellGroupData[{ Cell[5145867, 106549, 509, 8, 45, "Subsubsection",ExpressionUUID->"189d16de-d115-3f4c-9a62-2a120eb87a03"], Cell[5146379, 106559, 4096, 95, 238, "Input",ExpressionUUID->"6d4677bc-3913-9448-8131-6c027706d0f2"] }, Closed]], Cell[CellGroupData[{ Cell[5150512, 106659, 535, 9, 45, "Subsubsection",ExpressionUUID->"ff422dc2-47a0-0848-adfb-aea541a733d5"], Cell[5151050, 106670, 8424, 201, 409, "Input",ExpressionUUID->"54555315-53f1-7140-aab5-dcfef0a0e4c1"] }, Closed]], Cell[CellGroupData[{ Cell[5159511, 106876, 586, 9, 45, "Subsubsection",ExpressionUUID->"ac6cefac-a9fb-684f-a457-de06eca14c41"], Cell[5160100, 106887, 9041, 211, 539, "Input",ExpressionUUID->"c94c2807-e449-6044-a65c-3a69cd73fafa"] }, Closed]], Cell[CellGroupData[{ Cell[5169178, 107103, 734, 11, 45, "Subsubsection",ExpressionUUID->"6422446c-c3b5-d84a-bdb1-1e6a494687c0"], Cell[5169915, 107116, 8307, 185, 309, "Input",ExpressionUUID->"19f124dd-db7d-904a-a219-28a7a21c9889"] }, Closed]], Cell[CellGroupData[{ Cell[5178259, 107306, 559, 9, 45, "Subsubsection",ExpressionUUID->"3d719406-817e-3445-a433-1f801bc99e92"], Cell[5178821, 107317, 4725, 105, 257, "Input",ExpressionUUID->"4882539a-880c-6446-bc57-ec234edaad5b"] }, Closed]], Cell[CellGroupData[{ Cell[5183583, 107427, 583, 9, 45, "Subsubsection",ExpressionUUID->"f6ce8356-a2cc-264a-9d84-7846a06ada80"], Cell[5184169, 107438, 5047, 107, 276, "Input",ExpressionUUID->"52842a9d-854b-e045-823d-3541c3385333"] }, Closed]], Cell[CellGroupData[{ Cell[5189253, 107550, 462, 8, 45, "Subsubsection",ExpressionUUID->"85bd1fc4-3cc0-e242-9fc8-c9151b33abf7"], Cell[5189718, 107560, 5400, 129, 295, "Input",ExpressionUUID->"28f1ed31-219d-9641-bfaf-0bbde5a4ad7e"] }, Closed]], Cell[CellGroupData[{ Cell[5195155, 107694, 529, 9, 45, "Subsubsection",ExpressionUUID->"a90ee209-6ad2-c54b-b45a-f113ac97fac4"], Cell[5195687, 107705, 4173, 95, 297, "Input",ExpressionUUID->"5309772d-45d5-a54b-89df-90fe9e4d4a89"] }, Closed]], Cell[CellGroupData[{ Cell[5199897, 107805, 807, 12, 45, "Subsubsection",ExpressionUUID->"1590b222-b178-744a-9c9e-6073a4219546"], Cell[5200707, 107819, 10167, 209, 301, "Input",ExpressionUUID->"c07a1b69-bcf6-3f4a-9706-eec4cd8cf02a"] }, Closed]], Cell[CellGroupData[{ Cell[5210911, 108033, 839, 13, 45, "Subsubsection",ExpressionUUID->"1d82851c-2d0f-7942-af4c-c03c699b5577"], Cell[5211753, 108048, 14443, 324, 545, "Input",ExpressionUUID->"6fb7a548-48bd-9442-a762-43503c932c28"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5226245, 108378, 888, 13, 46, "Subsection",ExpressionUUID->"7143de54-1e47-404f-9f2d-b39ae07c9555"], Cell[CellGroupData[{ Cell[5227158, 108395, 542, 9, 56, "Subsubsection",ExpressionUUID->"1728c46c-6065-b046-8256-fe1c9fdee97f"], Cell[5227703, 108406, 6596, 144, 371, "Input",ExpressionUUID->"d7582473-99e6-e94b-b307-dfa4a88f1c5e"] }, Closed]], Cell[CellGroupData[{ Cell[5234336, 108555, 582, 9, 45, "Subsubsection",ExpressionUUID->"46f4ef3e-4c23-684c-8680-d6a193bdd1b9"], Cell[5234921, 108566, 7177, 165, 428, "Input",ExpressionUUID->"88de7761-7acf-9e43-b653-2211d6d1e36f"] }, Closed]], Cell[CellGroupData[{ Cell[5242135, 108736, 737, 11, 45, "Subsubsection",ExpressionUUID->"c941cf08-1c2f-6241-9e13-8ca3f4e5b381"], Cell[5242875, 108749, 4597, 101, 257, "Input",ExpressionUUID->"36fdb2ed-0e8d-ff4f-b2fe-9de076b40f55"] }, Closed]], Cell[CellGroupData[{ Cell[5247509, 108855, 579, 9, 45, "Subsubsection",ExpressionUUID->"47171539-77b9-3042-9d43-356c34647f52"], Cell[5248091, 108866, 3319, 85, 257, "Input",ExpressionUUID->"59c4c575-4aec-a448-99e6-035899161704"] }, Closed]], Cell[CellGroupData[{ Cell[5251447, 108956, 496, 8, 45, "Subsubsection",ExpressionUUID->"ed8dd1ae-fe0c-f44d-8b77-e6b7f269bf39"], Cell[5251946, 108966, 6101, 146, 390, "Input",ExpressionUUID->"ba55124a-b22f-4449-8ccc-a201d3200b52"] }, Closed]], Cell[CellGroupData[{ Cell[5258084, 109117, 542, 9, 45, "Subsubsection",ExpressionUUID->"c3465451-4280-044c-b1a5-14254816a6c2"], Cell[5258629, 109128, 5069, 119, 314, "Input",ExpressionUUID->"ba29b1a0-190b-8b46-b4f6-5e32625950bc"] }, Closed]], Cell[CellGroupData[{ Cell[5263735, 109252, 346, 5, 45, "Subsubsection",ExpressionUUID->"321253bd-0bff-fd4f-9a8b-f23fc1dd92a5"], Cell[5264084, 109259, 813, 18, 48, "Input",ExpressionUUID->"4505345a-fe5d-4746-8782-d50be53eb664"] }, Closed]], Cell[CellGroupData[{ Cell[5264934, 109282, 387, 6, 45, "Subsubsection",ExpressionUUID->"f6b9b64a-549c-4e48-a066-0165cc57ae50"], Cell[5265324, 109290, 4249, 101, 257, "Input",ExpressionUUID->"abee08b8-4c08-a54b-a329-a5e54ea3a92b"] }, Closed]], Cell[CellGroupData[{ Cell[5269610, 109396, 293, 5, 45, "Subsubsection",ExpressionUUID->"8ccee22d-eeb1-9a43-829f-6f2e54b7da72"], Cell[5269906, 109403, 4269, 102, 295, "Input",ExpressionUUID->"409ebae7-673c-6f44-8024-1aca4dff673f"] }, Closed]], Cell[CellGroupData[{ Cell[5274212, 109510, 319, 6, 45, "Subsubsection",ExpressionUUID->"6d8e3de3-6772-3248-b394-6efbd31f68b1"], Cell[5274534, 109518, 5124, 128, 390, "Input",ExpressionUUID->"53ce567b-2581-6644-9cb1-94f08500c029"] }, Closed]], Cell[CellGroupData[{ Cell[5279695, 109651, 339, 6, 45, "Subsubsection",ExpressionUUID->"8d4b296c-bc79-5c4b-b09d-29c02c3c69f0"], Cell[5280037, 109659, 4466, 100, 314, "Input",ExpressionUUID->"4a5ed4af-d136-cb4a-a0a1-1eae523b4467"] }, Closed]], Cell[CellGroupData[{ Cell[5284540, 109764, 324, 6, 45, "Subsubsection",ExpressionUUID->"e21d838f-cfda-1043-b9eb-caec66c55c3f"], Cell[5284867, 109772, 4421, 112, 371, "Input",ExpressionUUID->"6610f0f3-f1ce-f14d-9b5b-8ad87c7453f1"] }, Closed]], Cell[CellGroupData[{ Cell[5289325, 109889, 499, 8, 45, "Subsubsection",ExpressionUUID->"830c250c-349d-3344-8213-9d4b3f05cf4c"], Cell[5289827, 109899, 4148, 103, 352, "Input",ExpressionUUID->"3d1d11c3-2d35-8943-ae67-86e391d4f87b"] }, Closed]], Cell[CellGroupData[{ Cell[5294012, 110007, 511, 8, 45, "Subsubsection",ExpressionUUID->"2cb92ff9-87fc-b64c-a731-5e1ba2c3ce8c"], Cell[5294526, 110017, 5072, 127, 390, "Input",ExpressionUUID->"f376ea77-31c1-1f4f-9583-5119c631023a"] }, Closed]], Cell[CellGroupData[{ Cell[5299635, 110149, 494, 8, 45, "Subsubsection",ExpressionUUID->"015e2e8e-c781-d84e-a0cf-209fe2adcd87"], Cell[5300132, 110159, 5246, 119, 416, "Input",ExpressionUUID->"688e3ff4-81ab-e146-a8a0-437a13c54b91"] }, Closed]], Cell[CellGroupData[{ Cell[5305415, 110283, 551, 9, 45, "Subsubsection",ExpressionUUID->"b8368715-d19f-b842-98ca-85c4e46f383b"], Cell[5305969, 110294, 4934, 118, 390, "Input",ExpressionUUID->"041c3092-66ca-bc48-9503-0c694780fe42"] }, Closed]], Cell[CellGroupData[{ Cell[5310940, 110417, 412, 7, 45, "Subsubsection",ExpressionUUID->"8701f2ed-6c66-6e4d-a02a-e182bbb67fdd"], Cell[5311355, 110426, 3938, 87, 219, "Input",ExpressionUUID->"705601c5-514e-d343-95e5-53f262f62080"] }, Closed]], Cell[CellGroupData[{ Cell[5315330, 110518, 362, 6, 45, "Subsubsection",ExpressionUUID->"f2eabe50-ad65-9e4b-b53f-3cb244dfe730"], Cell[5315695, 110526, 3728, 83, 200, "Input",ExpressionUUID->"11ae0a1c-8861-8643-83c8-63efd67436c3"] }, Closed]], Cell[CellGroupData[{ Cell[5319460, 110614, 364, 6, 45, "Subsubsection",ExpressionUUID->"67bb7ad4-3b8e-4347-a404-4cf3664bc2c4"], Cell[5319827, 110622, 4214, 93, 257, "Input",ExpressionUUID->"408afc96-5a4c-e546-bafc-dd30b06ea21d"] }, Closed]], Cell[CellGroupData[{ Cell[5324078, 110720, 427, 7, 45, "Subsubsection",ExpressionUUID->"a50927d0-926e-9b44-a358-0c7679a12770"], Cell[5324508, 110729, 6351, 154, 488, "Input",ExpressionUUID->"9f430803-9966-f54e-a940-01f062657bd9"] }, Closed]], Cell[CellGroupData[{ Cell[5330896, 110888, 571, 9, 45, "Subsubsection",ExpressionUUID->"4fe979b4-8541-ed40-846f-3095e3afac8f"], Cell[5331470, 110899, 4400, 102, 276, "Input",ExpressionUUID->"cea14fc8-a5b8-654d-bcde-acd3506560a3"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5335919, 111007, 1048, 15, 46, "Subsection",ExpressionUUID->"9f8dfc34-3106-524b-b520-4e134afa1dab"], Cell[CellGroupData[{ Cell[5336992, 111026, 273, 4, 56, "Subsubsection",ExpressionUUID->"2c99021a-ea2b-1c4a-808d-95a5e4008063"], Cell[5337268, 111032, 5456, 141, 333, "Input",ExpressionUUID->"f9af26cf-8424-8349-9f85-a5e6d6a6af0d"] }, Closed]], Cell[CellGroupData[{ Cell[5342761, 111178, 300, 5, 45, "Subsubsection",ExpressionUUID->"d086d663-e6e8-bb4f-af49-9879fa87c580"], Cell[5343064, 111185, 3782, 96, 314, "Input",ExpressionUUID->"a1e8010c-3a7c-1b40-8b72-f270ad82df76"] }, Closed]], Cell[CellGroupData[{ Cell[5346883, 111286, 712, 11, 45, "Subsubsection",ExpressionUUID->"6d1d70b6-040e-6e47-992a-54ce73c96613"], Cell[5347598, 111299, 5581, 117, 333, "Input",ExpressionUUID->"185d62d9-2605-c44c-8743-28d5e9b63df5"] }, Closed]], Cell[CellGroupData[{ Cell[5353216, 111421, 451, 7, 45, "Subsubsection",ExpressionUUID->"3d8cc5a0-9623-4545-a784-bc6e87faeec2"], Cell[5353670, 111430, 3468, 88, 276, "Input",ExpressionUUID->"4b71d240-7d37-c043-a01e-7bb748cef802"] }, Closed]], Cell[CellGroupData[{ Cell[5357175, 111523, 1041, 15, 45, "Subsubsection",ExpressionUUID->"3959ace1-4dc1-404f-8d11-52bdb9d48ce5"], Cell[5358219, 111540, 7667, 174, 339, "Input",ExpressionUUID->"49d416c2-d45e-7f4c-9ec2-caee7e2dda9a"] }, Closed]], Cell[CellGroupData[{ Cell[5365923, 111719, 321, 5, 45, "Subsubsection",ExpressionUUID->"927842f6-d604-2b49-a747-13b02f57eeb2"], Cell[5366247, 111726, 2913, 70, 219, "Input",ExpressionUUID->"d25fb07d-a7a3-1743-b8cc-fc5db3817fbe"] }, Closed]], Cell[CellGroupData[{ Cell[5369197, 111801, 322, 5, 45, "Subsubsection",ExpressionUUID->"eae5aee9-1569-4243-bed2-e294067846fa"], Cell[5369522, 111808, 3743, 91, 276, "Input",ExpressionUUID->"57f78569-4bf9-6245-a5f6-cb2a3de956fb"] }, Closed]], Cell[CellGroupData[{ Cell[5373302, 111904, 470, 7, 45, "Subsubsection",ExpressionUUID->"374ac245-961d-184f-90c2-40eb29c6f5cb"], Cell[5373775, 111913, 5197, 134, 359, "Input",ExpressionUUID->"1b931019-795c-1a4e-99d0-a9271517b352"] }, Closed]], Cell[CellGroupData[{ Cell[5379009, 112052, 444, 7, 45, "Subsubsection",ExpressionUUID->"e8b0ea84-a167-a947-938c-465e80549bcc"], Cell[5379456, 112061, 4908, 127, 333, "Input",ExpressionUUID->"456aad9b-7d18-474b-97e7-0c585a5f3be0"] }, Closed]], Cell[CellGroupData[{ Cell[5384401, 112193, 543, 8, 45, "Subsubsection",ExpressionUUID->"fd954629-f105-734f-8ca2-77935ead5d2e"], Cell[5384947, 112203, 3744, 90, 276, "Input",ExpressionUUID->"2231e4c1-8044-744e-9bb5-af4a4725a823"] }, Closed]], Cell[CellGroupData[{ Cell[5388728, 112298, 519, 8, 45, "Subsubsection",ExpressionUUID->"510a1898-5fb2-af46-b7e8-f0bda5cefe2f"], Cell[5389250, 112308, 4024, 99, 295, "Input",ExpressionUUID->"6540995d-cd5b-ed46-a771-0ee51e17801e"] }, Closed]], Cell[CellGroupData[{ Cell[5393311, 112412, 541, 8, 45, "Subsubsection",ExpressionUUID->"baffd1bb-e303-204f-b9e4-f482db5db98f"], Cell[5393855, 112422, 4981, 121, 314, "Input",ExpressionUUID->"485fa27d-6044-ae4b-9f1f-8f970b352b62"] }, Closed]], Cell[CellGroupData[{ Cell[5398873, 112548, 512, 8, 45, "Subsubsection",ExpressionUUID->"6b44cc93-6637-784a-b824-087f13e809b9"], Cell[5399388, 112558, 4179, 101, 295, "Input",ExpressionUUID->"3101bc25-c544-9940-9f36-0542b3448ea1"] }, Closed]], Cell[CellGroupData[{ Cell[5403604, 112664, 395, 6, 45, "Subsubsection",ExpressionUUID->"6ae05f07-888a-0849-9c8c-30b987a8f60f"], Cell[5404002, 112672, 3325, 85, 257, "Input",ExpressionUUID->"bdcc152f-caa3-2543-a473-7bec0ed7569f"] }, Closed]], Cell[CellGroupData[{ Cell[5407364, 112762, 1118, 16, 45, "Subsubsection",ExpressionUUID->"c16ef9b1-b1c7-3447-9382-984e03dd6c62"], Cell[5408485, 112780, 6970, 161, 339, "Input",ExpressionUUID->"c237e7b8-72ed-9c4b-a4b0-7f5a1f20ceef"] }, Closed]], Cell[CellGroupData[{ Cell[5415492, 112946, 394, 6, 45, "Subsubsection",ExpressionUUID->"d0ec4602-f327-a845-9486-972409a32473"], Cell[5415889, 112954, 3561, 83, 276, "Input",ExpressionUUID->"ebb4b82a-436f-ed4c-b872-a886cd60144f"] }, Closed]], Cell[CellGroupData[{ Cell[5419487, 113042, 587, 9, 45, "Subsubsection",ExpressionUUID->"738acb2c-00ff-1c4d-9cea-55f73b2f31e8"], Cell[5420077, 113053, 3681, 85, 238, "Input",ExpressionUUID->"832efe92-3e08-8845-9d31-67efba24d3dd"] }, Closed]], Cell[CellGroupData[{ Cell[5423795, 113143, 342, 5, 45, "Subsubsection",ExpressionUUID->"339d0cf3-87cf-e641-bde7-164109c06004"], Cell[5424140, 113150, 4293, 107, 314, "Input",ExpressionUUID->"2c43812f-665d-414f-ac03-08acf5d127ae"] }, Closed]], Cell[CellGroupData[{ Cell[5428470, 113262, 420, 6, 45, "Subsubsection",ExpressionUUID->"1811003b-a72e-4044-b42e-6c0a8f451373"], Cell[5428893, 113270, 4182, 107, 295, "Input",ExpressionUUID->"e0f488a2-e4d5-574a-b217-d4cd66f0d07a"] }, Closed]], Cell[CellGroupData[{ Cell[5433112, 113382, 585, 9, 45, "Subsubsection",ExpressionUUID->"e46a1ea5-9023-8146-92b5-f0fb2913dfc4"], Cell[5433700, 113393, 5019, 113, 295, "Input",ExpressionUUID->"7e09b71e-5648-fd4d-8f9e-4787048dbfab"] }, Closed]], Cell[CellGroupData[{ Cell[5438756, 113511, 585, 9, 45, "Subsubsection",ExpressionUUID->"e3e1a6d4-4be3-dc4d-82ee-00e387ef6c08"], Cell[5439344, 113522, 4814, 110, 295, "Input",ExpressionUUID->"a8424071-60fb-b846-a16c-81f3e6501fc5"] }, Closed]] }, Open ]] }, Open ]] } ] *)